cgit.sxemacs.org Git - packages/blob - xemacs-packages/zenirc/src/zenirc-meditate.el

   1 ;;; zenirc-meditate.el --- admonish others for disturbing your meditation
   2
   3 ;; Copyright (C) 1995, 1997 Noah S. Friedman
   4
   5 ;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
   6 ;; Maintainer: pp@sno.pp.se
   7 ;; Keywords: zenirc, extensions
   8 ;; Created: 1995-04-09
   9
  10 ;; This program is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14 ;;
  15 ;; This program is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19 ;;
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with this program; if not, you can either send email to this
  22 ;; program's maintainer or write to: The Free Software Foundation,
  23 ;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
  24
  25 ;;; Commentary:
  26 ;;; Code:
  27
  28 (require 'zenirc-trigger)
  29
  30 (defconst zenirc-meditate-response-percentage 1)
  31
  32 (defconst zenirc-meditate-response-list
  33   '("Activity through inactivity."
  34     "Don't bother."
  35     "Enlightenment does not come from typing."
  36     "Enlightenment does not require a keyboard."
  37     "Hair will grow on your palms if you keep typing."
  38     "Meditate, or die."
  39     "Once a student typed too much and died."
  40     "Stop fidgeting, you're bothering the others."
  41     "The keyboard is sure to block your mind."
  42     "Will you stop the infernal racquet and meditate!?"
  43     "Your fingers will destroy your meditation."
  44     "Your keyboard is not the path to enlightenment."
  45     "Your typing detracts from your enlightenment."))
  46
  47 (defun zenirc-meditate ()
  48   (and (< (random 1000) zenirc-meditate-response-percentage)
  49        (nth (random (length zenirc-meditate-response-list))
  50             zenirc-meditate-response-list)))
  51
  52 (zenirc-trigger-register "meditate" 'zenirc-meditate "^.")
  53
  54 (provide 'zenirc-meditate)
  55
  56 ;; zenirc-meditate.el ends here