blob: 0de78e39c35c49aee8946816c08e8882fad93e25 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
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
|
