380 |
;;;==================================================== |
;;;==================================================== |
381 |
|
|
382 |
(defun erbtrain-utils-teach-acronyms (&optional botstring) |
(defun erbtrain-utils-teach-acronyms (&optional botstring) |
383 |
"This code comes from Michael Olson. you will need emacs-wiki-wtf.el for |
"Teach the the bot from BOTSTRING some acronyms. |
384 |
this function to work. We are not sure about the license of that |
You will need wtf.el (from the contrib directory) for this |
385 |
file, if any. Don't forget to connect to irc before running this |
function to work. |
386 |
function. " |
|
387 |
|
Don't forget to connect to irc before running this function." |
388 |
(interactive) |
(interactive) |
389 |
(idledo-nullify) |
(idledo-nullify) |
390 |
(require 'emacs-wiki) |
(require 'wtf) |
|
(require 'emacs-wiki-wtf) |
|
391 |
(unless botstring (setq botstring ", ")) |
(unless botstring (setq botstring ", ")) |
392 |
(setq erbtrain-list |
(setq erbtrain-list |
393 |
(mapcar (lambda (ref) |
(mapcar #'(lambda (ref) |
394 |
(concat botstring (car ref) |
(concat botstring (car ref) |
395 |
" is short for " (upcase-initials (cdr ref)))) |
" is short for " |
396 |
emacs-wiki-wtf-alist)) |
(upcase-initials (cdr ref)))) |
397 |
|
wtf-alist)) |
398 |
(erbtrain-resume) |
(erbtrain-resume) |
399 |
(ignore-errors (idledo-start))) |
(ignore-errors (idledo-start))) |
400 |
|
|
401 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
402 |
(provide 'erbtrain) |
(provide 'erbtrain) |
403 |
(run-hooks 'erbtrain-after-load-hooks) |
(run-hooks 'erbtrain-after-load-hooks) |
404 |
|
|