/[erbot]/erbot/contrib/wtf.el
ViewVC logotype

Diff of /erbot/contrib/wtf.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by mwolson, Thu Aug 11 23:11:54 2005 UTC revision 1.9 by mwolson, Tue Aug 16 00:52:34 2005 UTC
# Line 15  Line 15 
15  ;; GNU General Public License for more details.  ;; GNU General Public License for more details.
16  ;;  ;;
17  ;; You should have received a copy of the GNU General Public License  ;; You should have received a copy of the GNU General Public License
18  ;; along with this program; if not, write to the Free Software  ;; along with GNU Emacs; see the file COPYING.  If not, write to the
19  ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20    ;; Boston, MA 02110-1301, USA.
21    
22  ;;; Commentary:  ;;; Commentary:
23    
24  ;; Thanks to Trent Buck for `emacs-wiki-wtf.el', which inspired the  ;; Thanks to Trent Buck for `emacs-wiki-wtf.el', which inspired the
25  ;; creation of `wtf.el'.  ;; creation of `wtf.el'.
26    ;;
27  ;; The terms were downloaded from  ;; The terms were downloaded from
28  ;; http://cvsweb.netbsd.org/bsdweb.cgi/src/share/misc/.  No copyright  ;; http://cvsweb.netbsd.org/bsdweb.cgi/src/share/misc/.  No copyright
29  ;; notice was included, but since the program that makes use of them  ;; notice was included, but the intent of the original author was to
30    ;; put these terms in the public domain.  This was deduced from
31    ;; several emails sent to the authors of these files.
32    ;;
33    ;; The original program that uses these files in NetBSD
34  ;; (http://cvsweb.netbsd.org/bsdweb.cgi/src/games/wtf/wtf) is in the  ;; (http://cvsweb.netbsd.org/bsdweb.cgi/src/games/wtf/wtf) is in the
35  ;; public domain, it seems reasonable to infer that the acronym files  ;; public domain.
 ;; are also in the public domain.  
36    
37  (defvar wtf-alist  (defvar wtf-alist
38    '(;; $NetBSD: acronyms,v 1.146 2005/03/10 05:45:25 soda Exp $    '(;; $NetBSD: acronyms,v 1.146 2005/03/10 05:45:25 soda Exp $
# Line 611  Line 615 
615      ("NIFOC" . "naked in front of computer")      ("NIFOC" . "naked in front of computer")
616      ("PITB" . "pain in the butt")      ("PITB" . "pain in the butt")
617      ("ROTFLMAO" . "rolling on the floor laughing my ass off")      ("ROTFLMAO" . "rolling on the floor laughing my ass off")
618        ("TWAT" . "the war against terrorism")
619      ("WTB" . "where's the beef")      ("WTB" . "where's the beef")
620      )      )
621    "Mapping of acronyms to expansions.")    "Mapping of acronyms to expansions.")
# Line 642  DEF refers to the definition associated Line 647  DEF refers to the definition associated
647    (interactive    (interactive
648     (list (completing-read "Term: "     (list (completing-read "Term: "
649                            (mapcar #'(lambda (term)                            (mapcar #'(lambda (term)
650                                        (downcase (car term)))                                        (list (downcase (car term))))
651                                    wtf-alist)                                    wtf-alist)
652                            nil t (wtf-get-term-at-point))))                            nil t (wtf-get-term-at-point))))
653    (when (stringp term)    (when (stringp term)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26