;;; Snippet of elisp for connecting to the CMU MOO for Software Engineering.
;;; Darrell Kindred <dkindred+@cmu.edu>

(if (not (fboundp 'mud))
    (load "/afs/cs/user/dkindred/emacs/mud"))
(if (not (assoc "MOOSE" (mud-servers)))
    (setq mud-default-servers
	  (cons '("MOOSE" MOO "cable.compose.cs.cmu.edu" 7777)
		mud-default-servers)))

(defun moose ()
  "Enter the CMU MOO for Software Engineering (MOOSE)."
  (interactive)
  (mud "MOOSE"))