Mercurial > hg > xemacs

annotate shared/pers-init.el @ 1:6c73c7af9cdb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DICE versions, before pruning
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Mon, 08 Feb 2021 12:28:16 +0000
parents
children dd557432d846
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
1 ;; GNU Emacs init file for Henry Thompson
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
2 ;;; This part shared between all hosts
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
3 ;; This part is my personal stuff, not for other incarnations
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
4 ;;; initialisation file for Emacs, that is, (l)emacs and epoch common
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
5 ;;; Last edited: Fri Sep 25 09:22:22 1992
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
6 ;;; Edit history since port: made load-path not site-dependant
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
7 ;;; split into common-init for all my incarnations and pers-init for private
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
8 ;;; added lemacs compatibility
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
9
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
10 ;;; HACK to deal with current x-crash workaround that I use a tty-launched
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
11 ;;; xemacs via gnuclient from an X environment
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
12 (if (and (eq
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
13 (device-type (frame-device (get-frame-for-buffer (current-buffer))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
14 'x)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
15 (not (getenv "DISPLAY")))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
16 (progn (message "setting DISPLAY in env")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
17 (setenv "DISPLAY" ":0")))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
18
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
19 ;;; mail stuff
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
20 (setq mail-archive-file-name (concat "/disk/scratch/mail/cpy/general/"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
21 (format-time-string
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
22 "%Y-%m" (current-time))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
23 ".mbox"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
24
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
25 (defun hand ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
26 (interactive)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
27 (insert-file "~/pers/hand.txt"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
28
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
29 (setq rmail-dont-reply-to-names "hthompso*\\|h\\.thompso*\\|ht@*" )
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
30 (setq rmail-show-mime nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
31 (set-default 'ht-last-file (expand-file-name "/disk/scratch/mail/"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
32 (setq ht-diary-file-name "/disk/scratch/mail/diary.babyl")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
33 (setq mail-append-host "inf.ed.ac.uk")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
34 (setq mail-host-address "inf.ed.ac.uk")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
35
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
36 ;; new mail hackery
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
37 (site-caseq ((edin ircs ldc)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
38 (setq rmail-spool-directory (file-name-as-directory
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
39 (concat rmail-spool-directory
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
40 "ht-mail")))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
41 ;; don't know why this is necessary
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
42 (site-caseq ((edin)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
43 (setq rmail-primary-inbox-list
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
44 (list (concat rmail-spool-directory "ht")))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
45
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
46 (setq minibuffer-max-depth nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
47 (defun run-kcl ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
48 "Run an inferior kcl process"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
49 (interactive)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
50 (switch-to-buffer (make-shell "kcl" "kcl"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
51 (inferior-lisp-mode))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
52
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
53 (require 'mdn-extras)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
54 (require 'passwd) ; for shell login for kerberos
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
55 (setq auto-mode-alist
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
56 (append '(("/perl/" . perl-mode)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
57 ("\\.scm$" . lisp-mode)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
58 ("\\.dsl$" . lisp-mode))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
59 auto-mode-alist))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
60 (setq inferior-lisp-program "scheme")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
61 ;;; for scheme
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
62 (put 'letrec 'lisp-indent-function 1)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
63 (put 'case 'lisp-indent-function 1)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
64
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
65 (site-caseq (parc (nconc load-path '("/import/local/emacs/gnus-3.13/"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
66 (setq rmail-primary-inbox-list
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
67 '("~/mbox" "/net/piglet/usr/spool/mail/$USER"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
68
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
69 (defun run-sicstus ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
70 "Run an inferior Prolog process, input and output via buffer *prolog*."
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
71 (interactive)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
72 (if (not (boundp 'prolog-mode-map))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
73 (let ((load-path (cons
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
74 (site-caseq (parc "/import/prolog-1.8/emacs")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
75 (edin "??"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
76 load-path)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
77 (load "prolog" nil t)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
78 (require 'shell)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
79 (switch-to-buffer (make-shell "prolog" (site-caseq (edin "sicstus")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
80 (parc "prolog"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
81 (inferior-prolog-mode))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
82
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
83 (require 'hist)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
84 (rplacd (assoc "*shell*" hk-pat-table)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
85 "[a-z]+<[0-9]+>: ")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
86
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
87 ;; turn off suspend-emacs -- use pause-emacs (^X.) instead
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
88 (global-unset-key "\C-Z")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
89 (global-unset-key "\C-x\C-z")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
90
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
91 (global-set-key "\C-xl" (function goto-line))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
92
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
93 (require 'repl-comment)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
94
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
95 (require 'compress)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
96
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
97 (if (string-match "Lucid" emacs-version)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
98 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
99 (require 'lemacs-compat)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
100
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
101 (if (boundp 'epoch::version)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
102 ;; epoch only goes here
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
103 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
104 (if (string-match "4\\."emacs-version)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
105 (load "motion4" nil t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
106 (load "motion" nil t))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
107 (redisplay-frame)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
108
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
109 (require 'alarm)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
110
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
111 (defun ht-rooms-setup (&optional arg)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
112 (interactive)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
113 (redisplay-frame)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
114 (require 'mail-extras)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
115 (require 'diary)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
116 (require 'my-news)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
117 (let ((scr (current-frame)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
118 (load "ht-rooms-epoch.config" nil t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
119 (unwind-protect (make-frame-for-room "diary" "-0" "+130"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
120 (unwind-protect (make-frame-for-room "elisp" "-25" "+148"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
121 (unwind-protect (make-frame-for-room "news" "-50" "+166"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
122 (unwind-protect (make-frame-for-room "mail" "-75" "+184"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
123 (epoch::delete-frame scr))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
124 ;; presumably this is now frame local, so not quite the right thing.
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
125 (setq ht-default-config (current-window-configuration)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
126 ))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
127 (if (string-match "^\\(19\\|2\\)" emacs-version)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
128 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
129 ;; common v19
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
130 (if window-system
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
131 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
132 (add-hook 'sh-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
133 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
134 (setq perl-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
135 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
136 (setq emacs-lisp-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
137 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
138 (setq lisp-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
139 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
140 (setq sgml-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
141 (if (not
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
142 (boundp 'sgml-font-lock-keywords))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
143 (load "sgml-font-lock-keywords" t t))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
144 (font-lock-mode 1)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
145 ))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
146 (setq c-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
147 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
148 (setq c++-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
149 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
150 (setq scheme-mode-hook
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
151 '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
152 (setq
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
153 scheme-font-lock-keywords
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
154 (if (or
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
155 (boundp 'lisp-font-lock-keywords)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
156 (load "lisp-font-lock-keywords" t t))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
157 lisp-font-lock-keywords))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
158 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
159 (setq python-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
160 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
161 ))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
162
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
163
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
164 (setq sgml-catalog-files '("catalog" "/afs/inf.ed.ac.uk/user/h/ht/lib/sgml/catalog"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
165
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
166 (if (string-match "Lucid" emacs-version)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
167 ;; lemacs only goes here
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
168 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
169 (if (< emacs-major-version 21)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
170 (setq load-path
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
171 (append '("/usr/contrib/lib/xemacs/site-lisp/xml"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
172 "/usr/contrib/lib/xemacs/site-lisp/psgml")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
173 load-path))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
174 ; (pui-add-install-directory
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
175 ; "/net/sunsite.doc.ic.ac.uk/public/pub/Mirrors/ftp.xemacs.org/pub/xemacs/packages")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
176 ; (setq load-path (remove "/usr/contrib/lib/xemacs/xemacs-packages/lisp/gnus/" load-path))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
177 ;; DICE comes here 2012-01-13
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
178 (setq package-get-remove-copy nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
179 (setq bbdb-north-american-phone-numbers-p nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
180 (setq bbdb-use-pop-up nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
181 (setq bbdb-complete-name-allow-cycling t
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
182 bbdb-completion-type 'primary-or-name)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
183 (setq bbdb-quiet-about-name-mismatches t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
184 (setq bbdb-always-add-addresses t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
185 (setq bbdb-new-nets-always-primary t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
186 (setq bbdb-file "/disk/scratch/mail/.bbdb")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
187 (setq bbdb-hashtable-size 24203)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
188 (require 'bbdb)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
189 ;(require 'bbdb-rmail)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
190 (require 'bbdb-com) ; to fix auto-fill
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
191 (fset 'bbdb-auto-fill-function (lambda () t)) ; ditto
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
192 (fmakunbound 'bbdb-orig-rmail-expunge)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
193 ;(add-hook 'rmail-mode-hook 'bbdb-insinuate-rmail)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
194 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
195 (add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
196 (add-hook 'mail-setup-hook 'bbdb-define-all-aliases)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
197 (add-hook 'gnus-message-setup-hook 'bbdb-define-all-aliases)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
198 (if (not (fboundp 'define-mail-abbrev))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
199 ;; fix a bug which crashes occasionally -- see also
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
200 ;; bbdb-com
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
201 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
202 (require 'sendmail)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
203 (defadvice sendmail-pre-abbrev-expand-hook
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
204 (before bbdb-rebuilt-all-aliases activate)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
205 (bbdb-rebuilt-all-aliases))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
206 (defun gnuserv-start-maybe ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
207 (if (not (frame-live-p gnuserv-frame))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
208 (gnuserv-start)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
209 ;;; (require 'itimer)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
210 ;;; (start-itimer "gsr" 'gnuserv-start-maybe
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
211 ;;; 1200 1200 nil nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
212 )
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
213
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
214 (if window-system
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
215 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
216 ;; DICE comes here 2012-01-13
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
217 (require 'highlight-headers)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
218 (defun rmail-fontify-headers ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
219 (highlight-headers (point-min) (point-max) t))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
220 (add-hook 'rmail-show-message-hook 'rmail-fontify-headers)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
221 (setq dired-mode-hook
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
222 '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
223 (font-lock-mode 1)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
224 (define-key dired-mode-map
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
225 [button2] '(lambda (click)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
226 (interactive "e")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
227 (mouse-set-point click)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
228 (dired-advertised-find-file)))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
229 (setq highlight-headers-follow-url-function
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
230 'browse-url-firefox
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
231 ;;browse-url-browser-function
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
232 ;;'browse-url-mozilla
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
233 )
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
234 (setq browse-url-browser-function 'browse-url-firefox)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
235 (set-face-background 'modeline '((x) . "lightgrey"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
236 ;; DICE comes here 2012-01-13
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
237 (load "device-type-hacking" t t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
238 ;; (setq browse-url-mozilla-program "/usr/bin/X11/mozilla")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
239
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
240 ;; gnus
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
241 (setq nnml-directory (expand-file-name "/disk/scratch/mail/Mail")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
242 gnus-secondary-select-methods
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
243 '((nnml "ht"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
244 (gnus-show-threads nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
245 (gnus-article-sort-functions
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
246 (gnus-article-sort-by-subject
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
247 gnus-article-sort-by-date))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
248 gnus-home-directory "/disk/scratch/gnus" ; local disk
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
249 gnus-article-save-directory (expand-file-name "/disk/scratch/mail/Mail")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
250 gnus-message-archive-method
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
251 `(nnfolder "archive"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
252 (nnfolder-directory ,(expand-file-name
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
253 "/disk/scratch/mail/cpy"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
254 (nnfolder-active-file ,(expand-file-name
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
255 "/disk/scratch/cpy/active"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
256 (nnfolder-get-new-mail nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
257 (nnfolder-inhibit-expiry t)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
258
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
259 (load "gnus-init" nil t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
260
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
261 ;; override changed default, except in gnus
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
262 (setq mail-use-rfc822 nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
263 (add-hook 'gnus-summary-mode-hook
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
264 (function (lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
265 (make-local-variable 'mail-use-rfc822)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
266 (setq mail-use-rfc822 t))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
267 (if (>= emacs-major-version 21)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
268 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
269 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
270 (add-hook 'gnus-startup-hook 'bbdb-insinuate-message)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
271 ;; DICE comes here 2012-01-13
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
272 (defun ht-rooms-setup (&optional arg)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
273 (interactive)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
274 (require 'mail-extras)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
275 (require 'diary)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
276 (let ((scr (selected-frame)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
277 ; (sit-for 5)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
278 (load "ht-rooms.config" nil t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
279 ; Formerly, for troutbeck
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
280 ; (unwind-protect (make-screen-for-room "diary" "0" "+60"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
281 ; ; (sit-for 5)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
282 ; (unwind-protect (make-screen-for-room "elisp" "0" "+73"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
283 ; ; (sit-for 5)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
284 ; (unwind-protect (make-screen-for-room "news" "-50" "+85"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
285 ;; for ecclerig
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
286 (unwind-protect (make-screen-for-room "diary" "+1888" "+0"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
287 ; (sit-for 5)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
288 (unwind-protect (make-screen-for-room "elisp" "+1888" "+0"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
289 ; (sit-for 5)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
290 (unwind-protect (make-screen-for-room "news" "+1223" "+0"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
291 ; (sit-for 5)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
292 ; (unwind-protect (make-screen-for-room "mail" "-75" "+98"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
293 (sit-for 1)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
294 (delete-frame scr))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
295 (setq ht-default-config (current-window-configuration))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
296 ;; vanilla v19 goes here
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
297 (if window-system
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
298 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
299 (defvar ht-frame-parameter-mods
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
300 '((font . "-adobe-courier-medium-r-normal--14-*")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
301 (auto-raise . t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
302 (auto-lower . nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
303 (cursor-type . bar)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
304 ;; if we have X, we have ISO-Latin-1, so
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
305 ;; set char codes 128--255 to display as themselves.
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
306 (require 'disp-table)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
307 (standard-display-8bit 161 255)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
308 (transient-mark-mode t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
309 ;; hightlight searching in bold
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
310 (setq search-highlight t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
311 (make-face 'isearch)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
312 (copy-face 'bold 'isearch)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
313 (set-face-underline-p 'region t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
314 (set-face-background 'region "white")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
315 (set-face-foreground 'region "black")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
316 (setq c++-font-lock-keywords 'undef)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
317 (setq c-font-lock-keywords 'undef)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
318 (modify-frame-parameters
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
319 nil
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
320 ht-frame-parameter-mods)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
321 (setq default-frame-alist
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
322 (append ht-frame-parameter-mods default-frame-alist))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
323 ;; fix cut and paste
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
324 (setq interprogram-paste-function nil
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
325 interprogram-cut-function nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
326 (defun ht-mouse-set-region (click) "set region and primary selection"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
327 (interactive "e")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
328 (mouse-set-region click)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
329 (x-set-selection "PRIMARY" (buffer-substring (point)(mark))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
330 (defun ht-mouse-drag-region (click)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
331 "drag region and set primary selection"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
332 (interactive "e")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
333 (mouse-drag-region click)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
334 (if mark-active
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
335 (x-set-selection "PRIMARY" (buffer-substring (point)(mark)))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
336 (global-set-key [drag-mouse-1] (function ht-mouse-set-region))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
337 (global-set-key [down-mouse-1] (function ht-mouse-drag-region))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
338 (defun ht-mouse-insert-primary (click)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
339 "set point and insert primary selection"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
340 (interactive "e")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
341 (mouse-set-point click)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
342 (push-mark nil nil t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
343 (insert (x-selection)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
344 (global-set-key [mouse-2] (function ht-mouse-insert-primary))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
345 (setq dired-mode-hook
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
346 '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
347 (font-lock-mode 1)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
348 (define-key dired-mode-map
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
349 [mouse-2] '(lambda (click)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
350 (interactive "e")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
351 (mouse-set-point click)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
352 (dired-advertised-find-file)))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
353
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
354 (defun ht-rooms-setup (&optional arg)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
355 (interactive)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
356 (require 'mail-extras)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
357 (require 'diary)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
358 (require 'my-news)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
359 ;; override changed default, except in gnus
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
360 (setq mail-use-rfc822 nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
361 (add-hook 'gnus-summary-mode-hook
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
362 (function (lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
363 (make-local-variable 'mail-use-rfc822)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
364 (setq mail-use-rfc822 t))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
365 (let ((scr (selected-frame)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
366 (load "ht-rooms.config" nil t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
367 (unwind-protect (make-frame-for-room "elisp" "-25" "-58"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
368 (unwind-protect (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
369 (make-frame-for-room "news" "-50" "-40")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
370 ))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
371 (unwind-protect (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
372 (make-frame-for-room "mail" "-75" "-22")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
373 ))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
374 (unwind-protect (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
375 (make-frame-for-room
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
376 "diary"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
377 "-0"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
378 (concat
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
379 "+"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
380 (format
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
381 "%d"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
382 (-
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
383 (cdr
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
384 (assoc
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
385 'top
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
386 (frame-parameters
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
387 (cdr
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
388 (assoc
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
389 "elisp"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
390 frames-table)))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
391 18))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
392 ))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
393 (make-frame-invisible scr))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
394 (setq ht-default-config (current-window-configuration)))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
395 (setq load-path
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
396 (append '("/usr/contrib/lib/emacs/lisp/xml"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
397 "/usr/contrib/lib/emacs/lisp/psgml")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
398 load-path)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
399 (setq sgml-insert-missing-element-comment nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
400 (load "psgml" nil t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
401 (load "psgml-edit" nil t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
402 (load "xml-hack" nil t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
403 (add-hook 'sgml-mode-hook 'sgml-fix-para)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
404 )
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
405 ;; v18 emacs only goes here
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
406 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
407 (require 'compress)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
408 (defun ht-rooms-setup (&optional arg)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
409 (interactive)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
410 (require 'mail-extras)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
411 (require 'diary)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
412 (require 'my-news)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
413 (load "ht-rooms.config" nil t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
414 (setq ht-default-config (current-window-configuration)))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
415
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
416 (defun ht-rooms-resetup ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
417 (interactive)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
418 (setq rooms-table nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
419 (setq frames-table nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
420 (ht-rooms-setup))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
421
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
422 (defun sgml-fix-para ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
423 (setq paragraph-separate
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
424 "</[^>]*>\n\\([ \t]+\\| \\)")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
425 (setq paragraph-start
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
426 "^[ \t]*</?[A-Za-z._-]+[ >]"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
427
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
428 (defun highlight-headers-ht-follow-url-netscape (url &optional arg)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
429 (message "Sending URL to Netscape...")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
430 (save-excursion
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
431 (set-buffer (get-buffer-create "*Shell Command Output*"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
432 (erase-buffer)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
433 (if (equal 0 (call-process "netscape" nil t nil "-display" ":0.0"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
434 "-remote"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
435 (concat "openURL(" url ")")))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
436 ;; it worked
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
437 nil
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
438 ;; it didn't work, so start a new Netscape process.
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
439 (call-process "netscape" nil 0 nil url)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
440 (message "Sending URL to Netscape... done"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
441
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
442 ;;; Moved from custom.el -- not customisable, I think. . .
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
443 (setq
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
444 ecb-options-version "2.27"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
445 gnus-treat-display-smileys nil
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
446 gnus-treat-from-picon nil
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
447 gnus-treat-mail-picon nil
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
448 gnus-treat-newsgroups-picon nil
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
449 jde-enable-abbrev-mode t
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
450 package-get-require-signed-base-updates nil
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
451 pgg-passphrase-cache-expiry 36000
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
452 pui-package-install-dest-dir "/afs/inf.ed.ac.uk/user/h/ht/.xemacs/xemacs-packages"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
453 efs-ftp-program-args '("-i" "-n" "-g" "-v")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
454 efs-use-passive-mode t ; actually turns it _off_ !
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
455 )
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
456
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
457 ;;; The following duplicate settings in custom.el????
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
458 (custom-set-faces
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
459 '(font-lock-builtin-face ((((type x mswindows)(class color)(background light))(:foreground "Purple"))(((type tty)(class color))(:foreground "magenta"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
460 '(font-lock-comment-face ((((type x mswindows)(class color)(background light))(:foreground "blue4"))(((type tty)(class color))(:foreground "blue"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
461 '(font-lock-constant-face ((((type x mswindows)(class color)(background light))(:foreground "CadetBlue"))(((type tty)(class color))(:foreground "cyan"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
462 '(font-lock-doc-string-face ((((type x mswindows)(class color)(background light))(:foreground "green4"))(((type tty)(class color))(:foreground "green"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
463 '(font-lock-function-name-face ((((type x mswindows)(class color)(background light))(:foreground "brown4"))(((type tty)(class color))(:foreground "cyan" :bold))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
464 '(font-lock-keyword-face ((((type x mswindows)(class color)(background light))(:foreground "red4"))(((type tty)(class color))(:foreground "red" :bold))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
465 '(font-lock-preprocessor-face ((((type x mswindows)(class color)(background light))(:foreground "blue3"))(((type tty)(class color))(:foreground "cyan" :bold))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
466 '(font-lock-reference-face ((((type x mswindows)(class color)(background light))(:foreground "red3"))(((type tty)(class color))(:foreground "red"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
467 '(font-lock-string-face ((((type x mswindows)(class color)(background light))(:foreground "green4"))(((type tty)(class color))(:foreground "green" :bold))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
468 '(font-lock-type-face ((((type x mswindows)(class color)(background light))(:foreground "steelblue"))(((type tty)(class color))(:foreground "cyan" :bold))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
469 '(font-lock-variable-name-face ((((type x mswindows)(class color)(background light))(:foreground "magenta4"))(((type tty)(class color))(:foreground "magenta" :bold))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
470 '(font-lock-warning-face ((((type x mswindows)(class color)(background light))(:foreground "Red" :bold))(((type tty)(class color))(:foreground "red" :bold))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
471 )
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
472
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
473 (custom-set-faces
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
474 '(modeline (
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
475 (((type x mswindows)(class color))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
476 (:foreground "black" :background "gray80"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
477 (t
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
478 (:foreground "black" :background "white"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
479 '(modeline-buffer-id (
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
480 (((type x mswindows)(class color))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
481 (:foreground "blue4" :background "gray80"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
482 (((type tty)(class color))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
483 (:foreground "blue" :background "white"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
484 (t
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
485 (:foreground "black" :background "white" :bold t))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
486 '(modeline-mousable (
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
487 (((type x mswindows)(class color))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
488 (:foreground "firebrick" :background "gray80"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
489 (((type tty)(class color))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
490 (:foreground "red" :background "white"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
491 (t
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
492 (:foreground "black" :background "white"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
493 '(modeline-mousable-minor-mode (
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
494 (((type x mswindows)(class color))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
495 (:foreground "green4" :background "gray80"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
496 (((type tty)(class color))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
497 (:foreground "green" :background "white" :bold t))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
498 (t
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
499 (:foreground "black" :background "white"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
500 )
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
501
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
502 (defalias 'review (read-kbd-macro
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
503 "PhD SPC applicant SPC review, SPC please 4*<C-n> M-x insert- f SPC RET bus/ilc SPC new SPC RET 9*<C-n> C-e"))