lisp/play/yow.el

   1 ;;; yow.el --- generate random zippyisms
   2
   3 ;; Maintainer: FSF
   4 ;; Last-modified: 14 Jun 1992
   5
   6 ;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 1, or (at your option)
  13 ;; any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING.  If not, write to
  22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  23
  24 ;;; Commentary:
  25
  26 ;; Important pinheaddery for GNU Emacs.
  27 ;; Expects file emacs/etc/yow.lines to be in ITS-style LINS format
  28 ;;  (ie strings terminated by ascii 0 characters.  Leading whitespace ignored)
  29 ;; Everything up to the first \000 is a comment.
  30
  31 ;;; Code:
  32
  33 ; Randomize the seed in the random number generator.
  34 (random t)
  35
  36 ;;;###autoload
  37 (defun yow (&optional n interactive)
  38   "Return or display a Zippy quotation."
  39   (interactive "P\np")
  40   (if (null yow-vector)
  41       (setq yow-vector (snarf-yows)))
  42   (cond (n (setq n (prefix-numeric-value n)))
  43         ((>= (setq n (random (length yow-vector))) 0))
  44         (t (setq n (- n))))
  45   (let ((yow (aref yow-vector n)))
  46     (cond ((not interactive)
  47            yow)
  48           ((not (string-match "\n" yow))
  49            (delete-windows-on (get-buffer-create "*Help*"))
  50            (message "%s" yow))
  51           (t
  52            (message "Yow!")
  53            (with-output-to-temp-buffer "*Help*"
  54              (princ yow))))))
  55
  56 (defvar yow-vector nil "Pertinent pinhead statements")
  57 (defun snarf-yows (&optional file)
  58   (save-excursion
  59     (let ((buf (generate-new-buffer " yow"))
  60           (result '())
  61           (cursor-in-echo-area t))
  62       (message "Am I CONSING yet?...")
  63       (set-buffer buf)
  64       (insert-file-contents (or file
  65                                 (expand-file-name "yow.lines" data-directory)))
  66       (search-forward "\0")
  67       (while (progn (skip-chars-forward " \t\n\r\f") (not (eobp)))
  68         (let ((beg (point)))
  69           (search-forward "\0")
  70           (setq result (cons (buffer-substring beg (1- (point)))
  71                              result))))
  72       (kill-buffer buf)
  73       (message "I have SEEN the CONSING!!" (length result))
  74       (apply 'vector (nreverse result)))))
  75 \f
  76 ; Yowza!! Feed zippy quotes to the doctor. Watch results.
  77 ; fun, fun, fun. Entertainment for hours...
  78 ;
  79 ; written by Kayvan Aghaiepour
  80
  81 ;;;###autoload
  82 (defun psychoanalyze-pinhead ()
  83   "Zippy goes to the analyst."
  84   (interactive)
  85   (doctor)                              ; start the psychotherapy
  86   (if (null yow-vector)
  87       (setq yow-vector (snarf-yows)))
  88   (message "")
  89   (switch-to-buffer "*doctor*")
  90   (sit-for 0)
  91   (while (not (input-pending-p))
  92     (insert-string (yow))
  93     (sit-for 0)
  94     (doctor-ret-or-read 1)
  95     (doctor-ret-or-read 1)))
  96
  97 (provide 'yow)
  98
  99 ;;; yow.el ends here