shobon.l

2ch software板のxyzzyスレその12の809に色々付け足した物です(´･ω･｀)

original

http://pc12.2ch.net/test/read.cgi/software/1226425897/809

名無しさん＠お腹いっぱい。<>sage<>2010/07/13(火) 00:54:33 ID:5ZaMoH/b0
 (setq *print-circle* t)
 (setq shobobon '("( 　 　´)""(　　 ´･)""(　 ´･ω)""(　´･ω･)"
           "(´･ω･｀)""(･ω･｀　)""(ω･｀ 　)""(･｀ 　　)"
           "(｀ 　 　)""( 　　　 )" ))
 (setf (cdr (last shobobon)) shobobon)
  
 ;; setf を setq にするとエラーが出る。なんで？
 ;; ググッても違いが分からん。
  
 (defun shobon ()
   "(´･ω･｀)ｼｮﾎﾞｰﾝ"
   (interactive)
   (loop
     (when(read-char-no-hang *keyboard*)(return))
     (sit-for 0.1)
     (setq shobobon (cdr shobobon)) (minibuffer-prompt "~A" (car shobobon))))
 
 M-x shobon

usage

require等してから

• M-x shobon -- ミニバッファ上でアニメーションを開始します。qを押して終了するまで他の操作はできません。
• M-x shobon-toggle-status -- ステータスバー上でアニメーションを開始します。再度実行すると止まります。
• M-x shobon-toggle-modeline -- buffer-mode-line上でアニメーションを開始します。再度実行すると止まります。

command key

M-x shobon 実行中は以下のキーでアニメーションをコントールできます。

• n -- 加速
• p -- 減速
• r -- 回転方向反転
• j -- はねる
• s -- (｀･ω･´)
• q -- 終了

demo

http://dl.dropbox.com/u/215714/xyzzy/neta/shobon.html