自慢の.emacsを貼り付けよう

1 ：こっそりだどん ：01/09/25 13:54

皆さんの自慢の.emacsを貼り付けてください。
＃もう他人のディレクトリへ行って勝手に.emacs見るの疲れました。

84 ：名無しさん＠お腹いっぱい。 ：01/10/25 13:45

(defvar default-msg "おまえモナー")
(defvar mona
'("　　∧＿∧　　 ／￣￣￣￣￣￣￣￣\n"
"　（ ´∀｀）＜　" mona-msg "\n"
"　（　　　 ）　＼＿＿＿＿＿＿＿＿\n"
"　 ｜ ｜　｜\n"
"　（_＿）＿）\n"))
(defun mona (msg)
"どこでもモナー。
mew とかで メール見てるときにやると面白いかも."
(interactive "smessage: ")

(let ((list mona)
(mona-msg default-msg)
rect tmp)
(unless (string= msg "")
(setq mona-msg msg))
(while list
(setq tmp (concat tmp (eval (car list))))
(if (string-match "\\(.*\\)\n" tmp)
(progn
(setq rect (cons (match-string 1 tmp) rect))
(setq tmp nil)))
(setq list (cdr list)))
(setq rect (reverse rect))
(let ((buffer-read-only nil))
(insert-rectangle rect))))

read.cgi ver5.26+ (01/10/21-)