Re: This is what happens when your cat uses your Emacs

[Leo <sdl.web@gmail.com>]

On 2012-01-16 06:15 +0800, Eric Schulte wrote:
> Stefan Monnier <monnier@iro.umontreal.ca> 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)))

Should this be added to the startup screen?

Leo