(zone-pgm-rat-race): New func.

(zone-programs): Add `zone-pgm-rat-race'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4601d4a6d76daa4f5ac9d32ee5d3f61e29772543..808e99af21fdc785b2643d28e5799f7d11a5f56b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-24  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+       * play/zone.el (zone-pgm-rat-race): New func.
+       (zone-programs): Add `zone-pgm-rat-race'.
+
 2007-08-24  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/byte-opt.el (byte-optimize-if): Don't presume `clause' is

diff --git a/lisp/play/zone.el b/lisp/play/zone.el
index 71ae01d23d911805b10eaa3d590cd66171580543..f1bbfb19938930c2addd99f7d190fcb90b3e23bf 100644 (file)
--- a/lisp/play/zone.el
+++ b/lisp/play/zone.el
@@ -74,6 +74,7 @@ If nil, don't interrupt for about 1^26 seconds.")
                        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 @@ If the element is a function or a list of a function and a number,
 (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)