--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/shared/ht-rooms.config	Mon Feb 08 11:44:37 2021 +0000
@@ -0,0 +1,36 @@
+(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)