From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Eric Schulte Newsgroups: gmane.emacs.devel Subject: Re: This is what happens when your cat uses your Emacs Date: Sun, 15 Jan 2012 15:15:54 -0700 Message-ID: <87pqekpq79.fsf@gmx.com> References: <87ty3yrrwk.fsf@gnu.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1326665782 9205 80.91.229.12 (15 Jan 2012 22:16:22 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sun, 15 Jan 2012 22:16:22 +0000 (UTC) Cc: emacs-devel@gnu.org, "Jose E. Marchesi" To: Stefan Monnier Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Jan 15 23:16:16 2012 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RmYN6-0000v4-F4 for ged-emacs-devel@m.gmane.org; Sun, 15 Jan 2012 23:16:16 +0100 Original-Received: from localhost ([::1]:55664 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RmYN5-00087F-Ot for ged-emacs-devel@m.gmane.org; Sun, 15 Jan 2012 17:16:15 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]:56808) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RmYN2-00086p-UN for emacs-devel@gnu.org; Sun, 15 Jan 2012 17:16:13 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RmYN2-0007UB-3s for emacs-devel@gnu.org; Sun, 15 Jan 2012 17:16:12 -0500 Original-Received: from mailout-us.gmx.com ([74.208.5.67]:34740) by eggs.gnu.org with smtp (Exim 4.71) (envelope-from ) id 1RmYN1-0007TR-TU for emacs-devel@gnu.org; Sun, 15 Jan 2012 17:16:12 -0500 Original-Received: (qmail invoked by alias); 15 Jan 2012 22:16:05 -0000 Original-Received: from c-174-56-1-147.hsd1.nm.comcast.net (EHLO bagel) [174.56.1.147] by mail.gmx.com (mp-us006) with SMTP; 15 Jan 2012 17:16:05 -0500 X-Authenticated: #67821228 X-Provags-ID: V01U2FsdGVkX1+XoCl0CP6XYDuZb8de91TBTiXJ59sm5myK9wnQYX gYQnkPtpeLh7yT In-Reply-To: (Stefan Monnier's message of "Sun, 15 Jan 2012 11:44:10 -0500") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.92 (gnu/linux) X-Y-GMX-Trusted: 0 X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 74.208.5.67 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:147675 Archived-At: Stefan Monnier 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/