WOMO

TwitterIrcGateway(TIG) + irc-mode on xyzzy の TypableMap を使った Favorite や Reply 関連 Lisp

Posted at Tue, 09 Feb 2010 in computer::xyzzy

Twitter クライアントの P3 とかを使っているとキーひとつでふぁぼできるのですが、そういうのがうらやましかったので TwitterIrcGateway + irc-mode の環境でも使えるように書きました。~/.irc に書いて使ってください。現在カーソルのある行の発言に対して実行します。
TypableMap って何？ どうやって設定するの？ という方はこのあたりに TypableMap を有効にする方法についての解説があるのでご参照ください。（端折って説明すると /join #Console , config, set EnableTypableMap True で終了）

F （Shift + f） で Favorite、U（Shift + u）で Favorite から削除。R（Shift + r）で TypableMap を使ったリプライ補助。
ふぁぼとあんふぁぼは、問い合わせもなしにいきなり Favorite に追加（または削除）します。問い合わせて欲しい場合はそのための関数を作ったので、そちらにキーを割り当ててください。
実行は TIG まかせなので発言が Fav されているかどうかをチェックして Unfav を抑止するとかいう親切設計はありません。

Reply は一番左端に @screen_name が表示されて一応相手がわかるという誤爆防止機能はありますが、TypableMap の部分を消すとリプライでもなんでもないごく普通の発言になります。仕様です。

;;;;;;;;;;;;;;;;;;;
;; ■ TIG での TypableMap を利用した Reply
(defun tig-reply ()
  "Reply"
  (interactive)
  (irc-check-connection)
  (irc-dialog-check-joined)
  (save-excursion
    (goto-bol)
    (when (scan-buffer "^[0-2][0-9]:[0-5][0-9] <\\([^>]+\\)> \\(.*\\)(\\([a-z]+\\))$" :regexp t)
      (let ((tp (match-string 3))
            (prompt (format nil "@~A - ~A: " (match-string 1) (irc-channel-name irc-dialog-channel)))
            msg)
        (setf msg (read-string prompt :default (format nil "re ~A " tp)))
        (unless (equalp msg "")
          (irc-dialog-post-buffered-privmsg (irc-channel-name irc-dialog-channel) msg))))))
(add-hook '*irc-dialog-mode-hook*
          #'(lambda () (local-set-key #\R 'tig-reply)))

;;;;;;;;;;;;;;;;;;;
;; ■ TIG での 問答無用 Favorite
(defun tig-favorite (&optional y-or-n)
  "Favorite"
  (interactive)
  (irc-check-connection)
  (irc-dialog-check-joined)
  (save-excursion
    (goto-bol)
    (when (scan-buffer "^[0-2][0-9]:[0-5][0-9] <\\([^>]+\\)> \\(.*\\)(\\([a-z]+\\))$" :regexp t)
      (when (or (not y-or-n)
                (yes-or-no-p (format nil "@~A: \"~A...\" を~%Fatorite に追加しますか？" (match-string 1) (substring (match-string 2) 0 20))))
        (irc-dialog-post-buffered-privmsg (irc-channel-name irc-dialog-channel)
                                          (format nil "fav ~A" (match-string 3)))))))
;; キーバインド
(add-hook '*irc-dialog-mode-hook*
          #'(lambda () (local-set-key #\F 'tig-favorite)))
;; 一言聞く場合はこっちにキーを割り当てる
(defun tig-favorite-interactive ()
  (interactive) (tig-favorite t))

;;;;;;;;;;;;;;;;;;;
;; ■ TIG での 問答無用 Favorite 削除
(defun tig-unfavorite (&optional y-or-n)
  "UnFavorite"
  (interactive)
  (irc-check-connection)
  (irc-dialog-check-joined)
  (save-excursion
    (goto-bol)
    (when (scan-buffer "^[0-2][0-9]:[0-5][0-9] <\\([^>]+\\)> \\(.*\\)(\\([a-z]+\\))$" :regexp t)
      (when (or (not y-or-n)
                (yes-or-no-p (format nil "@~A: \"~A...\" を~%Fatorite から削除しますか？" (match-string 1) (substring (match-string 2) 0 20))))
        (irc-dialog-post-buffered-privmsg (irc-channel-name irc-dialog-channel)
                                          (format nil "unfav ~A" (match-string 3)))))))
;; キーバインド
(add-hook '*irc-dialog-mode-hook*
          #'(lambda () (local-set-key #\U 'tig-unfavorite)))
;; 一言聞く場合はこっちにキーを割り当てる
(defun tig-unfavorite-interactive ()
  (interactive) (tig-unfavorite t))

［Permalink］