|
From: | Eric Schulte |
Subject: | Re: This is what happens when your cat uses your Emacs |
Date: | Sun, 15 Jan 2012 15:15:54 -0700 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/24.0.92 (gnu/linux) |
Stefan Monnier <address@hidden> writes: >> C-M-S-s-z is undefined. > > A proof if ever that Emacs users need cats. > BTW, we should probably bind it to some cat command. > how about, (defun cat-command () "A command for cats." (interactive) (require 'animate) (let ((mouse " ___00 ~~/____'> \" \"") (h-pos (floor (/ (window-height) 2))) (contents (buffer-string)) (mouse-buffer (generate-new-buffer "*mouse*"))) (save-excursion (switch-to-buffer mouse-buffer) (insert contents) (setq truncate-lines t) (animate-string mouse h-pos 0) (dotimes (_ (window-width)) (sit-for 0.01) (dotimes (n 3) (goto-line (+ h-pos n 2)) (move-to-column 0) (insert " ")))) (kill-buffer mouse-buffer))) -- Eric Schulte http://cs.unm.edu/~eschulte/
[Prev in Thread] | Current Thread | [Next in Thread] |