Mercurial > hg > xemacs
comparison shared/ht-rooms.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 (define-rooms '(("elisp" ("*scratch*" nil 0 0 80 47)) | |
| 2 ("text" ((" ") nil 0 0 80 47)) | |
| 3 ("diary" | |
| 4 ("diary.babyl" | |
| 5 (progn (rmail-input ht-diary-file-name) | |
| 6 (setq ht-last-file | |
| 7 (expand-file-name | |
| 8 "~/mail/history/diary.msg"))) | |
| 9 0 0 80 11) | |
| 10 ("diary.babyl-summary" | |
| 11 (update-default-diary t) 0 11 80 23)) | |
| 12 ("news" ("*Group*" | |
| 13 (progn | |
| 14 (require 'my-news) | |
| 15 (gnus)) 0 0 80 47)) | |
| 16 )) | |
| 17 | |
| 18 ;;; next two should be parameterised for screen height | |
| 19 | |
| 20 (defun make-lisp-room () | |
| 21 "create and go to a room for lisp work" | |
| 22 (interactive) | |
| 23 (establish-room '("lisp" | |
| 24 ("*lisp*" (run-lisp) 0 0 80 23) | |
| 25 ((" ") (lisp-mode) 0 23 80 47)) | |
| 26 t)) | |
| 27 | |
| 28 (defun make-prolog-room () | |
| 29 "create and go to a room for prolog work" | |
| 30 (interactive) | |
| 31 (establish-room '("prolog" | |
| 32 ("*prolog*" (run-prolog) 0 0 80 23) | |
| 33 ((" ") (prolog-mode) 0 23 80 47)) | |
| 34 t)) | |
| 35 | |
| 36 (rooms-goto (assoc "news" rooms-table) nil) |