Mercurial > emacs
annotate lisp/play/spook.el @ 87498:566965810b9e
*** empty log message ***
author | Magnus Henoch <mange@freemail.hu> |
---|---|
date | Mon, 31 Dec 2007 00:57:51 +0000 |
parents | 527f752989fc |
children | 54006a859bcc f55f9811f5d7 |
rev | line source |
---|---|
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
444
diff
changeset
|
1 ;;; spook.el --- spook phrase utility for overloading the NSA line eater |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
444
diff
changeset
|
2 |
74509 | 3 ;; Copyright (C) 1988, 1993, 2001, 2002, 2003, 2004, |
75347 | 4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. |
841 | 5 |
814
38b2499cb3e9
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
6 ;; Maintainer: FSF |
38b2499cb3e9
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
7 ;; Keywords: games |
2315
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1219
diff
changeset
|
8 ;; Created: May 1987 |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
9 |
36 | 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) |
36 | 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. | |
36 | 26 |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
27 ;;; Commentary: |
36 | 28 |
14169 | 29 ;; Steve Strassmann <straz@media-lab.media.mit.edu> didn't write |
30 ;; this, and even if he did, he really didn't mean for you to use it | |
31 ;; in an anarchistic way. | |
32 ;; | |
33 ;; To use this: | |
34 ;; Just before sending mail, do M-x spook. | |
35 ;; A number of phrases will be inserted into your buffer, to help | |
36 ;; give your message that extra bit of attractiveness for automated | |
37 ;; keyword scanners. Help defeat the NSA trunk trawler! | |
36 | 38 |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
39 ;;; Code: |
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
40 |
3384 | 41 (require 'cookie1) |
2320
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
42 |
36 | 43 ; Variables |
21363 | 44 (defgroup spook nil |
45 "Spook phrase utility for overloading the NSA line eater." | |
46 :prefix "spook-" | |
47 :group 'games) | |
36 | 48 |
32296
dbb638e8f5d5
(spook-phrases-file): Use expand-file-name, not
Dave Love <fx@gnu.org>
parents:
21363
diff
changeset
|
49 (defcustom spook-phrases-file (expand-file-name "spook.lines" data-directory) |
21363 | 50 "Keep your favorite phrases here." |
51 :type 'file | |
52 :group 'spook) | |
53 | |
54 (defcustom spook-phrase-default-count 15 | |
55 "Default number of phrases to insert." | |
56 :type 'integer | |
57 :group 'spook) | |
36 | 58 |
1219
3e9034e7bebf
(spook): Make it autoload.
Richard M. Stallman <rms@gnu.org>
parents:
841
diff
changeset
|
59 ;;;###autoload |
36 | 60 (defun spook () |
61 "Adds that special touch of class to your outgoing mail." | |
62 (interactive) | |
4091
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
63 (cookie-insert spook-phrases-file |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
64 spook-phrase-default-count |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
65 "Checking authorization..." |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
66 "Checking authorization...Approved")) |
36 | 67 |
4091
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
68 ;;;###autoload |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
69 (defun snarf-spooks () |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
70 "Return a vector containing the lines from `spook-phrases-file'." |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
71 (cookie-snarf spook-phrases-file |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
72 "Checking authorization..." |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
73 "Checking authorization...Approved")) |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
74 |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
75 ;; Note: the implementation that used to take up most of this file has been |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
76 ;; cleaned up, generalized, gratuitously broken by esr, and now resides in |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
77 ;; cookie1.el. |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
444
diff
changeset
|
78 |
18383 | 79 (provide 'spook) |
80 | |
52401 | 81 ;;; arch-tag: c682b61f-92b6-4492-9c0d-2367e562449c |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
444
diff
changeset
|
82 ;;; spook.el ends here |