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 $ |
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.") |
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) |