;;; erbot-init.el --- Initialize functions for interfacing with erbot.

;; This file is part of Michael Olson's Emacs settings.

;; The code in this file may be used, distributed, and modified
;; without restriction.

;; I use initsplit.el to separate customize settings on a per-project
;; basis.

;; Add working directories to load path
(add-to-list 'load-path "/stuff/proj/emacs/erbot/elisp")
(add-to-list 'load-path "/stuff/proj/emacs/erbot/elisp/erbot")
(add-to-list 'load-path "/stuff/proj/emacs/erbot/elisp/erbot/contrib")

;; Load training stuff
(require 'erbtrain)
(require 'erbwiki)
(require 'idledo)
(require 'timerfunctions)

;;; Functions

(defun my-train-erbot-now ()
  "Make use of all those idledo's right now!"
  (interactive)
  (condition-case err
      (while (eq (caar idledo-list) 'erbtrain)
        (idledo-once 1)
        (sit-for 1)
        (sleep-for (+ 5 (random 5)))
        (sit-for 1))
    (error err))
  (message "Done training!"))

;;; Settings

;; Alist of wiki sites to sponge off of

(setq
 erbwiki-index-pages
 '(("cw" "http://www.emacswiki.org/cgi-bin/community/"
    "\"http://www.emacswiki.org/cgi-bin/community?action=index;raw=1\""
    nil "plugbot: ")
   ("fw" "http://www.etrumeus.com/ferment/"
    "\"http://www.etrumeus.com/ferment/TitleIndex?action=titleindex\""
    nil "plugbot: ")
   ("plug" "http://plug.student-orgs.purdue.edu/plugwiki/"
    "\"http://plug.student-orgs.purdue.edu/plugwiki/TitleIndex?action=titleindex\""
    nil "plugbot: ")
   ("hwh" "http://hurd.gnufans.org/bin/view/Hurd/"
    "\"http://hurd.gnufans.org/bin/view/Hurd/WebTopicList?skin=plain\""
    erbwiki-get-fields-spaced "plugbot: ")
   ("hwd" "http://hurd.gnufans.org/bin/view/Distrib/"
    "\"http://hurd.gnufans.org/bin/view/Distrib/WebTopicList?skin=plain\""
    erbwiki-get-fields-spaced "plugbot: ")
   ("hwmain" "http://hurd.gnufans.org/bin/view/Main/"
    "\"http://hurd.gnufans.org/bin/view/Main/WebTopicList?skin=plain\""
    erbwiki-get-fields-spaced "plugbot: ")
   ("hwmach" "http://hurd.gnufans.org/bin/view/Mach/"
    "\"http://hurd.gnufans.org/bin/view/Mach/WebTopicList?skin=plain\""
    erbwiki-get-fields-spaced "plugbot: ")
   ("hwmig" "http://hurd.gnufans.org/bin/view/Mig/"
    "\"http://hurd.gnufans.org/bin/view/Mig/WebTopicList?skin=plain\""
    erbwiki-get-fields-spaced "plugbot: ")
   ("hwg" "http://hurd.gnufans.org/bin/view/GNU/"
    "\"http://hurd.gnufans.org/bin/view/GNU/WebTopicList?skin=plain\""
    erbwiki-get-fields-spaced "plugbot: ")))

;;; Customizations

(setq erbtrain-buffer "#plugbot"
      erbwiki-file-name "/stuff/proj/emacs/erbot/train/wiki-index"
      erbwiki-train-file-name "/stuff/proj/emacs/erbot/train/wiki-train")

;;; erbot-init.el ends here