;; Insert the name of a random deity at point.
;; Written as a joke some time in the late '90s. Updated October 2000
;; when I'd learned far more elisp than could be considered healthy.

(defvar deity-list '("Ghod"
                     "Ghodess"
                     "Buddah"
                     "YHVH"
                     "Yahveh"
                     "Shiva"
                     "C'thulu"
                     "Kali"
                     "Keffler"
                     "Ken"
                     "Dennis"
                     "Brian")
  "list of deitys to choose from") ;; add to this as appropriate!

(defun insert-appropriate-deity()
  (interactive)
  (insert (concat (nth (random (1- (length deity-list))) deity-list) " ")))