Emacs で Twitter するときに文字数を表示する（ rcirc 版）

Twitter は文字数制限があるので、リアルタイムに文字数をカウントしてみる。ちょっといぢれば他の IRC クライアントにも対応できるだろう。
TwitterIrcGateway や BitlBee を使えば IRC クライアントで Twitter できるぞ。

(defun twitter-count-chars--rcirc ()
  (- (point) rcirc-prompt-end-marker))
(defvar twitter-count-chars-function 'twitter-count-chars--rcirc)

(defun twitter-show-number-of-chars-in-headline ()
  (setq header-line-format
        (list "" (format "%d chars" (funcall twitter-count-chars-function)))))

(defun twitter-rcirc-startup-hook0 ()
  (when (let ((case-fold-search t)) (string-match "twitter" (buffer-name)))
    (add-hook 'post-command-hook 'twitter-show-number-of-chars-in-headline nil t)))
(add-hook 'rcirc-mode-hook 'twitter-rcirc-startup-hook0)

こんな感じ。