Mercurial > emacs
view lisp/play/yow.el @ 1139:4875b01ff377
entered into RCS
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 14 Sep 1992 22:08:02 +0000 |
parents | 2cdce064065f |
children | ee096523431c |
line wrap: on
line source
;;; yow.el --- generate random zippyisms ;; Copyright (C) 1985, 1987 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: games ;; 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 2, 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. ;;; Commentary: ;; 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. ;;; Code: ; Randomize the seed in the random number generator. (random t) ;;;###autoload (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" data-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 ;;;###autoload (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))) (provide 'yow) ;;; yow.el ends here