Initial revision

1 files changed, 86 insertions, 0 deletions

diff --git a/lisp/play/yow.el b/lisp/play/yow.el
new file mode 100644
index 00000000000..e574b4fa906
--- /dev/null
+++ b/lisp/play/yow.el
@@ -0,0 +1,86 @@
+;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 1, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+(provide 'yow)
+
+; Randomize the seed in the random number generator.
+(random t)
+
+; Important pinheaddery for GNU Emacs.
+; Expects file emacs/etc/yow.lines to be in ITS-style LINS format
+;  (ie strings terminated by ascii 0 characters.  Leading whitespace ignored)
+; Everything up to the first \000 is a comment.
+(defun yow (&optional n interactive)
+  "Return or display a Zippy quotation."
+  (interactive "P\np")
+  (if (null yow-vector)
+      (setq yow-vector (snarf-yows)))
+  (cond (n (setq n (prefix-numeric-value n)))
+        ((>= (setq n (random (length yow-vector))) 0))
+        (t (setq n (- n))))
+  (let ((yow (aref yow-vector n)))
+    (cond ((not interactive)
+           yow)
+          ((not (string-match "\n" yow))
+           (delete-windows-on (get-buffer-create "*Help*"))
+           (message "%s" yow))
+          (t
+           (message "Yow!")
+           (with-output-to-temp-buffer "*Help*"
+             (princ yow))))))
+
+(defvar yow-vector nil "Pertinent pinhead statements")
+(defun snarf-yows (&optional file)
+  (save-excursion
+    (let ((buf (generate-new-buffer " yow"))
+          (result '())
+          (cursor-in-echo-area t))
+      (message "Am I CONSING yet?...")
+      (set-buffer buf)
+      (insert-file-contents (or file
+                                (expand-file-name "yow.lines" exec-directory)))
+      (search-forward "\0")
+      (while (progn (skip-chars-forward " \t\n\r\f") (not (eobp)))
+        (let ((beg (point)))
+          (search-forward "\0")
+          (setq result (cons (buffer-substring beg (1- (point)))
+                             result))))
+      (kill-buffer buf)
+      (message "I have SEEN the CONSING!!" (length result))
+      (apply 'vector (nreverse result)))))
+
+; Yowza!! Feed zippy quotes to the doctor. Watch results.
+; fun, fun, fun. Entertainment for hours...
+;
+; written by Kayvan Aghaiepour
+
+(defun psychoanalyze-pinhead ()
+  "Zippy goes to the analyst."
+  (interactive)
+  (doctor)                              ; start the psychotherapy
+  (if (null yow-vector)
+      (setq yow-vector (snarf-yows)))
+  (message "")
+  (switch-to-buffer "*doctor*")
+  (sit-for 0)
+  (while (not (input-pending-p))
+    (insert-string (yow))
+    (sit-for 0)
+    (doctor-ret-or-read 1)
+    (doctor-ret-or-read 1)))
+