(define-rooms '(("elisp" ("*scratch*" nil 0 0 80 47))
		("text" ((" ") nil 0 0 80 47))
		("diary"
		 ("diary.babyl"
		  (progn (rmail-input ht-diary-file-name)
			 (setq ht-last-file
			       (expand-file-name
				"~/mail/history/diary.msg")))
		  0 0 80 11)
		 ("diary.babyl-summary"
		  (update-default-diary t) 0 11 80 23))
		("news" ("*Group*"
			 (progn
			   (require 'my-news)
			   (gnus)) 0 0 80 47))
		))

;;; next two should be parameterised for screen height

(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*" (run-prolog) 0 0 80 23)
		    (("   ") (prolog-mode) 0 23 80 47))
		  t))

(rooms-goto (assoc "news" rooms-table) nil)