twittering-mode.elのちょっとした改良

デフォルトのユーザ名/パスワードのペアは.emacsに

;;;
;;; Twittering mode
;;;
(require 'twittering-mode)
(setq twittering-username "hyoshiok")

などとしてtwittering-username/twittering-passwordを書いておくのだが、twittering-passwordをファイルに書いておくのも精神衛生上よろしくない。そこでtwittering-passwordがnilだったら起動時に聞いてくるように変更してみた。(twittering-startの中）

$ diff -u twittering-mode.el.orig twittering-mode.el
--- twittering-mode.el.orig	2008-02-05 19:59:46.000000000 +0900
+++ twittering-mode.el	2008-05-25 16:49:05.000000000 +0900
@@ -731,6 +731,10 @@
 
 (defun twittering-start (&optional action)
   (interactive)
+  (if (null twittering-username)
+      (setq twittering-username (read-from-minibuffer "username: ")))
+  (if (null twittering-password)
+      (setq twittering-password (read-passwd "password: ")))
   (if (null action)
       (setq action #'twittering-friends-timeline))
   (if twittering-timer

どうっすかね。