Mercurial > emacs
annotate lisp/play/yow.el @ 10989:f4693d66f90c
(adaptive-fill-regexp): Skip # or ;.
Allow more than one of them (or *'s or >'s).
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 13 Mar 1995 06:31:48 +0000 |
parents | 34901f215641 |
children | 9a8ea4e8cb01 |
rev | line source |
---|---|
2374
c00b3b357392
(psychoanalyze-pinhead) Needed a prefrontal lobotomy. I gave it one.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2320
diff
changeset
|
1 ;;; yow.el --- quote random zippyisms |
772
2b5af16c9af3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
676
diff
changeset
|
2 |
5622 | 3 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. |
841 | 4 |
772
2b5af16c9af3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
676
diff
changeset
|
5 ;; Maintainer: FSF |
7127
2dc00bfe8280
Added comment indicating author.
Noah Friedman <friedman@splode.com>
parents:
5622
diff
changeset
|
6 ;; Author: Richard Mlynarik |
812
485e82a8acb5
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
7 ;; Keywords: games |
656
d74e65773062
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
8 |
46 | 9 ;; This file is part of GNU Emacs. |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
772
diff
changeset
|
13 ;; the Free Software Foundation; either version 2, or (at your option) |
46 | 14 ;; any later version. |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
24 | |
772
2b5af16c9af3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
676
diff
changeset
|
25 ;;; Commentary: |
2b5af16c9af3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
676
diff
changeset
|
26 |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3384
diff
changeset
|
27 ;; Important pinheadery for GNU Emacs. |
2320
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
28 ;; |
3384 | 29 ;; See cookie1.el for implementation. Note --- the `n' argument of yow |
2320
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
30 ;; from the 18.xx implementation is no longer; we only support *random* |
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
31 ;; random access now. |
772
2b5af16c9af3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
676
diff
changeset
|
32 |
2b5af16c9af3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
676
diff
changeset
|
33 ;;; Code: |
2b5af16c9af3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
676
diff
changeset
|
34 |
3384 | 35 (require 'cookie1) |
2320
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
36 |
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
37 (defvar yow-file (concat data-directory "yow.lines") |
5622 | 38 "File containing pertinent pinhead phrases.") |
46 | 39 |
256 | 40 ;;;###autoload |
5622 | 41 (defun yow (&optional insert) |
42 "Return or display a random Zippy quotation. With prefix arg, insert it." | |
43 (interactive "P") | |
44 (let ((yow (cookie yow-file | |
45 "Am I CONSING yet?..." "I have SEEN the CONSING!!"))) | |
46 (cond (insert | |
47 (insert yow)) | |
48 ((not (interactive-p)) | |
46 | 49 yow) |
50 ((not (string-match "\n" yow)) | |
51 (delete-windows-on (get-buffer-create "*Help*")) | |
52 (message "%s" yow)) | |
53 (t | |
54 (message "Yow!") | |
55 (with-output-to-temp-buffer "*Help*" | |
9841
34901f215641
(yow): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
7127
diff
changeset
|
56 (princ yow) |
34901f215641
(yow): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
7127
diff
changeset
|
57 (save-excursion |
34901f215641
(yow): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
7127
diff
changeset
|
58 (set-buffer standard-output) |
34901f215641
(yow): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
7127
diff
changeset
|
59 (help-mode))))))) |
46 | 60 |
4737
430cee1995ab
(read-zippyism): New function.
Roland McGrath <roland@gnu.org>
parents:
3591
diff
changeset
|
61 (defsubst read-zippyism (prompt &optional require-match) |
430cee1995ab
(read-zippyism): New function.
Roland McGrath <roland@gnu.org>
parents:
3591
diff
changeset
|
62 "Read a Zippyism from the minibuffer with completion, prompting with PROMPT. |
430cee1995ab
(read-zippyism): New function.
Roland McGrath <roland@gnu.org>
parents:
3591
diff
changeset
|
63 If optional second arg is non-nil, require input to match a completion." |
430cee1995ab
(read-zippyism): New function.
Roland McGrath <roland@gnu.org>
parents:
3591
diff
changeset
|
64 (read-cookie prompt yow-file |
430cee1995ab
(read-zippyism): New function.
Roland McGrath <roland@gnu.org>
parents:
3591
diff
changeset
|
65 "Am I CONSING yet?..." "I have SEEN the CONSING!!" |
430cee1995ab
(read-zippyism): New function.
Roland McGrath <roland@gnu.org>
parents:
3591
diff
changeset
|
66 require-match)) |
5622 | 67 |
68 ;;;###autoload | |
69 (defun insert-zippyism (&optional zippyism) | |
70 "Prompt with completion for a known Zippy quotation, and insert it at point." | |
71 (interactive (list (read-zippyism "Pinhead wisdom: " t))) | |
72 (insert zippyism)) | |
46 | 73 |
74 ; Yowza!! Feed zippy quotes to the doctor. Watch results. | |
75 ; fun, fun, fun. Entertainment for hours... | |
76 ; | |
77 ; written by Kayvan Aghaiepour | |
78 | |
256 | 79 ;;;###autoload |
46 | 80 (defun psychoanalyze-pinhead () |
81 "Zippy goes to the analyst." | |
82 (interactive) | |
83 (doctor) ; start the psychotherapy | |
84 (message "") | |
85 (switch-to-buffer "*doctor*") | |
86 (sit-for 0) | |
87 (while (not (input-pending-p)) | |
88 (insert-string (yow)) | |
89 (sit-for 0) | |
90 (doctor-ret-or-read 1) | |
91 (doctor-ret-or-read 1))) | |
92 | |
584 | 93 (provide 'yow) |
94 | |
656
d74e65773062
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
95 ;;; yow.el ends here |