procyberian/emacs
1
0
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

(yow-file): Doc fix.

Browse source 
(yow): With non-nil arg (prefix arg), insert the chosen pinhead wisdom at
point.  Use (interactive-p) instead of arg to decide if interactive.
(insert-zippyism): Yow!  Am I INSERTED yet?
This commit is contained in:
Roland McGrath 1994-01-17 21:44:35 +00:00
parent 18cf95028f
commit b6173caec2
1 changed files with 16 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/play/yow.el
View file

@ -1,6 +1,6 @@
;;; yow.el --- quote random zippyisms
;; Copyright (C) 1993 Free Software Foundation, Inc.
;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: games
@ -34,15 +34,17 @@
(require 'cookie1)
(defvar yow-file (concat data-directory "yow.lines")
"Pertinent pinhead phrases.")
"File containing pertinent pinhead phrases.")
;;;###autoload
(defun yow (&optional interactive)
"Return or display a random Zippy quotation."
(interactive "p")
(let ((yow (cookie
yow-file "Am I CONSING yet?..." "I have SEEN the CONSING!!")))
(cond ((not interactive)
(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))
yow)
((not (string-match "\n" yow))
(delete-windows-on (get-buffer-create "*Help*"))
@ -58,6 +60,12 @@ 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))
;;;###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))
; Yowza!! Feed zippy quotes to the doctor. Watch results.
; fun, fun, fun. Entertainment for hours...