💾 Archived View for shaggypeak.com › deseret › code › 2012100815-01.gmi captured on 2023-11-14 at 08:23:36. Gemini links have been rewritten to link to archived content

-=-=-=-=-=-=-

bitlbee 𐐰𐑌𐐼 rcirc

2012-10-08

𐐝𐐬, 𐐌 𐑅𐐶𐐮𐐽𐐻 𐑁𐑉𐐲𐑋 irssi[1] 𐐻𐐲 rcirc[2] 𐑅𐐬 𐑄𐐲𐐻 𐐌 𐐿𐐳𐐼 𐐼𐐭 𐐱𐑊 𐐲𐑂 𐑋𐐴 𐐺𐐮𐑆𐑌𐐮𐑅 𐐮𐑌 𐐶𐐲𐑌 𐐶𐐮𐑌𐐼𐐬 𐐰𐑌𐐼 𐑌𐐪𐐻 𐐸𐐰𐑂 𐐻𐐲 𐑅𐐶𐐮𐐽 𐐻𐐲 𐑄𐐨 𐐻𐐲𐑉𐑋𐐲𐑌𐐲𐑊 𐐻𐐲 𐐽𐐰𐐻.

𐐆𐐻 𐐶𐐲𐑉𐐿𐐻 𐑁𐐮𐑌𐐲, 𐐮𐐿𐑅𐐯𐐹𐐻 𐑄𐐲𐐻 bitlbee 𐑅𐐯𐑌𐐼𐑆 𐐩 ctcp 𐐻𐐴𐐹 𐐲𐑂 "TYPING" 𐐻𐐲 𐐮𐑌𐐼𐐲𐐿𐐩𐐻 𐑉𐐨𐑋𐐬𐐻 𐐰𐐿𐐻𐐮𐑂𐐮𐐻𐐨, 𐐰𐑌𐐼 𐑄𐐨𐑆 𐑋𐐯𐑅𐐮𐐾𐐮𐑆 𐐶𐐲𐑉 𐑇𐐬𐐮𐑍 𐐲𐐹 𐐱𐑌 𐑋𐐴 𐑅𐐿𐑉𐐨𐑌 𐑊𐐴𐐿 ```13:58 𐐔𐐵𐑌𐑊𐐬𐐼𐑆 MM03201.ZIP 𐐰𐐿𐑅𐐯𐑅.log 𐐰𐐿𐑋𐐨 𐐺𐐮𐑌 𐑅𐐨𐐯𐑋𐐷𐐭𐐼𐐮𐐿𐐻.dict 𐐿𐐬𐐼 gem2deseret.sh gem2futhorc.sh 𐐾𐐯𐑋𐐲𐑌𐐨 𐑀𐐬 𐑋.tgz public_html 𐑅𐐲𐑉𐑂𐐮𐑅 smoothlapse.txt 𐑅𐐮𐑍𐐿 update-conduit.sh watermelon-sugar-digital-bundle-flac.zip mckay_mars CTCP 𐐓𐐴𐐹𐐮𐑍 1```, 𐐸𐐶𐐮𐐽 𐐮𐑆𐐲𐑌 𐑂𐐯𐑉𐐨 𐑌𐐨𐑅.

𐐝𐐬 𐐌 𐑉𐐬𐐻 𐐩 𐑊𐐮𐐻𐐲𐑊 𐐿𐐬𐐼 𐐻𐐲 𐑁𐐮𐐿𐑅 𐑄𐐲𐐻, 𐐰𐑌𐐼 𐐹𐐳𐐻 𐐮𐐻 𐐮𐑌 𐑋𐐴 .emacs:

(defun rcirc-handler-ctcp-TYPING (𐐹𐑉𐐱𐑅𐐯𐑅 𐐻𐐲𐑉𐑀𐐲𐐻 𐑅𐐯𐑌𐐼𐐲𐑉 𐑂𐐰𐑊𐐷𐐭) 
(cond 
;; 𐑂𐐰𐑊𐐷𐐭 = 0 𐑋𐐨𐑌𐑆 𐑄𐐯𐑉 𐐼𐐲𐑌 ... 𐐸𐐶𐐮𐐽 𐐷𐐭 𐐱𐑉𐐯𐐼𐐨 𐑌𐐬, 𐑅𐐮𐑌𐑅 𐑄𐐯𐑉 𐑋𐐯𐑅𐐮𐐾 𐐶𐐲𐑆 𐑅𐐯𐑌𐐻 𐐻𐐲 𐐷𐐭. 
((string= 𐑂𐐰𐑊𐐷𐐭 "1") (rcirc-print 𐐹𐑉𐐱𐑅𐐯𐑅 𐑅𐐯𐑌𐐼𐐲𐑉 "" 𐐻𐐲𐑉𐑀𐐲𐐻 "𐐮𐑆 𐐻𐐴𐐹𐐮𐑍 ... ")) 
((string= 𐑂𐐰𐑊𐐷𐐭 "2") (rcirc-print 𐐹𐑉𐐱𐑅𐐯𐑅 𐑅𐐯𐑌𐐼𐐲𐑉 "" 𐐻𐐲𐑉𐑀𐐲𐐻 "stalled")))) 

