Skip to content
(´・ω・`)
Find file
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Failed to load latest commit information.
readme.md
shobon.l

readme.md

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

Something went wrong with that request. Please try again.