Mercurial > hg > xemacs

comparison pers-init.el @ 43:eee08de75336

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
try to do better at where news/mail/init stuff is handled, works on ecclerig, mostly, but may break maritain
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Sat, 16 Dec 2023 21:10:30 +0000
parents fc30f30d88d7
children 32a75a4db17b
comparison
equal deleted inserted replaced
42:597d985bf448 43:eee08de75336
15 'x) 15 'x)
16 (not (getenv "DISPLAY"))) 16 (not (getenv "DISPLAY")))
17 (progn (message "setting DISPLAY in env") 17 (progn (message "setting DISPLAY in env")
18 (setenv "DISPLAY" ":0"))) 18 (setenv "DISPLAY" ":0")))
19 19
20 ;;; mail stuff
21 (site-caseq (edin
22 (setq mail-archive-file-name (concat "/disk/scratch/mail/cpy/general/"
23 (format-time-string
24 "%Y-%m" (current-time))
25 ".mbox")))
26 (t (setq mail-archive-file-name "~/mail/cpy/general")))
27
28
29 (setq rmail-dont-reply-to-names "hthompso*\\|h\\.thompso*\\|ht@*" )
30
31 (site-caseq (edin
32 (setq rmail-show-mime nil)
33 (set-default 'ht-last-file (expand-file-name "/disk/scratch/mail/"))
34 (setq ht-diary-file-name "/disk/scratch/mail/diary.babyl")
35 (setq user-mail-address "ht@inf.ed.ac.uk")
36 (setq mail-append-host "inf.ed.ac.uk")
37 (setq mail-host-address "inf.ed.ac.uk")))
38
39 (setq user-full-name "Henry S. Thompson") 20 (setq user-full-name "Henry S. Thompson")
40
41 ;; new mail hackery
42 (site-caseq ((edin ircs ldc)
43 (setq rmail-spool-directory (file-name-as-directory
44 (concat rmail-spool-directory
45 "ht-mail")))))
46 ;; don't know why this is necessary
47 (site-caseq ((edin)
48 (setq rmail-primary-inbox-list
49 (list (concat rmail-spool-directory "ht")))))
50 21
51 (setq vc-command-messages t) 22 (setq vc-command-messages t)
52 23
53 (setq minibuffer-max-depth nil) 24 (setq minibuffer-max-depth nil)
54 (defun run-kcl () 25 (defun run-kcl ()
219 (define-key dired-mode-map 190 (define-key dired-mode-map
220 [button2] '(lambda (click) 191 [button2] '(lambda (click)
221 (interactive "e") 192 (interactive "e")
222 (mouse-set-point click) 193 (mouse-set-point click)
223 (dired-advertised-find-file))))) 194 (dired-advertised-find-file)))))
224 (set-face-background 'modeline '((x) . "lightgrey")))) 195 (set-face-background 'modeline '((x) . "lightgrey"))
196 (defun ht-rooms-setup (&optional arg)
197 (interactive)
198 (require 'rooms)
199 (require 'mail-extras)
200 (require 'diary)
201 (let ((scr (selected-frame)))
202 ; (sit-for 5)
203 (load "ht-rooms.config" nil t)
204 ;; for ecclerig viewed from paul
205 (if (eq (device-pixel-width (selected-device)) 1920)
206 (progn
207 (unwind-protect
208 (make-screen-for-room "diary" "+1219" "+68"))
209 (unwind-protect
210 (make-screen-for-room "elisp" "+1185" "+102"))
211 (unwind-protect
212 (make-screen-for-room "news" "+1253" "+34")))
213 ;; for ecclerig in office
214 (unwind-protect (make-screen-for-room "diary" "+1888" "+0"))
215 (unwind-protect (make-screen-for-room "elisp" "+1888" "+0"))
216 (unwind-protect (make-screen-for-room "news" "+1223" "+0")))
217 (sit-for 1)
218 (delete-frame scr))
219 (setq ht-default-config (current-window-configuration)))))
225 ;; DICE comes here 2012-01-13 220 ;; DICE comes here 2012-01-13
221 (setq interprogram-paste-function (lambda ()
222 (or (get-clipboard-foreign)
223 (if (selection-exists-p)
224 (get-selection-foreign)))))
226 (load "device-type-hacking" t t) 225 (load "device-type-hacking" t t)
227 ;; override changed default, except in gnus 226 ;; override changed default, except in gnus
228 (message "dth") 227 (message "dth")
229 (site-caseq (edin 228 (site-caseq (edin
230 (setq highlight-headers-follow-url-function 229 (setq highlight-headers-follow-url-function
231 'browse-url-firefox 230 'browse-url-firefox
232 ) 231 )
233 (setq browse-url-browser-function 'browse-url-firefox) 232 (setq browse-url-browser-function 'browse-url-firefox)
234 (defun ht-rooms-setup (&optional arg) 233 ))
235 (interactive)
236 (require 'mail-extras)
237 (require 'diary)
238 (let ((scr (selected-frame)))
239 ; (sit-for 5)
240 (load "ht-rooms.config" nil t)
241 (unwind-protect (make-screen-for-room "diary" "0" "+62"))
242 ; (sit-for 5)
243 (unwind-protect (make-screen-for-room "elisp" "-25" "+79"))
244 ; (sit-for 5)
245 (unwind-protect (make-screen-for-room "news" "-50" "+96"))
246 ; (sit-for 5)
247 (unwind-protect (make-screen-for-room "mail" "-75" "+113"))
248 (sit-for 1)
249 (delete-screen scr))
250 (setq ht-default-config (current-window-configuration)))))
251 (message "gnus-init") 234 (message "gnus-init")
252 (site-caseq ((edin markup maritain) 235 (site-caseq ((edin markup maritain)
253 (require 'gnus-init))) 236 (require 'gnus-init)))
254 ) 237 )
255 ;; vanilla v19 goes here 238 ;; vanilla v19 goes here
318 (define-key dired-mode-map 301 (define-key dired-mode-map
319 [mouse-2] '(lambda (click) 302 [mouse-2] '(lambda (click)
320 (interactive "e") 303 (interactive "e")
321 (mouse-set-point click) 304 (mouse-set-point click)
322 (dired-advertised-find-file))))) 305 (dired-advertised-find-file)))))
323 306 (message "defined rooms 2")
324 (defun ht-rooms-setup (&optional arg) 307 )))
325 (interactive)
326 (require 'mail-extras)
327 (require 'diary)
328 (let ((scr (selected-frame)))
329 ; (sit-for 5)
330 (load "ht-rooms.config" nil t)
331 ;; for ecclerig viewed from paul
332 (if (eq (device-pixel-width (selected-device)) 1920)
333 (progn
334 (unwind-protect
335 (make-screen-for-room "diary" "+1219" "+68"))
336 (unwind-protect
337 (make-screen-for-room "elisp" "+1185" "+102"))
338 (unwind-protect
339 (make-screen-for-room "news" "+1253" "+34")))
340 ;; for ecclerig in office
341 (unwind-protect (make-screen-for-room "diary" "+1888" "+0"))
342 (unwind-protect (make-screen-for-room "elisp" "+1888" "+0"))
343 (unwind-protect (make-screen-for-room "news" "+1223" "+0")))
344 (sit-for 1)
345 (delete-frame scr))
346 (setq ht-default-config (current-window-configuration))))))
347 (setq sgml-insert-missing-element-comment nil) 308 (setq sgml-insert-missing-element-comment nil)
348 (load "psgml" nil t) 309 (load "psgml" nil t)
349 (load "psgml-edit" nil t) 310 (load "psgml-edit" nil t)
350 (load "xml-hack" nil t) 311 (load "xml-hack" nil t)
351 (add-hook 'sgml-mode-hook 'sgml-fix-para) 312 (add-hook 'sgml-mode-hook 'sgml-fix-para)