1 files changed, 87 insertions, 0 deletions
diff --git a/lisp/yow.el b/lisp/yow.el
new file mode 100644
index 00000000000..0890144d0e6
--- /dev/null
+++ b/lisp/yow.el
@@ -0,0 +1,87 @@
+;; Copyright (C) 1985, 1987 Free Software Foundation
+
+;; 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.
+
+; 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
+    (if current-prefix-arg
+	(list (prefix-numeric-value current-prefix-arg) t)
+      (list nil t)))
+  (if (null yow-vector)
+      (setq yow-vector (snarf-yows)))
+  (cond (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 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)))
+