💾 Archived View for shaggypeak.com › futhorc › code › 2012100815-01.gmi captured on 2023-03-20 at 19:52:53. Gemini links have been rewritten to link to archived content

View Raw

More Information

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

bitlbee ᚾᛞ rcirc

2012-10-08

ᚴᛟ, ᛁ ᚴᚹᛏ ᚠᚱᛗ irssi[1] ᛏ rcirc[2] ᚴᛟ ᛏ ᛁ ᚳᛞ ᛞᚢ ᛟᛚ ᛗᛁ ᛒᚾᚴ ᚾ ᚹᚾ ᚹᚾᛞᛟ ᚾᛞ ᚾᚫᛏ ᚻ ᛏ ᚴᚹ ᛏ ᛇ ᛏᛗᚾᛚ ᛏ ᛏ.

ᛏ ᚹᚳᛏ ᚠᚾ, ᚳᚴᛈᛏ ᛏ bitlbee ᚴᚾᛞ ᛖ ctcp ᛏᛁᛈ "TYPING" ᛏ ᚾᛞᚳᛖᛏ ᚱᛇᛗᛟᛏ ᚳᛏᛏᛇ, ᚾᛞ ᛇ ᛗᚴᛄ ᚹ ᛟᛝ ᛈ ᛟᚾ ᛗᛁ ᚴᚳᚱᛇᚾ ᛚᛁᚳ ```13:58 ᛞᚾᛚᛟᛞ MM03201.ZIP ᚳᚴᚴ.log ᚳᛗᛇ ᛒᚾ ᚳᛟᛞ 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] irssi

[2] rcirc