lisp/play/spook.el

   1 ;;; spook.el --- spook phrase utility for overloading the NSA line eater
   2
   3 ;; Copyright (C) 1988, 1993, 2001-2013 Free Software Foundation, Inc.
   4
   5 ;; Maintainer: FSF
   6 ;; Keywords: games
   7 ;; Created: May 1987
   8
   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
  13 ;; the Free Software Foundation, either version 3 of the License, or
  14 ;; (at your option) 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.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 ;;; Commentary:
  25
  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.
  29 ;;
  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!
  35
  36 ;;; Code:
  37
  38 (require 'cookie1)
  39
  40 ; Variables
  41 (defgroup spook nil
  42   "Spook phrase utility for overloading the NSA line eater."
  43   :prefix "spook-"
  44   :group 'games)
  45
  46 (defcustom spook-phrases-file (expand-file-name "spook.lines" data-directory)
  47   "Keep your favorite phrases here."
  48   :type 'file
  49   :group 'spook)
  50
  51 (defcustom spook-phrase-default-count 15
  52   "Default number of phrases to insert."
  53   :type 'integer
  54   :group 'spook)
  55
  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"))
  64
  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"))
  71
  72 (provide 'spook)
  73
  74 ;;; spook.el ends here