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