; load EOLCR, set debugging, run EOLCR

; (setq my-olcr "/afs/athena/astaff/project/eolcdev/Emacs19/")
; moved to emacs.el

(defun olcr-loader nil
  "set debug-on-error and load OLCR"
  (interactive)
  (load-file (concat my-olcr "eolcr/olcr.el"))
  (load-file (concat my-olcr "eolcr/olc-commands.el"))
  (load-file (concat my-olcr "eolcr/other-commands.el"))
  (load-file (concat my-olcr "eolcr/special-commands.el"))
  (load-file (concat my-olcr "eolcr/zclient.el"))
  (load-file (concat my-olcr "eolcr/help.el"))
  (load-file (concat my-olcr "eolcr/status-mode.el"))
  (load-file (concat my-olcr "eolcr/follow-mode.el"))
  (load-file (concat my-olcr "eolcr/description-mode.el"))
  (load-file (concat my-olcr "eolcr/fix-bs-mode.el"))
  (load-file (concat my-olcr "eolcr/nail-mode.el"))
  (load-file (concat my-olcr "eolcr/indent-mode.el"))
  (load-file (concat my-olcr "eolcr/collapse-mode.el"))
  (load-file (concat my-olcr "eolcr/short-mode.el"))
  (setq debug-on-error 't)
;  (debug-on-entry 'olcr-list)
;  (debug-on-entry 'olcr-indent-mode)
  (setq olcr-dont-quit-emacs 't)
  (olcr-list))

; in living color...  needs -rv

(defun olcr-list-incolor nil
  "get COLOR and load OLCR"
  (interactive)
  (hilit)
  (olcr-list))

; in slightly dead color... =)

(defun olcr-loader-incolor nil
  "get COLOR and load debugging OLCR"
  (interactive)
  (hilit)
  (olcr-loader))

(defun olcr-list-si nil
  "load OLCR pointed at SOMETHING-INTELLIGENT.MIT.EDU"
  (interactive)
  (setq olcr-server "something-intelligent.mit.edu"
	olcr-servers '(("matisse.mit.edu"  "olc"   "olc.matisse")
		       ("something-intelligent.mit.edu" "olc" "olc.something-intelligent") 
		       ("nemesis.mit.edu"  "olta"  "olc.nemesis")))
  (olcr-list))