WOMO

irc-mode で invite on xyzzy

Posted at Mon, 30 Nov 2009 in computer::xyzzy

xyzzy の irc-mode にチャネルに招待する（invite）コマンドがなかったので適当に作りました。キーバインドは Ctrl+c i I に当ててあります。.irc ファイルに書き足して使います。

(defun irc-dialog-send-invite (&optional nick)
  "irc: INVITE送信"
  (interactive)
  (irc-check-connection)
  (irc-dialog-check-channel)
  (irc-dialog-check-joined)
  (irc-dialog-check-chop)
  (unless nick
    (setq nick (read-string (format nil "INVITE - ~A: " (irc-channel-name irc-dialog-channel))
                                    )))
  (irc-send "INVITE ~A ~A" nick (irc-channel-name irc-dialog-channel)))
(defvar *irc-prefix* '(#\C-c #\i))          ;これ以前に同じ宣言があれば不要
(add-hook '*irc-dialog-mode-hook*
          #'(lambda ()
              (local-set-key `(,@*irc-prefix* #\I) 'irc-dialog-send-invite))
          )

［Permalink］