1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
;;; yow.el --- quote random zippyisms
;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Author: Richard Mlynarik
;; 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 pinheadery for GNU Emacs.
;;
;; See cookie1.el for implementation. Note --- the `n' argument of yow
;; from the 18.xx implementation is no longer; we only support *random*
;; random access now.
;;; Code:
(require 'cookie1)
(defvar yow-file (concat data-directory "yow.lines")
"File containing pertinent pinhead phrases.")
(defconst yow-load-message "Am I CONSING yet?...")
(defconst yow-after-load-message "I have SEEN the CONSING!!")
;;;###autoload
(defun yow (&optional insert)
"Return or display a random Zippy quotation. With prefix arg, insert it."
(interactive "P")
(let ((yow (cookie yow-file yow-load-message yow-after-load-message)))
(cond (insert
(insert yow))
((not (interactive-p))
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)
(save-excursion
(set-buffer standard-output)
(help-mode)))))))
(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 yow-load-message yow-after-load-message
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))
;;;###autoload
(defun apropos-zippy (regexp)
"Return a list of all Zippy quotes matching REGEXP.
If called interactively, display a list of matches."
(interactive "sApropos Zippy (regexp): ")
;; Make sure yows are loaded
(cookie yow-file yow-load-message yow-after-load-message)
(let* ((case-fold-search t)
(cookie-table-symbol (intern yow-file cookie-cache))
(string-table (symbol-value cookie-table-symbol))
(matches nil)
(len (length string-table))
(i 0))
(save-match-data
(while (< i len)
(and (string-match regexp (aref string-table i))
(setq matches (cons (aref string-table i) matches)))
(setq i (1+ i))))
(and matches
(setq matches (sort matches 'string-lessp)))
(and (interactive-p)
(cond ((null matches)
(message "No matches found."))
(t
(let ((l matches))
(with-output-to-temp-buffer "*Zippy Apropos*"
(while l
(princ (car l))
(setq l (cdr l))
(and l (princ "\n\n"))))))))
matches))
;; 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
(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
|
