1 |
;;; erbot.el --- Another robot for ERC. |
;;; erbot.el --- Another robot for ERC. |
2 |
;; Time-stamp: <2005-08-11 20:34:10 deego> |
;; Time-stamp: <2005-08-16 00:00:02 forcer> |
3 |
;; Emacs Lisp Archive entry |
;; Emacs Lisp Archive entry |
4 |
;; Filename: erbot.el |
;; Filename: erbot.el |
5 |
;; Package: erbot |
;; Package: erbot |
650 |
(add-hook 'erc-server-PRIVMSG-functions 'erbot-remote t) |
(add-hook 'erc-server-PRIVMSG-functions 'erbot-remote t) |
651 |
;; Do we need this local command thing...? |
;; Do we need this local command thing...? |
652 |
;;(add-hook 'erc-send-completed-hook 'erbot-local t) |
;;(add-hook 'erc-send-completed-hook 'erbot-local t) |
653 |
(add-hook 'erc-server-376-functions |
(add-hook 'erc-server-001-functions |
654 |
'erbot-autojoin-channels)) |
'erbot-autojoin-channels)) |
655 |
(t |
(t |
656 |
(add-hook 'erc-server-PRIVMSG-hook 'erbot-remote t) |
(add-hook 'erc-server-PRIVMSG-hook 'erbot-remote t) |
657 |
;; Do we need this local command thing...? |
;; Do we need this local command thing...? |
658 |
;;(add-hook 'erc-send-completed-hook 'erbot-local t) |
;;(add-hook 'erc-send-completed-hook 'erbot-local t) |
659 |
(add-hook 'erc-server-376-hook |
(add-hook 'erc-server-001-hook |
660 |
'erbot-autojoin-channels)) |
'erbot-autojoin-channels)) |
661 |
) |
) |
662 |
(erbot-install-symbols) |
(erbot-install-symbols) |