Mercurial > emacs
annotate lisp/play/yow.el @ 91367:c70e45a7acfd
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-324
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 30 Jan 2008 07:57:28 +0000 |
parents | 606f2d163a64 |
children |
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 |
74509 | 3 ;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004, |
79716 | 4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
841 | 5 |
772
2b5af16c9af3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
676
diff
changeset
|
6 ;; Maintainer: FSF |
7127
2dc00bfe8280
Added comment indicating author.
Noah Friedman <friedman@splode.com>
parents:
5622
diff
changeset
|
7 ;; Author: Richard Mlynarik |
812
485e82a8acb5
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
8 ;; Keywords: games |
656
d74e65773062
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
9 |
46 | 10 ;; This file is part of GNU Emacs. |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
78227
527f752989fc
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75347
diff
changeset
|
14 ;; the Free Software Foundation; either version 3, or (at your option) |
46 | 15 ;; any later version. |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
14169 | 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
25 ;; Boston, MA 02110-1301, USA. | |
46 | 26 |
772
2b5af16c9af3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
676
diff
changeset
|
27 ;;; Commentary: |
2b5af16c9af3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
676
diff
changeset
|
28 |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3384
diff
changeset
|
29 ;; Important pinheadery for GNU Emacs. |
2320
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
30 ;; |
3384 | 31 ;; 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
|
32 ;; 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
|
33 ;; random access now. |
772
2b5af16c9af3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
676
diff
changeset
|
34 |
2b5af16c9af3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
676
diff
changeset
|
35 ;;; Code: |
2b5af16c9af3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
676
diff
changeset
|
36 |
3384 | 37 (require 'cookie1) |
2320
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
38 |
21363 | 39 (defgroup yow nil |
40 "Quote random zippyisms." | |
41 :prefix "yow-" | |
42 :group 'games) | |
43 | |
44 (defcustom yow-file (concat data-directory "yow.lines") | |
45 "File containing pertinent pinhead phrases." | |
46 :type 'file | |
47 :group 'yow) | |
46 | 48 |
13753
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
49 (defconst yow-load-message "Am I CONSING yet?...") |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
50 (defconst yow-after-load-message "I have SEEN the CONSING!!") |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
51 |
256 | 52 ;;;###autoload |
42283
c04b89996164
(yow): Use an arg to distinguish interactive calls, not interactive-p.
Richard M. Stallman <rms@gnu.org>
parents:
41559
diff
changeset
|
53 (defun yow (&optional insert display) |
5622 | 54 "Return or display a random Zippy quotation. With prefix arg, insert it." |
42283
c04b89996164
(yow): Use an arg to distinguish interactive calls, not interactive-p.
Richard M. Stallman <rms@gnu.org>
parents:
41559
diff
changeset
|
55 (interactive "P\np") |
13753
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
56 (let ((yow (cookie yow-file yow-load-message yow-after-load-message))) |
5622 | 57 (cond (insert |
58 (insert yow)) | |
42283
c04b89996164
(yow): Use an arg to distinguish interactive calls, not interactive-p.
Richard M. Stallman <rms@gnu.org>
parents:
41559
diff
changeset
|
59 ((not display) |
46 | 60 yow) |
61 (t | |
32092
b0a117b99837
(yow): Don't display multi-line quotations in a *Help* buffer, since the
Miles Bader <miles@gnu.org>
parents:
21363
diff
changeset
|
62 (message "%s" yow))))) |
46 | 63 |
4737
430cee1995ab
(read-zippyism): New function.
Roland McGrath <roland@gnu.org>
parents:
3591
diff
changeset
|
64 (defsubst read-zippyism (prompt &optional require-match) |
430cee1995ab
(read-zippyism): New function.
Roland McGrath <roland@gnu.org>
parents:
3591
diff
changeset
|
65 "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
|
66 If optional second arg is non-nil, require input to match a completion." |
13753
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
67 (read-cookie prompt yow-file yow-load-message yow-after-load-message |
4737
430cee1995ab
(read-zippyism): New function.
Roland McGrath <roland@gnu.org>
parents:
3591
diff
changeset
|
68 require-match)) |
5622 | 69 |
70 ;;;###autoload | |
71 (defun insert-zippyism (&optional zippyism) | |
72 "Prompt with completion for a known Zippy quotation, and insert it at point." | |
73 (interactive (list (read-zippyism "Pinhead wisdom: " t))) | |
74 (insert zippyism)) | |
13753
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
75 |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
76 ;;;###autoload |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
77 (defun apropos-zippy (regexp) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
78 "Return a list of all Zippy quotes matching REGEXP. |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
79 If called interactively, display a list of matches." |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
80 (interactive "sApropos Zippy (regexp): ") |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
81 ;; Make sure yows are loaded |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
82 (cookie yow-file yow-load-message yow-after-load-message) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
83 (let* ((case-fold-search t) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
84 (cookie-table-symbol (intern yow-file cookie-cache)) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
85 (string-table (symbol-value cookie-table-symbol)) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
86 (matches nil) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
87 (len (length string-table)) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
88 (i 0)) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
89 (save-match-data |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
90 (while (< i len) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
91 (and (string-match regexp (aref string-table i)) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
92 (setq matches (cons (aref string-table i) matches))) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
93 (setq i (1+ i)))) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
94 (and matches |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
95 (setq matches (sort matches 'string-lessp))) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
96 (and (interactive-p) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
97 (cond ((null matches) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
98 (message "No matches found.")) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
99 (t |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
100 (let ((l matches)) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
101 (with-output-to-temp-buffer "*Zippy Apropos*" |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
102 (while l |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
103 (princ (car l)) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
104 (setq l (cdr l)) |
67282
063323b18f19
(apropos-zippy): Call print-help-return-message, similar to other Help
Eli Zaretskii <eliz@gnu.org>
parents:
64701
diff
changeset
|
105 (and l (princ "\n\n"))) |
063323b18f19
(apropos-zippy): Call print-help-return-message, similar to other Help
Eli Zaretskii <eliz@gnu.org>
parents:
64701
diff
changeset
|
106 (print-help-return-message)))))) |
13753
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
107 matches)) |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
108 |
46 | 109 |
13753
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
110 ;; Yowza!! Feed zippy quotes to the doctor. Watch results. |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
111 ;; fun, fun, fun. Entertainment for hours... |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
112 ;; |
9a8ea4e8cb01
(apropos-zippy): New command.
Noah Friedman <friedman@splode.com>
parents:
9841
diff
changeset
|
113 ;; written by Kayvan Aghaiepour |
46 | 114 |
86234
860a7a8e779e
* progmodes/octave-mod.el (inferior-octave-send-list-and-digest):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85510
diff
changeset
|
115 (declare-function doctor-ret-or-read "doctor" (arg)) |
860a7a8e779e
* progmodes/octave-mod.el (inferior-octave-send-list-and-digest):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85510
diff
changeset
|
116 |
256 | 117 ;;;###autoload |
46 | 118 (defun psychoanalyze-pinhead () |
119 "Zippy goes to the analyst." | |
120 (interactive) | |
121 (doctor) ; start the psychotherapy | |
122 (message "") | |
123 (switch-to-buffer "*doctor*") | |
124 (sit-for 0) | |
125 (while (not (input-pending-p)) | |
41559
ca00f40d366e
(psychoanalyze-pinhead): Use insert instead of insert-string.
Pavel Janík <Pavel@Janik.cz>
parents:
32092
diff
changeset
|
126 (insert (yow)) |
46 | 127 (sit-for 0) |
128 (doctor-ret-or-read 1) | |
129 (doctor-ret-or-read 1))) | |
130 | |
584 | 131 (provide 'yow) |
132 | |
52401 | 133 ;;; arch-tag: d13db89b-84f1-4141-a5ce-261d1733a65c |
656
d74e65773062
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
134 ;;; yow.el ends here |