1993-03-26 04:17:45 +00:00
|
|
|
|
;;; yow.el --- quote random zippyisms
|
1992-07-14 18:50:09 +00:00
|
|
|
|
|
1994-01-17 21:44:35 +00:00
|
|
|
|
;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
|
1992-07-22 02:58:48 +00:00
|
|
|
|
|
1992-07-14 18:50:09 +00:00
|
|
|
|
;; Maintainer: FSF
|
1994-04-27 06:19:51 +00:00
|
|
|
|
;; Author: Richard Mlynarik
|
1992-07-17 18:53:44 +00:00
|
|
|
|
;; Keywords: games
|
1992-05-30 19:21:46 +00:00
|
|
|
|
|
1990-01-31 17:24:10 +00:00
|
|
|
|
;; 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
|
1992-07-16 21:47:34 +00:00
|
|
|
|
;; the Free Software Foundation; either version 2, or (at your option)
|
1990-01-31 17:24:10 +00:00
|
|
|
|
;; 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.
|
|
|
|
|
|
1992-07-14 18:50:09 +00:00
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
1993-06-09 11:59:12 +00:00
|
|
|
|
;; Important pinheadery for GNU Emacs.
|
1993-03-22 22:44:49 +00:00
|
|
|
|
;;
|
1993-06-01 04:28:54 +00:00
|
|
|
|
;; See cookie1.el for implementation. Note --- the `n' argument of yow
|
1993-03-22 22:44:49 +00:00
|
|
|
|
;; from the 18.xx implementation is no longer; we only support *random*
|
|
|
|
|
;; random access now.
|
1992-07-14 18:50:09 +00:00
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
1993-06-01 04:28:54 +00:00
|
|
|
|
(require 'cookie1)
|
1993-03-22 22:44:49 +00:00
|
|
|
|
|
|
|
|
|
(defvar yow-file (concat data-directory "yow.lines")
|
1994-01-17 21:44:35 +00:00
|
|
|
|
"File containing pertinent pinhead phrases.")
|
1990-01-31 17:24:10 +00:00
|
|
|
|
|
1991-05-09 21:50:34 +00:00
|
|
|
|
;;;###autoload
|
1994-01-17 21:44:35 +00:00
|
|
|
|
(defun yow (&optional insert)
|
|
|
|
|
"Return or display a random Zippy quotation. With prefix arg, insert it."
|
|
|
|
|
(interactive "P")
|
|
|
|
|
(let ((yow (cookie yow-file
|
|
|
|
|
"Am I CONSING yet?..." "I have SEEN the CONSING!!")))
|
|
|
|
|
(cond (insert
|
|
|
|
|
(insert yow))
|
|
|
|
|
((not (interactive-p))
|
1990-01-31 17:24:10 +00:00
|
|
|
|
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*"
|
1994-11-09 05:44:20 +00:00
|
|
|
|
(princ yow)
|
|
|
|
|
(save-excursion
|
|
|
|
|
(set-buffer standard-output)
|
|
|
|
|
(help-mode)))))))
|
1990-01-31 17:24:10 +00:00
|
|
|
|
|
1993-09-17 18:52:33 +00:00
|
|
|
|
(defsubst read-zippyism (prompt &optional require-match)
|
|
|
|
|
"Read a Zippyism from the minibuffer with completion, prompting with PROMPT.
|
|
|
|
|
If optional second arg is non-nil, require input to match a completion."
|
|
|
|
|
(read-cookie prompt yow-file
|
|
|
|
|
"Am I CONSING yet?..." "I have SEEN the CONSING!!"
|
|
|
|
|
require-match))
|
1994-01-17 21:44:35 +00:00
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun insert-zippyism (&optional zippyism)
|
|
|
|
|
"Prompt with completion for a known Zippy quotation, and insert it at point."
|
|
|
|
|
(interactive (list (read-zippyism "Pinhead wisdom: " t)))
|
|
|
|
|
(insert zippyism))
|
1990-01-31 17:24:10 +00:00
|
|
|
|
|
|
|
|
|
; Yowza!! Feed zippy quotes to the doctor. Watch results.
|
|
|
|
|
; fun, fun, fun. Entertainment for hours...
|
|
|
|
|
;
|
|
|
|
|
; written by Kayvan Aghaiepour
|
|
|
|
|
|
1991-05-09 21:50:34 +00:00
|
|
|
|
;;;###autoload
|
1990-01-31 17:24:10 +00:00
|
|
|
|
(defun psychoanalyze-pinhead ()
|
|
|
|
|
"Zippy goes to the analyst."
|
|
|
|
|
(interactive)
|
|
|
|
|
(doctor) ; start the psychotherapy
|
|
|
|
|
(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)))
|
|
|
|
|
|
1992-03-16 20:39:07 +00:00
|
|
|
|
(provide 'yow)
|
|
|
|
|
|
1992-05-30 19:21:46 +00:00
|
|
|
|
;;; yow.el ends here
|