diff options
Diffstat (limited to 'elisp/erbot/erbc6.el')
-rw-r--r-- | elisp/erbot/erbc6.el | 75 |
1 files changed, 75 insertions, 0 deletions
diff --git a/elisp/erbot/erbc6.el b/elisp/erbot/erbc6.el new file mode 100644 index 0000000..0de78e3 --- /dev/null +++ b/elisp/erbot/erbc6.el @@ -0,0 +1,75 @@ +;;; erbc6.el --- fsbot functions contributed by freenode users, esp. #emacsers. +;; Time-stamp: <2007-11-23 11:30:12 deego> +;; Copyright (C) 2003 D. Goel +;; Emacs Lisp Archive entry +;; Filename: erbc6.el +;; Package: erbc6 +;; Author: D. Goel <deego@gnufans.org> and #emacsers +;; Keywords: +;; Version: +;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ErBot +;; For latest version: +;; This file is NOT (yet) part of GNU Emacs. + +;; This 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. + +;; This 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., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + + +;;; Real Code: + + + +(defun fs-m8b nil + (fs-random-choose + '("Yes" "No" "Definitely" "Of course not!" "Highly likely." + "Ask yourself, d\o you really want to know?" + "I'm telling you, you don't want to know." "mu!"))) + + + +(defun fsi-C-h (sym &rest thing) + " +;;; 2003-08-16 T15:19:00-0400 (Saturday) D. Goel +Coded by bojohann on #emacs." + (cond + ((eq sym 'f) + (apply 'fs-df thing)) + ((eq sym 'k) + (apply 'fs-dk thing)) + ((eq sym 'c) + (apply 'fs-describe-key-briefly thing)) + ((eq sym 'w) + (apply 'fs-dw thing)) + ((eq sym 'v) + (apply 'fs-dv thing)))) + + +(defun fsi-wtf-is (&optional term &rest args) + (unless term + (error "Syntax: wtf TERM")) + (require 'wtf) + (funcall 'wtf-is (format "%s" term))) + + + +(defalias 'fsi-wtf 'fsi-wtf-is) + + +(provide 'erbc6) +(run-hooks 'erbc6-after-load-hook) + + + +;;; erbc6.el ends here |