morbid.el

morbid.el

;;; morbid.el --- Morbid phrase utility for invoking the Gmail Ads pity setting.

;;
;; To use this:
;;  Just before sending mail, do M-x morbid.
;;
;;  A number of phrases will be inserted into your buffer, to help Gmail's Ad
;;  Robot decide that this is an email about arranging your aunt's funeral and
;;  thus the wrong place to see a Netflix Ad. Ho ho ho! We've so outsmarted
;;  them! More like discretion is the better part of *Chumphood*!
;;
;;  So don't really use this, that would be mean. Besides, the best part of
;;  GMail is the ads. Try, for example: "Cleveland really needs to clean house
;;  and get rid of Bartolo Colon"
;;  
;; Example output:
;;
;;   murder audit says he doesn't love me end it all passed away kill death
;;   depression therapy bankruptcy slash funeral SIDS memorial divorce
;;

;;
;; To install:
;;   You will need to download also this file:
;;   
;;     http://infochimps.org:/static/utils/morbid/morbid.lines
;;   
;;   Put morbid.lines in [EMACS_ROOT]/etc/morbid.lines
;;   And put this one in [EMACS_ROOT]/lisp/play/morbid.el
;;   Then, M-x load-library morbid
;;   

;;; Commentary:

;; Steve Strassmann <straz@media-lab.media.mit.edu> didn't write the original
;; M-x spook command, and even if he did, he really didn't mean for you to use
;; it in an anarchistic way. Flip Kromer <flip@infochimps.org> may or may not
;; have reworked M-x spook to to hack Gmail's Pity Filter. The pity filter
;; was brought to the world's attention by
;;    http://homepage.mac.com/joester5/art/gmail.html
;; and then to my attention by http://waxy.org/links/archive/2009/07/index.shtml

;; This file is adapted from a standard module in GNU Emacs.
;;
;; Original is Copyright (C) 1988, 1993, 2001, 2002, 2003, 
;; 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
;; Keywords: games
;; Created: May 1987
;;
;; 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 3, 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, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Code:

(require 'cookie1)

; Variables
(defgroup morbid nil
  "Morbid phrase utility for invoking the Gmail Ads pity setting."
  :prefix "morbid-"
  :group 'games)

(defcustom morbid-phrases-file (expand-file-name "morbid.lines" data-directory)
  "Keep your favorite phrases here."
  :type 'file
  :group 'morbid)

(defcustom morbid-phrase-default-count 5
  "Default number of phrases to insert."
  :type 'integer
  :group 'morbid)

;;;###autoload
(defun morbid ()
  "Adds that special touch of class to your outgoing mail."
  (interactive)
  (cookie-insert morbid-phrases-file
		 morbid-phrase-default-count
		 "Checking gothness..."
		 "Checking gothness...Approved"))

;;;###autoload
(defun snarf-morbids ()
  "Return a vector containing the lines from `morbid-phrases-file'."
  (cookie-snarf morbid-phrases-file
		"Checking gothness..."
		"Checking gothness...Approved"))

;; Note: the implementation that used to take up most of this file has been
;; cleaned up, generalized, gratuitously broken by esr, and now resides in
;; cookie1.el.

(provide 'morbid)

;;; arch-tag: c682b61f-92b6-4492-9c0d-2367e562449c
;;; morbid.el ends here

morbid.lines

[morbid.lines]

This is the same format as zippy's yow.lines file.
Every entry ends in a ascii 0 (control-atsign)
Everything before the first ascii 0 is a comment.
Add your favorite morbid phrases here!

NOTE: You will have to re-insert those null characters by hand if you are
pasting in from the web. You're better off downloading

  http://infochimps.org:/static/utils/morbid/morbid.lines

funeral
arranged
suicide
death
passed away
murder
kill
police investigation
audit
bankruptcy
the money's gone
divorce
memorial
depression
hates me
therapy
want to kill
mistress
wrecked
slash
end it all
kill the bitch
says he doesn't love me
SIDS