cc-engine.el (c-forward-objc-directive): Prevent looping in "#pragma mark
[emacs.git] / lisp / play / spook.el
blobe79df0e88c7c8e62e47d75764de5c784822991ec
1 ;;; spook.el --- spook phrase utility for overloading the NSA line eater
3 ;; Copyright (C) 1988, 1993, 2001-2012 Free Software Foundation, Inc.
5 ;; Maintainer: FSF
6 ;; Keywords: games
7 ;; Created: May 1987
9 ;; This file is part of GNU Emacs.
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
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
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.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
24 ;;; Commentary:
26 ;; Steve Strassmann <straz@media-lab.media.mit.edu> didn't write
27 ;; this, and even if he did, he really didn't mean for you to use it
28 ;; in an anarchistic way.
30 ;; To use this:
31 ;; Just before sending mail, do M-x spook.
32 ;; A number of phrases will be inserted into your buffer, to help
33 ;; give your message that extra bit of attractiveness for automated
34 ;; keyword scanners. Help defeat the NSA trunk trawler!
36 ;;; Code:
38 (require 'cookie1)
40 ; Variables
41 (defgroup spook nil
42 "Spook phrase utility for overloading the NSA line eater."
43 :prefix "spook-"
44 :group 'games)
46 (defcustom spook-phrases-file (expand-file-name "spook.lines" data-directory)
47 "Keep your favorite phrases here."
48 :type 'file
49 :group 'spook)
51 (defcustom spook-phrase-default-count 15
52 "Default number of phrases to insert."
53 :type 'integer
54 :group 'spook)
56 ;;;###autoload
57 (defun spook ()
58 "Adds that special touch of class to your outgoing mail."
59 (interactive)
60 (cookie-insert spook-phrases-file
61 spook-phrase-default-count
62 "Checking authorization..."
63 "Checking authorization...Approved"))
65 ;;;###autoload
66 (defun snarf-spooks ()
67 "Return a vector containing the lines from `spook-phrases-file'."
68 (cookie-snarf spook-phrases-file
69 "Checking authorization..."
70 "Checking authorization...Approved"))
72 ;; Note: the implementation that used to take up most of this file has been
73 ;; cleaned up, generalized, gratuitously broken by esr, and now resides in
74 ;; cookie1.el.
76 (provide 'spook)
78 ;;; spook.el ends here