Mercurial > emacs
annotate lisp/play/zone.el @ 58978:848f5e78398e
(zone): Set `truncate-lines'.
Also, init `tab-width' with value from original buffer.
(zone-shift-up): Rewrite for speed.
(zone-shift-down, zone-shift-left, zone-shift-right): Likewise.
(zone-pgm-jitter): Remove redundant entries from ops vector.
(zone-exploding-remove): Reduce iteration count.
(zone-cpos): Convert to defsubst.
(zone-replace-char): New defsubst.
(zone-park/sit-for): Likewise.
(zone-fret): Take window-start arg.
Update callers. Use `zone-park/sit-for'.
(zone-fill-out-screen): Rewrite.
(zone-fall-through-ws): Likewise. Update callers.
(zone-pgm-drip): Use `zone-replace-char'.
Move var inits before while-loop. Use `zone-park/sit-for'.
(zone-pgm-random-life): Handle empty initial field.
Use `zone-replace-char' and `zone-park/sit-for'.
author | Thien-Thi Nguyen <ttn@gnuvola.org> |
---|---|
date | Wed, 15 Dec 2004 13:53:58 +0000 |
parents | f3d97fc520ff |
children | 64c212b55c0c |
rev | line source |
---|---|
30565 | 1 ;;; zone.el --- idle display hacks |
2 | |
53856
ac105516179d
(zone-call): Fix format string.
Andreas Schwab <schwab@suse.de>
parents:
52401
diff
changeset
|
3 ;; Copyright (C) 2000, 2001, 2004 Free Software Foundation, Inc. |
30565 | 4 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
32348
diff
changeset
|
5 ;; Author: Victor Zandy <zandy@cs.wisc.edu> |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
32348
diff
changeset
|
6 ;; Maintainer: Thien-Thi Nguyen <ttn@gnu.org> |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
32348
diff
changeset
|
7 ;; Keywords: games |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
32348
diff
changeset
|
8 ;; Created: June 6, 1998 |
30565 | 9 |
10 ;; This file is part of GNU Emacs. | |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
14 ;; the Free Software Foundation; either version 2, or (at your option) | |
15 ;; any later version. | |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
25 ;; Boston, MA 02111-1307, USA. | |
26 | |
27 ;;; Commentary: | |
28 | |
29 ;; Don't zone out in front of Emacs! Try M-x zone. | |
30 ;; If it eventually irritates you, try M-x zone-leave-me-alone. | |
31 | |
32 ;; Bored by the zone pyrotechnics? Write your own! Add it to | |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
33 ;; `zone-programs'. See `zone-call' for higher-ordered zoning. |
30565 | 34 |
35 ;; WARNING: Not appropriate for Emacs sessions over modems or | |
36 ;; computers as slow as mine. | |
37 | |
38 ;; THANKS: Christopher Mayer, Scott Flinchbaugh, Rachel Kalmar, | |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
39 ;; Max Froumentin. |
30565 | 40 |
41 ;;; Code: | |
42 | |
43 (require 'timer) | |
44 (require 'tabify) | |
45 (eval-when-compile (require 'cl)) | |
46 | |
45819
a04951f92260
(zone-timer): New variable holds the idle timer.
Richard M. Stallman <rms@gnu.org>
parents:
42645
diff
changeset
|
47 (defvar zone-timer nil |
a04951f92260
(zone-timer): New variable holds the idle timer.
Richard M. Stallman <rms@gnu.org>
parents:
42645
diff
changeset
|
48 "The timer we use to decide when to zone out, or nil if none.") |
a04951f92260
(zone-timer): New variable holds the idle timer.
Richard M. Stallman <rms@gnu.org>
parents:
42645
diff
changeset
|
49 |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
50 (defvar zone-timeout nil |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
51 "*Seconds to timeout the zoning. |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
52 If nil, don't interrupt for about 1^26 seconds.") |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
53 |
30565 | 54 ;; Vector of functions that zone out. `zone' will execute one of |
55 ;; these functions, randomly chosen. The chosen function is invoked | |
56 ;; in the *zone* buffer, which contains the text of the selected | |
57 ;; window. If the function loops, it *must* periodically check and | |
58 ;; halt if `input-pending-p' is t (because quitting is disabled when | |
59 ;; Emacs idle timers are run). | |
60 (defvar zone-programs [ | |
61 zone-pgm-jitter | |
62 zone-pgm-putz-with-case | |
63 zone-pgm-dissolve | |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
64 ;; zone-pgm-explode |
30565 | 65 zone-pgm-whack-chars |
66 zone-pgm-rotate | |
67 zone-pgm-rotate-LR-lockstep | |
68 zone-pgm-rotate-RL-lockstep | |
69 zone-pgm-rotate-LR-variable | |
70 zone-pgm-rotate-RL-variable | |
71 zone-pgm-drip | |
72 zone-pgm-drip-fretfully | |
73 zone-pgm-five-oclock-swan-dive | |
74 zone-pgm-martini-swan-dive | |
75 zone-pgm-paragraph-spaz | |
76 zone-pgm-stress | |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
77 zone-pgm-stress-destress |
58889
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
78 zone-pgm-random-life |
30565 | 79 ]) |
80 | |
81 (defmacro zone-orig (&rest body) | |
82 `(with-current-buffer (get 'zone 'orig-buffer) | |
83 ,@body)) | |
84 | |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
85 (defmacro zone-hiding-modeline (&rest body) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
86 `(let (bg mode-line-fg mode-line-bg mode-line-box) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
87 (unwind-protect |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
88 (progn |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
89 (when (and (= 0 (get 'zone 'modeline-hidden-level)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
90 (display-color-p)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
91 (setq bg (face-background 'default) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
92 mode-line-box (face-attribute 'mode-line :box) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
93 mode-line-fg (face-attribute 'mode-line :foreground) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
94 mode-line-bg (face-attribute 'mode-line :background)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
95 (set-face-attribute 'mode-line nil |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
96 :foreground bg |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
97 :background bg |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
98 :box nil)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
99 (put 'zone 'modeline-hidden-level |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
100 (1+ (get 'zone 'modeline-hidden-level))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
101 ,@body) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
102 (put 'zone 'modeline-hidden-level |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
103 (1- (get 'zone 'modeline-hidden-level))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
104 (when (and (> 1 (get 'zone 'modeline-hidden-level)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
105 mode-line-fg) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
106 (set-face-attribute 'mode-line nil |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
107 :foreground mode-line-fg |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
108 :background mode-line-bg |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
109 :box mode-line-box))))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
110 |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
111 (defun zone-call (program &optional timeout) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
112 "Call PROGRAM in a zoned way. |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
113 If PROGRAM is a function, call it, interrupting after the amount |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
114 of time in seconds specified by optional arg TIMEOUT, or `zone-timeout' |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
115 if unspecified, q.v. |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
116 PROGRAM can also be a list of elements, which are interpreted like so: |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
117 If the element is a function or a list of a function and a number, |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
118 apply `zone-call' recursively." |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
119 (cond ((functionp program) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
120 (with-timeout ((or timeout zone-timeout (ash 1 26))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
121 (funcall program))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
122 ((listp program) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
123 (mapcar (lambda (elem) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
124 (cond ((functionp elem) (zone-call elem)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
125 ((and (listp elem) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
126 (functionp (car elem)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
127 (numberp (cadr elem))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
128 (apply 'zone-call elem)) |
53856
ac105516179d
(zone-call): Fix format string.
Andreas Schwab <schwab@suse.de>
parents:
52401
diff
changeset
|
129 (t (error "bad `zone-call' elem: %S" elem)))) |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
130 program)))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
131 |
30565 | 132 ;;;###autoload |
133 (defun zone () | |
134 "Zone out, completely." | |
135 (interactive) | |
30592
fbdf4c1e1acf
(zone, zone-pgm-stress): Don't use window-system.
Eli Zaretskii <eliz@gnu.org>
parents:
30565
diff
changeset
|
136 (let ((f (selected-frame)) |
30565 | 137 (outbuf (get-buffer-create "*zone*")) |
32348
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
138 (text (buffer-substring (window-start) (window-end))) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
139 (wp (1+ (- (window-point (selected-window)) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
140 (window-start))))) |
30565 | 141 (put 'zone 'orig-buffer (current-buffer)) |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
142 (put 'zone 'modeline-hidden-level 0) |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
143 (switch-to-buffer outbuf) |
30565 | 144 (setq mode-name "Zone") |
145 (erase-buffer) | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
146 (setq buffer-undo-list t |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
147 truncate-lines t |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
148 tab-width (zone-orig tab-width)) |
30565 | 149 (insert text) |
150 (untabify (point-min) (point-max)) | |
151 (set-window-start (selected-window) (point-min)) | |
152 (set-window-point (selected-window) wp) | |
153 (sit-for 0 500) | |
154 (let ((pgm (elt zone-programs (random (length zone-programs)))) | |
155 (ct (and f (frame-parameter f 'cursor-type)))) | |
156 (when ct (modify-frame-parameters f '((cursor-type . (bar . 0))))) | |
157 (condition-case nil | |
32348
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
158 (progn |
30565 | 159 (message "Zoning... (%s)" pgm) |
32348
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
160 (garbage-collect) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
161 ;; If some input is pending, zone says "sorry", which |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
162 ;; isn't nice; this might happen e.g. when they invoke the |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
163 ;; game by clicking the menu bar. So discard any pending |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
164 ;; input before zoning out. |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
165 (if (input-pending-p) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
166 (discard-input)) |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
167 (zone-call pgm) |
32348
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
168 (message "Zoning...sorry")) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
169 (error |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
170 (while (not (input-pending-p)) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
171 (message (format "We were zoning when we wrote %s..." pgm)) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
172 (sit-for 3) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
173 (message "...here's hoping we didn't hose your buffer!") |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
174 (sit-for 3))) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
175 (quit (ding) (message "Zoning...sorry"))) |
30565 | 176 (when ct (modify-frame-parameters f (list (cons 'cursor-type ct))))) |
45819
a04951f92260
(zone-timer): New variable holds the idle timer.
Richard M. Stallman <rms@gnu.org>
parents:
42645
diff
changeset
|
177 (kill-buffer outbuf))) |
30565 | 178 |
179 ;;;; Zone when idle, or not. | |
180 | |
181 (defun zone-when-idle (secs) | |
182 "Zone out when Emacs has been idle for SECS seconds." | |
183 (interactive "nHow long before I start zoning (seconds): ") | |
45819
a04951f92260
(zone-timer): New variable holds the idle timer.
Richard M. Stallman <rms@gnu.org>
parents:
42645
diff
changeset
|
184 (if (timerp zone-timer) |
a04951f92260
(zone-timer): New variable holds the idle timer.
Richard M. Stallman <rms@gnu.org>
parents:
42645
diff
changeset
|
185 (cancel-timer zone-timer)) |
a04951f92260
(zone-timer): New variable holds the idle timer.
Richard M. Stallman <rms@gnu.org>
parents:
42645
diff
changeset
|
186 (setq zone-timer nil) |
30565 | 187 (or (<= secs 0) |
45819
a04951f92260
(zone-timer): New variable holds the idle timer.
Richard M. Stallman <rms@gnu.org>
parents:
42645
diff
changeset
|
188 (setq zone-timer (run-with-idle-timer secs t 'zone)))) |
30565 | 189 |
190 (defun zone-leave-me-alone () | |
191 "Don't zone out when Emacs is idle." | |
192 (interactive) | |
45819
a04951f92260
(zone-timer): New variable holds the idle timer.
Richard M. Stallman <rms@gnu.org>
parents:
42645
diff
changeset
|
193 (if (timerp zone-timer) |
a04951f92260
(zone-timer): New variable holds the idle timer.
Richard M. Stallman <rms@gnu.org>
parents:
42645
diff
changeset
|
194 (cancel-timer zone-timer)) |
a04951f92260
(zone-timer): New variable holds the idle timer.
Richard M. Stallman <rms@gnu.org>
parents:
42645
diff
changeset
|
195 (setq zone-timer nil) |
30565 | 196 (message "I won't zone out any more")) |
197 | |
198 | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
199 ;;;; jittering |
30565 | 200 |
201 (defun zone-shift-up () | |
202 (let* ((b (point)) | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
203 (e (progn (forward-line 1) (point))) |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
204 (s (buffer-substring b e))) |
30565 | 205 (delete-region b e) |
206 (goto-char (point-max)) | |
207 (insert s))) | |
208 | |
209 (defun zone-shift-down () | |
210 (goto-char (point-max)) | |
211 (let* ((b (point)) | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
212 (e (progn (forward-line -1) (point))) |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
213 (s (buffer-substring b e))) |
30565 | 214 (delete-region b e) |
215 (goto-char (point-min)) | |
216 (insert s))) | |
217 | |
218 (defun zone-shift-left () | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
219 (let (s) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
220 (while (not (eobp)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
221 (unless (eolp) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
222 (setq s (buffer-substring (point) (1+ (point)))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
223 (delete-char 1) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
224 (end-of-line) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
225 (insert s)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
226 (forward-char 1)))) |
30565 | 227 |
228 (defun zone-shift-right () | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
229 (goto-char (point-max)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
230 (end-of-line) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
231 (let (s) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
232 (while (not (bobp)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
233 (unless (bolp) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
234 (setq s (buffer-substring (1- (point)) (point))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
235 (delete-char -1) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
236 (beginning-of-line) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
237 (insert s)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
238 (end-of-line 0)))) |
30565 | 239 |
240 (defun zone-pgm-jitter () | |
241 (let ((ops [ | |
242 zone-shift-left | |
243 zone-shift-right | |
244 zone-shift-down | |
245 zone-shift-up | |
246 ])) | |
247 (goto-char (point-min)) | |
248 (while (not (input-pending-p)) | |
249 (funcall (elt ops (random (length ops)))) | |
250 (goto-char (point-min)) | |
251 (sit-for 0 10)))) | |
252 | |
253 | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
254 ;;;; whacking chars |
30565 | 255 |
256 (defun zone-pgm-whack-chars () | |
32348
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
257 (let ((tbl (copy-sequence (get 'zone-pgm-whack-chars 'wc-tbl)))) |
30565 | 258 (while (not (input-pending-p)) |
259 (let ((i 48)) | |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
260 (while (< i 122) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
261 (aset tbl i (+ 48 (random (- 123 48)))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
262 (setq i (1+ i))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
263 (translate-region (point-min) (point-max) tbl) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
264 (sit-for 0 2))))) |
30565 | 265 |
32348
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
266 (put 'zone-pgm-whack-chars 'wc-tbl |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
267 (let ((tbl (make-string 128 ?x)) |
32348
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
268 (i 0)) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
269 (while (< i 128) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
270 (aset tbl i i) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
271 (setq i (1+ i))) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
272 tbl)) |
30565 | 273 |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
274 ;;;; dissolving |
30565 | 275 |
276 (defun zone-remove-text () | |
277 (let ((working t)) | |
278 (while working | |
279 (setq working nil) | |
280 (save-excursion | |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
281 (goto-char (point-min)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
282 (while (not (eobp)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
283 (if (looking-at "[^(){}\n\t ]") |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
284 (let ((n (random 5))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
285 (if (not (= n 0)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
286 (progn |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
287 (setq working t) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
288 (forward-char 1)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
289 (delete-char 1) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
290 (insert " "))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
291 (forward-char 1)))) |
30565 | 292 (sit-for 0 2)))) |
293 | |
294 (defun zone-pgm-dissolve () | |
295 (zone-remove-text) | |
296 (zone-pgm-jitter)) | |
297 | |
298 | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
299 ;;;; exploding |
30565 | 300 |
301 (defun zone-exploding-remove () | |
302 (let ((i 0)) | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
303 (while (< i 5) |
30565 | 304 (save-excursion |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
305 (goto-char (point-min)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
306 (while (not (eobp)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
307 (if (looking-at "[^*\n\t ]") |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
308 (let ((n (random 5))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
309 (if (not (= n 0)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
310 (forward-char 1)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
311 (insert " "))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
312 (forward-char 1))) |
30565 | 313 (setq i (1+ i)) |
314 (sit-for 0 2))) | |
315 (zone-pgm-jitter)) | |
316 | |
317 (defun zone-pgm-explode () | |
318 (zone-exploding-remove) | |
319 (zone-pgm-jitter)) | |
320 | |
321 | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
322 ;;;; putzing w/ case |
30565 | 323 |
324 ;; Faster than `zone-pgm-putz-with-case', but not as good: all | |
325 ;; instances of the same letter have the same case, which produces a | |
326 ;; less interesting effect than you might imagine. | |
327 (defun zone-pgm-2nd-putz-with-case () | |
328 (let ((tbl (make-string 128 ?x)) | |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
329 (i 0)) |
30565 | 330 (while (< i 128) |
331 (aset tbl i i) | |
332 (setq i (1+ i))) | |
333 (while (not (input-pending-p)) | |
334 (setq i ?a) | |
335 (while (<= i ?z) | |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
336 (aset tbl i |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
337 (if (zerop (random 5)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
338 (upcase i) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
339 (downcase i))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
340 (setq i (+ i (1+ (random 5))))) |
30565 | 341 (setq i ?A) |
342 (while (<= i ?z) | |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
343 (aset tbl i |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
344 (if (zerop (random 5)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
345 (downcase i) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
346 (upcase i))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
347 (setq i (+ i (1+ (random 5))))) |
30565 | 348 (translate-region (point-min) (point-max) tbl) |
349 (sit-for 0 2)))) | |
350 | |
351 (defun zone-pgm-putz-with-case () | |
352 (goto-char (point-min)) | |
353 (while (not (input-pending-p)) | |
354 (let ((np (+ 2 (random 5))) | |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
355 (pm (point-max))) |
30565 | 356 (while (< np pm) |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
357 (goto-char np) |
30565 | 358 (let ((prec (preceding-char)) |
359 (props (text-properties-at (1- (point))))) | |
360 (insert (if (zerop (random 2)) | |
361 (upcase prec) | |
362 (downcase prec))) | |
363 (set-text-properties (1- (point)) (point) props)) | |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
364 (backward-char 2) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
365 (delete-char 1) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
366 (setq np (+ np (1+ (random 5)))))) |
30565 | 367 (goto-char (point-min)) |
368 (sit-for 0 2))) | |
369 | |
370 | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
371 ;;;; rotating |
30565 | 372 |
373 (defun zone-line-specs () | |
374 (let (ret) | |
375 (save-excursion | |
376 (goto-char (window-start)) | |
377 (while (< (point) (window-end)) | |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
378 (when (looking-at "[\t ]*\\([^\n]+\\)") |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
379 (setq ret (cons (cons (match-beginning 1) (match-end 1)) ret))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
380 (forward-line 1))) |
30565 | 381 ret)) |
382 | |
383 (defun zone-pgm-rotate (&optional random-style) | |
384 (let* ((specs (apply | |
32348
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
385 'vector |
30565 | 386 (let (res) |
387 (mapcar (lambda (ent) | |
388 (let* ((beg (car ent)) | |
389 (end (cdr ent)) | |
390 (amt (if random-style | |
391 (funcall random-style) | |
392 (- (random 7) 3)))) | |
393 (when (< (- end (abs amt)) beg) | |
394 (setq amt (random (- end beg)))) | |
395 (unless (= 0 amt) | |
396 (setq res | |
397 (cons | |
398 (vector amt beg (- end (abs amt))) | |
399 res))))) | |
400 (zone-line-specs)) | |
401 res))) | |
32348
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
402 (n (length specs)) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
403 amt aamt cut paste txt i ent) |
30565 | 404 (while (not (input-pending-p)) |
405 (setq i 0) | |
406 (while (< i n) | |
32348
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
407 (setq ent (aref specs i)) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
408 (setq amt (aref ent 0) aamt (abs amt)) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
409 (if (> 0 amt) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
410 (setq cut 1 paste 2) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
411 (setq cut 2 paste 1)) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
412 (goto-char (aref ent cut)) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
413 (setq txt (buffer-substring (point) (+ (point) aamt))) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
414 (delete-char aamt) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
415 (goto-char (aref ent paste)) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
416 (insert txt) |
abc299ad3386
(zone-timer, zone-wc-tbl): Rework
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
30628
diff
changeset
|
417 (setq i (1+ i))) |
30565 | 418 (sit-for 0.04)))) |
419 | |
420 (defun zone-pgm-rotate-LR-lockstep () | |
421 (zone-pgm-rotate (lambda () 1))) | |
422 | |
423 (defun zone-pgm-rotate-RL-lockstep () | |
424 (zone-pgm-rotate (lambda () -1))) | |
425 | |
426 (defun zone-pgm-rotate-LR-variable () | |
427 (zone-pgm-rotate (lambda () (1+ (random 3))))) | |
428 | |
429 (defun zone-pgm-rotate-RL-variable () | |
430 (zone-pgm-rotate (lambda () (1- (- (random 3)))))) | |
431 | |
432 | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
433 ;;;; dripping |
30565 | 434 |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
435 (defsubst zone-cpos (pos) |
30565 | 436 (buffer-substring pos (1+ pos))) |
437 | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
438 (defsubst zone-replace-char (direction char-as-string new-value) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
439 (delete-char direction) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
440 (aset char-as-string 0 new-value) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
441 (insert char-as-string)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
442 |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
443 (defsubst zone-park/sit-for (pos seconds) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
444 (let ((p (point))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
445 (goto-char pos) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
446 (prog1 (sit-for seconds) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
447 (goto-char p)))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
448 |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
449 (defun zone-fret (wbeg pos) |
30565 | 450 (let* ((case-fold-search nil) |
451 (c-string (zone-cpos pos)) | |
452 (hmm (cond | |
453 ((string-match "[a-z]" c-string) (upcase c-string)) | |
454 ((string-match "[A-Z]" c-string) (downcase c-string)) | |
455 (t " ")))) | |
456 (do ((i 0 (1+ i)) | |
457 (wait 0.5 (* wait 0.8))) | |
458 ((= i 20)) | |
459 (goto-char pos) | |
460 (delete-char 1) | |
461 (insert (if (= 0 (% i 2)) hmm c-string)) | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
462 (zone-park/sit-for wbeg wait)) |
30565 | 463 (delete-char -1) (insert c-string))) |
464 | |
58889
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
465 (defun zone-fill-out-screen (width height) |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
466 (let ((start (window-start)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
467 (line (make-string width 32))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
468 (goto-char start) |
58889
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
469 ;; fill out rectangular ws block |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
470 (while (progn (end-of-line) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
471 (let ((cc (current-column))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
472 (if (< cc width) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
473 (insert (substring line cc)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
474 (delete-char (- width cc))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
475 (cond ((eobp) (insert "\n") nil) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
476 (t (forward-char 1) t))))) |
58889
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
477 ;; pad ws past bottom of screen |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
478 (let ((nl (- height (count-lines (point-min) (point))))) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
479 (when (> nl 0) |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
480 (setq line (concat line "\n")) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
481 (do ((i 0 (1+ i))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
482 ((= i nl)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
483 (insert line)))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
484 (goto-char start) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
485 (recenter 0) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
486 (sit-for 0))) |
58889
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
487 |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
488 (defun zone-fall-through-ws (c ww wbeg wend) |
30565 | 489 (let ((fall-p nil) ; todo: move outward |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
490 (wait 0.15)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
491 (while (when (= 32 (char-after (+ (point) ww 1))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
492 (setq fall-p t) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
493 (delete-char 1) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
494 (insert " ") |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
495 (forward-char ww) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
496 (when (< (point) wend) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
497 (delete-char 1) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
498 (insert c) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
499 (forward-char -1) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
500 (zone-park/sit-for wbeg (setq wait (* wait 0.8)))))) |
30565 | 501 fall-p)) |
502 | |
503 (defun zone-pgm-drip (&optional fret-p pancake-p) | |
504 (let* ((ww (1- (window-width))) | |
505 (wh (window-height)) | |
506 (mc 0) ; miss count | |
507 (total (* ww wh)) | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
508 (fall-p nil) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
509 wbeg wend c) |
58889
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
510 (zone-fill-out-screen ww wh) |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
511 (setq wbeg (window-start) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
512 wend (window-end)) |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
513 (catch 'done |
30565 | 514 (while (not (input-pending-p)) |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
515 (setq mc 0) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
516 ;; select non-ws character, but don't miss too much |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
517 (goto-char (+ wbeg (random (- wend wbeg)))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
518 (while (looking-at "[ \n\f]") |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
519 (if (= total (setq mc (1+ mc))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
520 (throw 'done 'sel) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
521 (goto-char (+ wbeg (random (- wend wbeg)))))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
522 ;; character animation sequence |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
523 (let ((p (point))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
524 (when fret-p (zone-fret wbeg p)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
525 (goto-char p) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
526 (setq c (zone-cpos p) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
527 fall-p (zone-fall-through-ws c ww wbeg wend))) |
30565 | 528 ;; assuming current-column has not changed... |
529 (when (and pancake-p | |
530 fall-p | |
531 (< (count-lines (point-min) (point)) | |
532 wh)) | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
533 (zone-replace-char 1 c ?@) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
534 (zone-park/sit-for wbeg 0.137) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
535 (zone-replace-char -1 c ?*) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
536 (zone-park/sit-for wbeg 0.137) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
537 (zone-replace-char -1 c ?_)))))) |
30565 | 538 |
539 (defun zone-pgm-drip-fretfully () | |
540 (zone-pgm-drip t)) | |
541 | |
542 (defun zone-pgm-five-oclock-swan-dive () | |
543 (zone-pgm-drip nil t)) | |
544 | |
545 (defun zone-pgm-martini-swan-dive () | |
546 (zone-pgm-drip t t)) | |
547 | |
548 | |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
549 ;;;; paragraph spazzing (for textish modes) |
30565 | 550 |
551 (defun zone-pgm-paragraph-spaz () | |
58889
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
552 (if (memq (zone-orig major-mode) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
553 ;; there should be a better way to distinguish textish modes |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
554 '(text-mode texinfo-mode fundamental-mode)) |
30565 | 555 (let ((fill-column fill-column) |
556 (fc-min fill-column) | |
557 (fc-max fill-column) | |
558 (max-fc (1- (frame-width)))) | |
559 (while (sit-for 0.1) | |
560 (fill-paragraph 1) | |
561 (setq fill-column (+ fill-column (- (random 5) 2))) | |
562 (when (< fill-column fc-min) | |
563 (setq fc-min fill-column)) | |
564 (when (> fill-column max-fc) | |
565 (setq fill-column max-fc)) | |
566 (when (> fill-column fc-max) | |
567 (setq fc-max fill-column)))) | |
568 (message "Zoning... (zone-pgm-rotate)") | |
569 (zone-pgm-rotate))) | |
570 | |
571 | |
58889
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
572 ;;;; stressing and destressing |
30565 | 573 |
574 (defun zone-pgm-stress () | |
575 (goto-char (point-min)) | |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
576 (let (lines) |
30565 | 577 (while (< (point) (point-max)) |
578 (let ((p (point))) | |
579 (forward-line 1) | |
580 (setq lines (cons (buffer-substring p (point)) lines)))) | |
581 (sit-for 5) | |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
582 (zone-hiding-modeline |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
583 (let ((msg "Zoning... (zone-pgm-stress)")) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
584 (while (not (string= msg "")) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
585 (message (setq msg (substring msg 1))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
586 (sit-for 0.05))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
587 (while (not (input-pending-p)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
588 (when (< 50 (random 100)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
589 (goto-char (point-max)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
590 (forward-line -1) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
591 (let ((kill-whole-line t)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
592 (kill-line)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
593 (goto-char (point-min)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
594 (insert (nth (random (length lines)) lines))) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
595 (message (concat (make-string (random (- (frame-width) 5)) ? ) "grrr")) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
596 (sit-for 0.1))))) |
38677
7177c6c2aaba
(zone-pgm-stress): Use unwind-protect to make sure
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
597 |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
598 (defun zone-pgm-stress-destress () |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
599 (zone-call 'zone-pgm-stress 25) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
600 (zone-hiding-modeline |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
601 (sit-for 3) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
602 (erase-buffer) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
603 (sit-for 3) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
604 (insert-buffer "*Messages*") |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
605 (message "") |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
606 (goto-char (point-max)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
607 (recenter -1) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
608 (sit-for 3) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
609 (delete-region (point-min) (window-start)) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
610 (message "hey why stress out anyway?") |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
611 (zone-call '((zone-pgm-rotate 30) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
612 (zone-pgm-whack-chars 10) |
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
613 zone-pgm-drip)))) |
30565 | 614 |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
615 |
58889
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
616 ;;;; the lyfe so short the craft so long to lerne --chaucer |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
617 |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
618 (defvar zone-pgm-random-life-wait nil |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
619 "*Seconds to wait between successive `life' generations. |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
620 If nil, `zone-pgm-random-life' chooses a value from 0-3 (inclusive).") |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
621 |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
622 (defun zone-pgm-random-life () |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
623 (require 'life) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
624 (zone-fill-out-screen (1- (window-width)) (1- (window-height))) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
625 (let ((top (progn (goto-char (window-start)) (forward-line 7) (point))) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
626 (bot (progn (goto-char (window-end)) (forward-line -7) (point))) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
627 (rtc (- (frame-width) 11)) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
628 (min (window-start)) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
629 (max (1- (window-end))) |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
630 s c col) |
58889
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
631 (delete-region max (point-max)) |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
632 (while (and (progn (goto-char min) (sit-for 0.05)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
633 (progn (goto-char (+ min (random max))) |
58889
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
634 (or (progn (skip-chars-forward " @\n" max) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
635 (not (= max (point)))) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
636 (unless (or (= 0 (skip-chars-backward " @\n" min)) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
637 (= min (point))) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
638 (forward-char -1) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
639 t)))) |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
640 (unless (or (eolp) (eobp)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
641 (setq s (zone-cpos (point)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
642 c (aref s 0)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
643 (zone-replace-char |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
644 1 s (cond ((or (> top (point)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
645 (< bot (point)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
646 (or (> 11 (setq col (current-column))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
647 (< rtc col))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
648 32) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
649 ((and (<= ?a c) (>= ?z c)) (+ c (- ?A ?a))) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
650 ((and (<= ?A c) (>= ?Z c)) ?*) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
651 (t ?@))))) |
58889
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
652 (sit-for 3) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
653 (setq col nil) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
654 (goto-char bot) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
655 (while (< top (point)) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
656 (setq c (point)) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
657 (move-to-column 9) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
658 (setq col (cons (buffer-substring (point) c) col)) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
659 (end-of-line 0) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
660 (forward-char -10)) |
58978
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
661 (let ((life-patterns (vector |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
662 (if (and col (re-search-forward "[^ ]" max t)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
663 (cons (make-string (length (car col)) 32) col) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
664 (list (mapconcat 'identity |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
665 (make-list (/ (- rtc 11) 15) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
666 (make-string 5 ?@)) |
848f5e78398e
(zone): Set `truncate-lines'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
58889
diff
changeset
|
667 (make-string 10 32))))))) |
58889
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
668 (life (or zone-pgm-random-life-wait (random 4))) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
669 (kill-buffer nil)))) |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
670 |
f3d97fc520ff
(zone-programs): Add `zone-pgm-random-life'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53856
diff
changeset
|
671 |
42645
ac1b9223bb7f
(zone-timeout): New var.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
40347
diff
changeset
|
672 ;;;;;;;;;;;;;;; |
30565 | 673 (provide 'zone) |
674 | |
52401 | 675 ;;; arch-tag: 7092503d-74a9-4325-a55c-a026ede58cea |
30565 | 676 ;;; zone.el ends here |