;; 𐐒𐐴 𐐼𐐮𐑁𐐱𐑊𐐻, 𐑄𐐨 CTCP 𐐮𐑆 𐐯𐐿𐐬𐐼 𐐻𐐲 𐑄𐐨 𐑅𐐿𐑉𐐨𐑌, 𐐸𐐶𐐮𐐽 𐐶𐐨 𐐼𐐬𐑌 𐐶𐐱𐑌𐐻 𐐻𐐲 𐑅𐐨. 
;; 𐐜𐐮𐑅 𐐰𐐼𐑆 "TYPING" 𐐻𐐲 𐑄𐐨 𐑊𐐮𐑅𐐻 𐐲𐑂 𐐻𐐴𐐹𐑅 𐐤𐐪𐐻 𐐯𐐿𐐬𐐼 𐐺𐐰𐐿. 
(defun rcirc-handler-CTCP (𐐹𐑉𐐱𐑅𐐯𐑅 𐐻𐐲𐑉𐑀𐐲𐐻 𐑅𐐯𐑌𐐼𐐲𐑉 𐐻𐐯𐐿𐑅𐐻) 
(𐐮𐑁 (string-match "^\\([^ ]+\\) *\\(.*\\)$" 𐐻𐐯𐐿𐑅𐐻) 
(let* ((request (upcase (match-string 1 text))) 
(args (match-string 2 text)) 
(𐐸𐐰𐑌𐐼𐐲𐑊𐐲𐑉 (intern-soft (concat "rcirc-handler-ctcp-" request)))) 
(𐐮𐑁 (𐑌𐐪𐐻 (fboundp handler)) 
(rcirc-print 𐐹𐑉𐐱𐑅𐐯𐑅 𐑅𐐯𐑌𐐼𐐲𐑉 "ERROR" 𐐻𐐲𐑉𐑀𐐲𐐻 
(𐑁𐐱𐑉𐑋𐐰𐐻 "%s 𐑅𐐯𐑌𐐻 𐐲𐑌𐑅𐐲𐐹𐐱𐑉𐐻𐐮𐐼 ctcp: %s" 𐑅𐐯𐑌𐐼𐐲𐑉 𐐻𐐯𐐿𐑅𐐻) 
𐐻𐐨) 
(funcall 𐐸𐐰𐑌𐐼𐐲𐑊𐐲𐑉 𐐹𐑉𐐱𐑅𐐯𐑅 𐐻𐐲𐑉𐑀𐐲𐐻 𐑅𐐯𐑌𐐼𐐲𐑉 args) 
(𐐲𐑌𐑊𐐯𐑅 (𐐲𐑉 (string= 𐑉𐐨𐐿𐐶𐐯𐑅𐐻 "ACTION") 
(string= 𐑉𐐨𐐿𐐶𐐯𐑅𐐻 "KEEPALIVE") 
(string= 𐑉𐐨𐐿𐐶𐐯𐑅𐐻 "TYPING")) 
(rcirc-print 𐐹𐑉𐐱𐑅𐐯𐑅 𐑅𐐯𐑌𐐼𐐲𐑉 "CTCP" 𐐻𐐲𐑉𐑀𐐲𐐻 
(𐑁𐐱𐑉𐑋𐐰𐐻 "%s" 𐐻𐐯𐐿𐑅𐐻) t))))))

𐐐𐐬𐐹𐑁𐐲𐑊𐐨 𐑄𐐲𐐻 𐐿𐐲𐑌 𐐺𐐨 𐐲𐑂 𐑅𐐲𐑋 𐐷𐐭𐑆 𐐻𐐲 𐑅𐐲𐑋𐐶𐐲𐑌.

[1]

[2]