發一段以前寫的elisp
無任何實用價值，無聊的時候寫的，做ASCII Art動畫。
(defun cinema (file fps)
(interactive "sFile: \nnFPS: ")
(let ((int-time (/ 1.0 fps)))
(find-file file)
(while t
(scroll-up 25)
(sit-for int-time))))
具體效果見 ASCII Art Bad Apple Emacs 。
© 2010, liuw. All rights reserved.