Mercurial > hg > cc > cirrus_home

annotate lib/emacs/pers-init.el @ 116:3314f46a782f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
frame size
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Tue, 15 Jun 2021 16:58:31 +0000
parents a7e72a254790
children acae526510e2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
96
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
1 ;;; GNU Emacs init file for Henry Thompson
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
2 ;;; This part shared between all hosts
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
3 ;;; This part is my personal stuff, not for other incarnations
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
4 ;;; initialisation file for Emacs, that is, (l)emacs and epoch common
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
5 ;;; Last edited: Fri Sep 25 09:22:22 1992
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
6 ;;; Edit history since port: made load-path not site-dependant
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
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
8 ;;; added lemacs compatibility
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
9
116
3314f46a782f frame size
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 96
diff changeset
10 ;;; Screen
3314f46a782f frame size
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 96
diff changeset
11 (let ((f (selected-frame)))
3314f46a782f frame size
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 96
diff changeset
12 (set-frame-width f 81)
3314f46a782f frame size
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 96
diff changeset
13 (set-frame-height f 48))
3314f46a782f frame size
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 96
diff changeset
14
96
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
15 ;;; mail stuff
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
16 (setq mail-archive-file-name "~/mail/cpy/general")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
17 (setq rmail-dont-reply-to-names "hthompso*\\|h\\.thompso*\\|ht@*" )
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
18 (set-default 'ht-last-file (expand-file-name "~/mail/"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
19 (setq ht-diary-file-name "~/mail/diary.babyl")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
20 (setq mail-append-host "inf.ed.ac.uk")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
21 (setq user-full-name "Henry S. Thompson")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
22 (setq user-mail-address "ht@inf.ed.ac.uk")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
23 (setq mail-host-address "inf.ed.ac.uk")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
24
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
25 ;; new mail hackery
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
26 (site-caseq ((edin ircs ldc)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
27 (setq rmail-spool-directory (file-name-as-directory
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
28 (concat rmail-spool-directory
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
29 "ht-mail")))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
30
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
31 ;; sending mail on the road
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
32 ;; [moved to mail-from-m.el, which is required by gnus-init.el
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
33
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
34 ;; don't know why this is necessary
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
35 (site-caseq ((edin)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
36 (setq rmail-primary-inbox-list
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
37 (list (concat rmail-spool-directory "ht")))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
38
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
39 ;; Perforce
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
40
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
41 ;;(setq p4-global-server-port "zorg.milowski.com:1666")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
42 ;;(setenv "P4PORT" "zorg.milowski.com:1666")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
43 ;;(setenv "P4CLIENT" "MarkupMan")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
44 ;;(setenv "P4CONFIG" ".p4env")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
45 ;;(load-library "p4")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
46 ;;(setq p4-use-p4config-exclusively t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
47 ;;(p4-set-p4-executable "/c/Program Files/Perforce/p4.exe")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
48 (setq vc-command-messages t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
49
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
50 (setq minibuffer-max-depth nil)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
51 (defun run-kcl ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
52 "Run an inferior kcl process"
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
53 (interactive)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
54 (switch-to-buffer (make-shell "kcl" "kcl"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
55 (inferior-lisp-mode))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
56
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
57 ;(require 'mdn-extras)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
58 (setq auto-mode-alist
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
59 (append '(("/perl/" . perl-mode)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
60 ("\\.scm$" . scheme-mode))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
61 auto-mode-alist))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
62 ;(setq inferior-lisp-program "/c/Progra~1/ChezSc~1.4/bin/i3nt/petite")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
63 ;;; for scheme
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
64 (put 'letrec 'lisp-indent-function 1)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
65 (put 'case 'lisp-indent-function 1)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
66
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
67 (site-caseq (parc (nconc load-path '("/import/local/emacs/gnus-3.13/"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
68 (setq rmail-primary-inbox-list
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
69 '("~/mbox" "/net/piglet/usr/spool/mail/$USER")))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
70 (edin (setq load-path (cons
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
71 "/home/ht/emacs/shared/gnus-5.0.15/lisp"
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
72 load-path))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
73
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
74 (defun run-sicstus ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
75 "Run an inferior Prolog process, input and output via buffer *prolog*."
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
76 (interactive)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
77 (if (not (boundp 'prolog-mode-map))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
78 (let ((load-path (cons
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
79 (site-caseq (parc "/import/prolog-1.8/emacs")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
80 (edin "??"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
81 load-path)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
82 (load "prolog" nil t)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
83 (require 'shell)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
84 (switch-to-buffer (make-shell "prolog" (site-caseq (edin "sicstus")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
85 (parc "prolog"))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
86 (inferior-prolog-mode))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
87
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
88 (site-caseq ((laptop maritain cirrus))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
89 (t(require 'hist)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
90 (rplacd (assoc "*shell*" hk-pat-table)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
91 "[a-z]+<[0-9]+>: ")))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
92
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
93 ;; turn off suspend-emacs -- use pause-emacs (^X.) instead
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
94 (global-unset-key "\C-Z")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
95 (global-unset-key "\C-x\C-z")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
96
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
97 (global-set-key "\C-xl" (function goto-line))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
98
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
99 ;(require 'repl-comment)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
100
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
101 ;(require 'compress)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
102
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
103 (if (string-match "Lucid" emacs-version)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
104 (site-caseq ((laptop maritain cirrus))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
105 (t(require 'lemacs-compat))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
106
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
107 (if (boundp 'epoch::version)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
108 ;; epoch only goes here
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
109 (progn
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
110 (if (string-match "4\\."emacs-version)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
111 (load "motion4" nil t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
112 (load "motion" nil t))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
113 (redisplay-frame)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
114
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
115 (require 'alarm)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
116 (idle-save 15)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
117
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
118 (defun ht-rooms-setup (&optional arg)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
119 (interactive)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
120 (redisplay-frame)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
121 (require 'mail-extras)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
122 (require 'diary)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
123 (require 'my-news)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
124 (let ((scr (current-frame)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
125 (load "ht-rooms-epoch.config" nil t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
126 (unwind-protect (make-frame-for-room "diary" "-0" "+130"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
127 (unwind-protect (make-frame-for-room "elisp" "-25" "+148"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
128 (unwind-protect (make-frame-for-room "news" "-50" "+166"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
129 (unwind-protect (make-frame-for-room "mail" "-75" "+184"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
130 (epoch::delete-frame scr))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
131 ;; presumably this is now frame local, so not quite the right thing.
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
132 (setq ht-default-config (current-window-configuration)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
133 ))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
134 (if (string-match "^\\(19\\|2\\)" emacs-version)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
135 (progn
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
136 ;; common v19
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
137 (if window-system
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
138 (progn
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
139 (add-hook 'sh-mode-hook '(lambda ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
140 (font-lock-mode 1)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
141 (add-hook 'lsl-mode-hook '(lambda ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
142 (font-lock-mode 1)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
143 (add-hook 'perl-mode-hook '(lambda ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
144 (font-lock-mode 1)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
145 (add-hook 'emacs-lisp-mode-hook '(lambda ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
146 (font-lock-mode 1)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
147 (add-hook 'lisp-mode-hook '(lambda ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
148 (font-lock-mode 1)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
149 (add-hook 'sgml-mode-hook '(lambda ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
150 (if (not
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
151 (boundp 'sgml-font-lock-keywords))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
152 (load "sgml-font-lock-keywords" t t))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
153 (setq adaptive-fill-mode nil)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
154 (font-lock-mode 1)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
155 ))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
156 (add-hook 'c-mode-hook '(lambda ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
157 (font-lock-mode 1)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
158 (add-hook 'c++-mode-hook '(lambda ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
159 (font-lock-mode 1)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
160 (add-hook 'scheme-mode-hook
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
161 '(lambda ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
162 (setq
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
163 scheme-font-lock-keywords
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
164 (if (or
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
165 (boundp 'lisp-font-lock-keywords)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
166 (load "lisp-font-lock-keywords" t t))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
167 lisp-font-lock-keywords))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
168 (font-lock-mode 1)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
169 (add-hook 'python-mode-hook '(lambda ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
170 (font-lock-mode 1)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
171 ;(setq py-python-command "//c/Program Files/Python22/python")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
172 (setq sgml-insert-missing-element-comment nil)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
173 ;(load "psgml" nil t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
174 ;(load "psgml-edit" nil t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
175 ;; (load "xml-hack" nil t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
176 ; (setq sgml-catalog-files '("CATALOG" "f:/lib/sgml/catalog"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
177 (if (string-match "i386" (emacs-version))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
178 (progn (defun win32-get-clipboard-data-cmd ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
179 (interactive)(insert (win32-get-clipboard-data)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
180 (global-set-key
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
181 "\C-x\C-y" 'win32-get-clipboard-data-cmd)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
182 ;; gnus
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
183 ; (setq mail-signature t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
184
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
185 ;; loading gnus postponed to e.g. mail-from-delphix, q.v.
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
186
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
187 ; (require 'gnus-min)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
188 ))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
189 (site-caseq ((cirrus))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
190 (t (load "gnus-init" nil t)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
191
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
192 ;; (require 'idle)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
193 ;; (idle-save 15)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
194
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
195 (if (string-match "Lucid" emacs-version)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
196 ;; lemacs only goes here
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
197 (site-caseq ((cirrus)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
198 ;(load "perl-mode" nil t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
199 )
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
200 (t(progn
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
201 (setq bbdb-north-american-phone-numbers-p nil)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
202 (setq bbdb-use-pop-up nil)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
203 (require 'bbdb)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
204 (add-hook 'rmail-mode-hook 'bbdb-insinuate-rmail)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
205 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
206 (add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
207 (add-hook 'mail-setup-hook 'bbdb-define-all-aliases)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
208 (add-hook 'gnus-message-setup-hook 'bbdb-define-all-aliases)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
209
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
210
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
211
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
212 (if window-system
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
213 (progn
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
214 (require 'highlight-headers)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
215 (defun rmail-fontify-headers ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
216 (highlight-headers (point-min) (point-max) t))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
217 (add-hook 'rmail-show-message-hook 'rmail-fontify-headers)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
218 (setq dired-mode-hook
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
219 '(lambda ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
220 (font-lock-mode 1)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
221 (define-key dired-mode-map
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
222 [button2] '(lambda (click)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
223 (interactive "e")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
224 (mouse-set-point click)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
225 (dired-advertised-find-file)))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
226 ;; (setq highlight-headers-follow-url-function
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
227 ;; 'highlight-headers-ht-follow-url-netscape
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
228 ;; browse-url-browser-function
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
229 ;;'highlight-headers-ht-follow-url-netscape)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
230 ))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
231 ;; (load "~rjc/public_html/device-type-hacking.el")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
232 (load "perl-mode" nil t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
233 (defun ht-rooms-setup (&optional arg)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
234 (interactive)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
235 (require 'mail-extras)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
236 (require 'diary)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
237 (require 'my-news)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
238 ;; override changed default, except in gnus
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
239 (setq mail-use-rfc822 nil)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
240 (add-hook 'gnus-summary-mode-hook
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
241 (function (lambda ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
242 (make-local-variable 'mail-use-rfc822)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
243 (setq mail-use-rfc822 t))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
244 (if (>= emacs-major-version 21)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
245 (progn
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
246 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
247 (add-hook 'gnus-startup-hook 'bbdb-insinuate-message)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
248 (defun ht-rooms-setup (&optional arg)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
249 (interactive)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
250 (require 'mail-extras)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
251 (require 'diary)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
252 (let ((scr (selected-frame)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
253 ; (sit-for 5)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
254 (load "ht-rooms.config" nil t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
255 (unwind-protect (make-screen-for-room "diary" "0" "+62"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
256 ; (sit-for 5)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
257 (unwind-protect (make-screen-for-room "elisp" "-25" "+79"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
258 ; (sit-for 5)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
259 (unwind-protect (make-screen-for-room "news" "-50" "+96"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
260 ; (sit-for 5)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
261 (unwind-protect (make-screen-for-room "mail" "-75" "+113"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
262 (sit-for 1)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
263 (delete-screen scr))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
264 (setq ht-default-config (current-window-configuration)))))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
265 ;; vanilla v19 goes here
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
266 (if window-system
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
267 (progn
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
268 (defvar ht-frame-parameter-mods
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
269 '((auto-raise . t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
270 (auto-lower . nil)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
271 (cursor-type . bar)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
272 (nconc
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
273 (site-caseq ((laptop maritain) (list '(height . 35)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
274 ((cirrus))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
275 (t
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
276 (list
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
277 '(font .
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
278 "-adobe-courier-medium-r-normal--14-*"))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
279 ht-frame-parameter-mods
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
280 )
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
281 ;; if we have X, we have ISO-Latin-1, so
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
282 ;; set char codes 128--255 to display as themselves.
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
283 (require 'disp-table)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
284 (standard-display-8bit 161 255)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
285 ; (transient-mark-mode t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
286 ;; hightlight searching in bold
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
287 (setq search-highlight t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
288 (make-face 'isearch)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
289 (copy-face 'bold 'isearch)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
290 ; (set-face-underline-p 'region t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
291 ; (set-face-background 'region "white")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
292 ; (set-face-foreground 'region "black")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
293 ; (setq c++-font-lock-keywords 'undef)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
294 ; (setq c-font-lock-keywords 'undef)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
295 (modify-frame-parameters
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
296 nil
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
297 ht-frame-parameter-mods)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
298 (setq default-frame-alist
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
299 (append
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
300 ht-frame-parameter-mods default-frame-alist))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
301 ;; fix cut and paste
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
302 (setq interprogram-paste-function nil
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
303 interprogram-cut-function nil)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
304 (defun ht-mouse-set-region (click) "set region and primary selection"
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
305 (interactive "e")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
306 (mouse-set-region click)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
307 (x-set-selection "PRIMARY" (buffer-substring (point)(mark))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
308 (defun ht-mouse-drag-region (click)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
309 "drag region and set primary selection"
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
310 (interactive "e")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
311 (mouse-drag-region click)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
312 (if mark-active
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
313 (x-set-selection "PRIMARY" (buffer-substring (point)(mark)))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
314 (global-set-key [drag-mouse-1] (function ht-mouse-set-region))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
315 (global-set-key [down-mouse-1] (function ht-mouse-drag-region))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
316 (defun ht-mouse-insert-primary (click)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
317 "set point and insert primary selection"
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
318 (interactive "e")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
319 (mouse-set-point click)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
320 (push-mark nil nil t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
321 (insert (x-selection)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
322 (global-set-key [mouse-2] (function ht-mouse-insert-primary))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
323 (setq dired-mode-hook
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
324 '(lambda ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
325 (font-lock-mode 1)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
326 (define-key dired-mode-map
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
327 [mouse-2] '(lambda (click)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
328 (interactive "e")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
329 (mouse-set-point click)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
330 (dired-advertised-find-file)))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
331
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
332 (defun ht-rooms-setup (&optional arg)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
333 (interactive)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
334 (require 'mail-extras)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
335 (require 'diary)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
336 (require 'my-news)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
337 ;; override changed default, except in gnus
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
338 (setq mail-use-rfc822 nil)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
339 (add-hook 'gnus-summary-mode-hook
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
340 (function (lambda ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
341 (make-local-variable 'mail-use-rfc822)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
342 (setq mail-use-rfc822 t))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
343 (let ((scr (selected-frame)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
344 (load "ht-rooms.config" nil t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
345 (unwind-protect (make-frame-for-room "elisp" "-25" "-58"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
346 (unwind-protect (progn
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
347 (make-frame-for-room "news" "-50" "-40")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
348 ))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
349 (unwind-protect (progn
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
350 (make-frame-for-room "mail" "-75" "-22")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
351 ))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
352 (unwind-protect (progn
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
353 (make-frame-for-room
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
354 "diary"
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
355 "-0"
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
356 (concat
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
357 "+"
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
358 (format
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
359 "%d"
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
360 (-
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
361 (cdr
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
362 (assoc
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
363 'top
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
364 (frame-parameters
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
365 (cdr
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
366 (assoc
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
367 "elisp"
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
368 frames-table)))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
369 18))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
370 ))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
371 (make-frame-invisible scr))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
372 (setq ht-default-config (current-window-configuration)))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
373 (setq sgml-insert-missing-element-comment nil)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
374 (add-hook 'sgml-mode-hook 'sgml-fix-para)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
375 ))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
376 ;; v18 emacs only goes here
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
377 (progn
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
378 (require 'compress)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
379 (defun ht-rooms-setup (&optional arg)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
380 (interactive)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
381 (require 'mail-extras)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
382 (require 'diary)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
383 (require 'my-news)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
384 (load "ht-rooms.config" nil t)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
385 (setq ht-default-config (current-window-configuration)))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
386
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
387 (defun sgml-fix-para ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
388 (setq paragraph-separate
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
389 "</[^>]*>\n\\([ \t]+\\| \\)")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
390 (setq paragraph-start
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
391 "^[ \t]*</?[A-Za-z._-]+[ >]"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
392
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
393 (defun highlight-headers-ht-follow-url-netscape (url)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
394 (message "Sending URL to Netscape...")
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
395 (save-excursion
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
396 (set-buffer (get-buffer-create "*Shell Command Output*"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
397 (erase-buffer)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
398 (if (equal 0 (call-process "netscape" nil t nil "-display" ":0.0"
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
399 "-remote"
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
400 (concat "openURL(" url ")")))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
401 ;; it worked
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
402 nil
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
403 ;; it didn't work, so start a new Netscape process.
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
404 (call-process "netscape" nil 0 nil url)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
405 (message "Sending URL to Netscape... done"))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
406
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
407 (site-caseq (laptop (defun system-name () "francis.markup.co.uk")))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
408
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
409 (cd (user-home-directory))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
410
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
411 (defun ht-custom-size ()
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
412 (interactive)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
413 (site-caseq ((laptop maritain)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
414 (message (format "pw: %s" (device-pixel-width (selected-device))))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
415 (if (fboundp 'device-pixel-width)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
416 (let ((pw (device-pixel-width (selected-device)))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
417 (ph (device-pixel-height (selected-device))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
418 (cond ((= pw 2048)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
419 ;; we're on a _really_ big external monitor
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
420 (set-frame-pixel-size (selected-frame) 900 1050)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
421 (set-frame-position (selected-frame) 0 0))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
422 ((= pw 1920)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
423 ;; we're on a 27" curved external monitor
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
424 (set-frame-pixel-size (selected-frame) 720 980)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
425 (site-caseq (cirrus
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
426 (set-frame-position
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
427 (selected-frame) 0 0))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
428 (t
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
429 (set-frame-position
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
430 (selected-frame) -8 2))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
431 ((= pw 1680)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
432 ;; we're on a big external monitor
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
433 (font-menu-set-font nil nil 10)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
434 (set-frame-pixel-size (selected-frame) 900 1000)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
435 (set-frame-position (selected-frame) -3 -20))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
436 ((= pw 1097)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
437 ;; we're on an XPS 13, mag. 300%
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
438 (require 'font-menu)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
439 (font-menu-set-font nil nil 9)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
440 (set-frame-pixel-size (selected-frame) 583 583); 80 x 39
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
441 (set-frame-position (selected-frame) -5 -26))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
442 ((= pw 1536)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
443 ;; we're on an XPS 13, mag. 250%
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
444 (require 'font-menu)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
445 (font-menu-set-font nil nil 10)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
446 (set-frame-pixel-size (selected-frame) 670 782); 81 x 49
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
447 (set-frame-position (selected-frame) -5 -26))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
448 ((= ph 768)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
449 ;; we're on a narrow cinema-ratio laptop
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
450 (set-frame-pixel-size (selected-frame) 690 710)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
451 (set-frame-position (selected-frame) -5 -26))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
452 ((= ph 900)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
453 ;; we're on a cinema-ratio laptop
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
454 (set-frame-pixel-size (selected-frame) 800 820)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
455 (set-frame-position (selected-frame) -3 -20))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
456 ((= pw 1600)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
457 ;; we're on a big external monitor
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
458 (set-frame-pixel-size (selected-frame) 900 1120)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
459 (set-frame-position (selected-frame) -3 -20))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
460 ((= pw 1280)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
461 (cond ((= ph 720)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
462 (set-frame-pixel-size (selected-frame) 700 655)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
463 (set-frame-position (selected-frame) -3 -30))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
464 (t
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
465 (set-frame-pixel-size (selected-frame) 700 960)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
466 (set-frame-position (selected-frame) -3 -20))))))))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
467
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
468 (ht-custom-size)
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
469
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
470 ;;; make dired list directories first
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
471 ;(defadvice dired-insert-directory (before my-dired-insert-directory
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
472 ; (dir-or-list switches &optional wildcard full-p))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
473 ; (setq switches (concat switches " --group-directories-first")))
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
474
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
475 ;(ad-activate 'dired-insert-directory)