Mercurial > emacs

changeset 82823:ee04117a2f17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(zone-pgm-rat-race): New func. (zone-programs): Add `zone-pgm-rat-race'.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Fri, 24 Aug 2007 16:06:00 +0000
parents 4d04d9500eaf
children 5cd2a05a972c
files lisp/play/zone.el
diffstat 1 files changed, 12 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/zone.el	Fri Aug 24 14:39:25 2007 +0000
+++ b/lisp/play/zone.el	Fri Aug 24 16:06:00 2007 +0000
@@ -74,6 +74,7 @@
                        zone-pgm-drip-fretfully
                        zone-pgm-five-oclock-swan-dive
                        zone-pgm-martini-swan-dive
+                       zone-pgm-rat-race
                        zone-pgm-paragraph-spaz
                        zone-pgm-stress
                        zone-pgm-stress-destress
@@ -568,6 +569,17 @@
 (defun zone-pgm-martini-swan-dive ()
   (zone-pgm-drip t t))
 
+(defun zone-pgm-rat-race ()
+  (while (not (input-pending-p))
+    (zone-call '((zone-pgm-rotate 10)
+                 (zone-pgm-drip-fretfully 15)
+                 (zone-pgm-drip 10)
+                 ((lambda ()
+                    (goto-char (point-min))
+                    (while (re-search-forward " +$" nil t)
+                      (delete-region (match-beginning 0) (match-end 0))))
+                  5)))))
+
 
 ;;;; paragraph spazzing (for textish modes)