(defvar no-news nil "inhibit news startup")

(define-rooms '(("elisp" ("*scratch*" nil 0 0 80 23)
		 ((" a") (emacs-lisp-mode) 0 23 80 47))
		("text" ((" b") nil 0 0 80 47))
		("diary" ("diary.babyl"
			  (progn (rmail-input "~/mail/diary.babyl")
				 (setq ht-last-file
				       (expand-file-name
					"~/mail/history/diary.msg")))
			  0 0 80 12)
		 ("diary.babyl-summary" (update-default-diary t) 0 11 80 23))
		("news" ("*Newsgroup*" (if (not no-news)(gnus)) 0 0 80 47))
		("mail" ("RMAIL" (rmail) 0 0 80 47))))

(sit-for 1)

(defun make-lisp-room ()
  "create and go to a room for lisp work"
  (interactive)
  (establish-room '("lisp"
		    ("*lisp*" (run-lisp) 0 0 80 23)
		    (("  ") (lisp-mode) 0 23 80 47))
		  t))

(defun make-prolog-room ()
  "create and go to a room for prolog work"
  (interactive)
  (establish-room '("prolog"
		    ("*prolog*" (site-caseq (edin (run-prolog))
				            (parc (run-sicstus)))
		                 0 0 80 23)
		    (("   ") (prolog-mode) 0 23 80 47))
		  t))