gistfile1.el

;; 参考: http://d.hatena.ne.jp/khiker/20080531/emacs_jimaku

;; フックをリセット
(setq slime-connected-hook '() )

(defun shobon-shakin ()
  (flet ((wait-wait (sec)
           (sleep-for sec)
           (discard-input)
           (redisplay) ))
    (let ((wait 0.05) ep ol)
      (save-excursion
        (goto-char (window-start))
        (forward-line 0)
        (setq ep (point)) )
      (setq ol (make-overlay (window-start) ep))
      (dotimes (i 2)
        (dolist (s '("SLIME (´･ω･｀)"
                     "sLiMe (･ω･｀　)"
                     "sLiMe (ω･｀ 　)"
                     "SLIME (･｀ 　　)"
                     "sLiMe (｀ 　 　)"
                     "sLiMe ( 　　　 )"
                     "SLIME ( 　 　´)"
                     "SLIME (　　 ´･)"
                     "sLiMe (　 ´･ω)"
                     "sLiMe (　´･ω･)" ))
          (overlay-put ol 'after-string s)
          (wait-wait wait) ))
      (overlay-put ol 'after-string "SLIME (｀･ω･´) ｼｬｷｰﾝ")
      (unwind-protect (read-key-sequence-vector "")
        (delete-overlay ol) )))
  (values) )

;; フックを設定
(add-hook 'slime-connected-hook
          (lambda ()
            (slime-repl-connected-hook-function)
            (shobon-shakin)))