diff options
Diffstat (limited to 'elisp/erbot/examples/dotemacs-mybot')
-rw-r--r-- | elisp/erbot/examples/dotemacs-mybot | 238 |
1 files changed, 238 insertions, 0 deletions
diff --git a/elisp/erbot/examples/dotemacs-mybot b/elisp/erbot/examples/dotemacs-mybot new file mode 100644 index 0000000..0b8633a --- /dev/null +++ b/elisp/erbot/examples/dotemacs-mybot @@ -0,0 +1,238 @@ +;; -*- emacs-lisp -*- + + +(setq erbot-nickserv-p t) + +(setq erc-prompt-for-nickserv-password nil) + +(setq erc-nickserv-passwords + '((freenode (("mybot" . "mypasswd"))))) + +(setq h4x0r-sometimes-replace + '(("ea" "33") ("er" "0r") ("a" "4") + ;;("b" "8") + ;;("d" "|>") + ("e" "3" "E") ;;("f" "|=") ("h" "|-|") + ;;("i" "1" "|") ;;("k" "|<" "x") + ;;("l" "1" "|_") ("m" "|\\/|") ("n" "|\\|") + ("o" "0") ;;("q" "@") + ("s" + "5" "Z" "$") + ;;("t" "+" "7") + ("ck" "x") ("u" "U") ;;("v" "\\/") + + ;("x" + ;X" "><") ("y" "j" + )) + +(add-to-list 'load-path "~/elisp") +(add-to-list 'load-path "~/elisp/erbot") +(add-to-list 'load-path "~/elisp/erbot/erbot") + +(setq erc-keywords '("mybot" "ownersname")) + +(setq fs-internal-english-weights + + '( + 30 ; doctor --- + 30 ; yow + 30 ; fortune + 2 ;; flame + )) + +(setq fs-internal-botito-mode nil) + +;; this optional step +;; helps the bot get the locations of the .el files in emacs +(let ((aa default-directory)) + (cd "/usr/share/emacs/site-lisp") + (normal-top-level-add-subdirs-to-load-path) + (cd aa)) + +(require 'cl) +;;(setq erc-port 6667) +(require 'erc) +(require 'erc-match) +(require 'erc-track) +(require 'erball) +(add-hook 'erc-mode-hook + '(lambda () (interactive) + (require 'erc-match) + (erc-match-mode 1) + ;;(erc-match-enable) + (require 'erc-button) + (erc-button-enable) + nil + )) + + +(setq bbdb-file "~/pub/data/botbbdb") + +(setq erbot-servers-channels-test + '(("irc.freenode.net" + ("#mychannel" + + "#mybot" + ) + 6667 ;; this is the port, optional, can be omitted. + ) + ("irc.gnome.org" + ( + "#mychannel2" + ) + ;; omitting the port here 6667 + ) + + )) + + + + + + +(erbot-install) + + + +(add-hook 'erc-server-376-hook + '(lambda (&rest args) + (interactive) + (erc-track-modified-channels-mode 1) + nil)) + +;;(global-unset-key "\C-cs") + +(global-set-key "\C-cj " 'erbot-join-servers) +(global-set-key [f9 f1] 'erbot-join-servers) + +(global-unset-key [f6]) +(global-set-key [f6 f6] 'erblog-show-targets) +(global-set-key [f6 f7] 'erblog-reset-targets) +(global-set-key "\C-c\C-c" 'erc-send-current-line) + + +;(global-set-key "\C-cr" 'erblog-reset-targets) + + + + + + + +;;(setq fs-limit-line-length 125) + + +;;(setq fs-limit-length + ;; 410) + +;;(setq fs-limit-lines 5 ) + +(setq bbdb-case-fold-search t) +(setq erc-auto-query t) + +;; Don't send more than 5 messages in 10 seconds. This prevents the +;; bot from getting kicked. +(setq erc-server-flood-penalty 2) +(setq erc-server-flood-margin 10) + +;; To restrict "automated" replies, change the "" below to your +;; favorite channels, example: +;;"\\(mychannel1\\|mychannel2\\)" +(setq fs-internal-query-target-regexp "") + +(setq fs-internal-google-level 60) + +(setq erbkarma-file "~/public_html/karma/karma") +(setq fs-internal-google-time 4) +(setq fs-internal-dictionary-time 4) + +(load "~/.emacs.private") + + +(setq erbkarma-tgt-check-string + "^\\(#mychannel\\)$") + +;; .emacs ends here.. + + + + + + +(setq erbot-nick "mybot") +(setq erc-user-full-name "My Bot") + +(setq erbot-servers-channels-main + '(("irc.freenode.net" + ("#mybot" + "#mychannel" + "#mychannel2" + )) + ("irc.gnome.org" + ( + "#mychannel" + + ) + + ))) + +(setq erbot-servers-channels erbot-servers-channels-main) + + +(setq fs-google-level 60) + + + +(setq erbot-servers-channels-test + '(("irc.freenode.net" + (;;"#fsbot" + "#mybot" + )) + ("irc.gnome.org" + (;;"#fsbotgnome" + ;;"#gnome" + ) + ) + + )) + +(setq bbdb-file-coding-system 'raw-text) +(require 'erball) +(erbunlisp-install) + +;; this delysid's server containing many dictionaries, if you prefer +;; the default server dict.org, just comment out this line. +(setq dictionary-server "dict.tu-graz.ac.at") + + +(fs-pf-load) +(fs-pv-load) + +(ignore-errors + (fs-user-init)) + +(require 'idledo) +(idledo-add-periodic-action-crude + '(fs-pv-save)) + +(add-hook 'kill-emacs-hook + 'fs-pv-save) + +;; consider uncommenting these +;;(add-to-list 'erblisp-allowed-words '&optional) +;;(add-to-list 'erblisp-allowed-words '&rest) + + +;;uncomment this only for a channel full of emacs hackers... see C-h v +;;(setq fs-internal-parse-error-p t) + +(setq units-dat-file "/usr/share/misc/units.dat") + +(add-to-list 'load-path "~/public_html/data") + + + + +;; .emacs ends here.. + + |