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

[Eric Schulte]

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/