Mercurial > hg > xemacs
comparison local/ht-rooms-epoch.config @ 0:107d592c5f4a
DICE versions, used by pers/common, recursive, I think/hope
| author | Henry S. Thompson <ht@inf.ed.ac.uk> |
|---|---|
| date | Mon, 08 Feb 2021 11:44:37 +0000 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:107d592c5f4a |
|---|---|
| 1 (defvar no-news nil "inhibit news startup") | |
| 2 | |
| 3 (define-rooms '(("elisp" ("*scratch*" nil 0 0 80 23) | |
| 4 ((" a") (emacs-lisp-mode) 0 23 80 47)) | |
| 5 ("text" ((" b") nil 0 0 80 47)) | |
| 6 ("diary" ("diary.babyl" | |
| 7 (progn (rmail-input "~/mail/diary.babyl") | |
| 8 (setq ht-last-file | |
| 9 (expand-file-name | |
| 10 "~/mail/history/diary.msg"))) | |
| 11 0 0 80 12) | |
| 12 ("diary.babyl-summary" (update-default-diary t) 0 11 80 23)) | |
| 13 ("news" ("*Newsgroup*" (if (not no-news)(gnus)) 0 0 80 47)) | |
| 14 ("mail" ("RMAIL" (rmail) 0 0 80 47)))) | |
| 15 | |
| 16 (sit-for 1) | |
| 17 | |
| 18 (defun make-lisp-room () | |
| 19 "create and go to a room for lisp work" | |
| 20 (interactive) | |
| 21 (establish-room '("lisp" | |
| 22 ("*lisp*" (run-lisp) 0 0 80 23) | |
| 23 ((" ") (lisp-mode) 0 23 80 47)) | |
| 24 t)) | |
| 25 | |
| 26 (defun make-prolog-room () | |
| 27 "create and go to a room for prolog work" | |
| 28 (interactive) | |
| 29 (establish-room '("prolog" | |
| 30 ("*prolog*" (site-caseq (edin (run-prolog)) | |
| 31 (parc (run-sicstus))) | |
| 32 0 0 80 23) | |
| 33 ((" ") (prolog-mode) 0 23 80 47)) | |
| 34 t)) |