[Erbot-cvs] erbot ChangeLog README.txt examples/dotemacs-mybot

[Michael W. Olson]

CVSROOT:        /cvsroot/erbot
Module name:    erbot
Changes by:     Michael W. Olson <mwolson>      07/07/22 23:26:03

Modified files:
        .              : ChangeLog README.txt 
Added files:
        examples       : dotemacs-mybot 

Log message:
        Revision: address@hidden/erbot--cvs--0--patch-37
        
        Add sample .emacs file
        
        2007-07-22  Michael Olson  <address@hidden>
        
                * README.txt: Mention examples/dotemacs-mybot.
        
                * examples/dotemacs-mybot: New file that is the example .emacs 
for
                the bot.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/erbot/examples/dotemacs-mybot?cvsroot=erbot&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/erbot/ChangeLog?cvsroot=erbot&r1=1.67&r2=1.68
http://cvs.savannah.gnu.org/viewcvs/erbot/README.txt?cvsroot=erbot&r1=1.12&r2=1.13

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/erbot/erbot/ChangeLog,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -b -r1.67 -r1.68
--- ChangeLog   20 Jul 2007 01:32:09 -0000      1.67
+++ ChangeLog   22 Jul 2007 23:26:03 -0000      1.68
@@ -1,3 +1,10 @@
+2007-07-22  Michael Olson  <address@hidden>
+
+       * README.txt: Mention examples/dotemacs-mybot.
+
+       * examples/dotemacs-mybot: New file that is the example .emacs for
+       the bot.
+
 2007-07-19  Michael Olson  <address@hidden>
 
        * erbot.el (erbot-reply): Don't force the message through without

Index: README.txt
===================================================================
RCS file: /cvsroot/erbot/erbot/README.txt,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- README.txt  5 Jan 2006 20:29:22 -0000       1.12
+++ README.txt  22 Jul 2007 23:26:03 -0000      1.13
@@ -9,6 +9,10 @@
 also the versions known to work with erbot, but you might want to
 fetch their latest versions from their respective authors' websites.
 
+The file `examples/dotemacs-mybot' is meant to be the bot's .emacs
+file.  Copy it to .emacs in your bot's home directory, and then make
+any changes you like.
+
 NOTE: A data file for contrib/units.el may be obtained in Debian by
 performing "apt-get install units", and adding
   (setq units-dat-file "/usr/share/misc/units.dat")

Index: examples/dotemacs-mybot
===================================================================
RCS file: examples/dotemacs-mybot
diff -N examples/dotemacs-mybot
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ examples/dotemacs-mybot     22 Jul 2007 23:26:03 -0000      1.1
@@ -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..
+
+