Mercurial > hg > xemacs

comparison pers-init.el @ 36:642211cbf13a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
prepare for switch to this from ~/emacs/...
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Wed, 22 Nov 2023 22:31:53 +0000
parents ce71d12b00ad
children fc30f30d88d7
comparison
equal deleted inserted replaced
34:034ed479179e 36:642211cbf13a
20 ;;; mail stuff 20 ;;; mail stuff
21 (site-caseq (edin 21 (site-caseq (edin
22 (setq mail-archive-file-name (concat "/disk/scratch/mail/cpy/general/" 22 (setq mail-archive-file-name (concat "/disk/scratch/mail/cpy/general/"
23 (format-time-string 23 (format-time-string
24 "%Y-%m" (current-time)) 24 "%Y-%m" (current-time))
25 ".mbox")) 25 ".mbox")))
26 (t (setq mail-archive-file-name "~/mail/cpy/general")))) 26 (t (setq mail-archive-file-name "~/mail/cpy/general")))
27 27
28 28
29 (setq rmail-dont-reply-to-names "hthompso*\\|h\\.thompso*\\|ht@*" ) 29 (setq rmail-dont-reply-to-names "hthompso*\\|h\\.thompso*\\|ht@*" )
30 30
31 (site-caseq (edin 31 (site-caseq (edin
219 (define-key dired-mode-map 219 (define-key dired-mode-map
220 [button2] '(lambda (click) 220 [button2] '(lambda (click)
221 (interactive "e") 221 (interactive "e")
222 (mouse-set-point click) 222 (mouse-set-point click)
223 (dired-advertised-find-file))))) 223 (dired-advertised-find-file)))))
224 (set-face-background 'modeline '((x) . "lightgrey")) 224 (set-face-background 'modeline '((x) . "lightgrey"))))
225 ))
226 ;; DICE comes here 2012-01-13 225 ;; DICE comes here 2012-01-13
227 (load "device-type-hacking" t t) 226 (load "device-type-hacking" t t)
227 ;; override changed default, except in gnus
228 (message "dth") 228 (message "dth")
229 (site-caseq (edin 229 (site-caseq (edin
230 (setq highlight-headers-follow-url-function
231 'browse-url-firefox
232 )
233 (setq browse-url-browser-function 'browse-url-firefox)
230 (defun ht-rooms-setup (&optional arg) 234 (defun ht-rooms-setup (&optional arg)
231 (interactive) 235 (interactive)
232 (require 'mail-extras) 236 (require 'mail-extras)
233 (require 'diary) 237 (require 'diary)
234 ;; override changed default, except in gnus
235 (setq mail-use-rfc822 nil)
236 (add-hook 'gnus-summary-mode-hook
237 (function (lambda ()
238 (make-local-variable 'mail-use-rfc822)
239 (setq mail-use-rfc822 t))))
240 (if (>= emacs-major-version 21)
241 (progn
242 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
243 (add-hook 'gnus-startup-hook 'bbdb-insinuate-message)))
244 (defun ht-rooms-setup (&optional arg)
245 (interactive)
246 (require 'mail-extras)
247 (require 'diary)
248 (let ((scr (selected-frame))) 238 (let ((scr (selected-frame)))
249 ; (sit-for 5) 239 ; (sit-for 5)
250 (load "ht-rooms.config" nil t) 240 (load "ht-rooms.config" nil t)
251 (unwind-protect (make-screen-for-room "diary" "0" "+62")) 241 (unwind-protect (make-screen-for-room "diary" "0" "+62"))
252 ; (sit-for 5) 242 ; (sit-for 5)
256 ; (sit-for 5) 246 ; (sit-for 5)
257 (unwind-protect (make-screen-for-room "mail" "-75" "+113")) 247 (unwind-protect (make-screen-for-room "mail" "-75" "+113"))
258 (sit-for 1) 248 (sit-for 1)
259 (delete-screen scr)) 249 (delete-screen scr))
260 (setq ht-default-config (current-window-configuration))))) 250 (setq ht-default-config (current-window-configuration)))))
261 ) 251 (message "gnus-init")
262 (message "gnus-init") 252 (site-caseq ((edin markup maritain)
263 (site-caseq ((edin markup maritain) 253 (require 'gnus-init)))
264 (require 'gnus-init))) 254 )
265 )
266 ;; vanilla v19 goes here 255 ;; vanilla v19 goes here
267 ;; probably stale/broken 256 ;; probably stale/broken
268 (message "vanilla") 257 (message "vanilla")
269 (if window-system 258 (if window-system
270 (progn 259 (progn
331 (interactive "e") 320 (interactive "e")
332 (mouse-set-point click) 321 (mouse-set-point click)
333 (dired-advertised-find-file))))) 322 (dired-advertised-find-file)))))
334 323
335 (defun ht-rooms-setup (&optional arg) 324 (defun ht-rooms-setup (&optional arg)
336 (interactive) 325 (interactive)
337 (require 'mail-extras) 326 (require 'mail-extras)
338 (require 'diary) 327 (require 'diary)
339 (require 'my-news) 328 (let ((scr (selected-frame)))
340 ;; override changed default, except in gnus 329 ; (sit-for 5)
341 (setq mail-use-rfc822 nil) 330 (load "ht-rooms.config" nil t)
342 (add-hook 'gnus-summary-mode-hook 331 ;; for ecclerig viewed from paul
343 (function (lambda () 332 (if (eq (device-pixel-width (selected-device)) 1920)
344 (make-local-variable 'mail-use-rfc822) 333 (progn
345 (setq mail-use-rfc822 t)))) 334 (unwind-protect
346 (let ((scr (selected-frame))) 335 (make-screen-for-room "diary" "+1219" "+68"))
347 (load "ht-rooms.config" nil t) 336 (unwind-protect
348 (unwind-protect (make-frame-for-room "elisp" "-25" "-58")) 337 (make-screen-for-room "elisp" "+1185" "+102"))
349 (unwind-protect (progn 338 (unwind-protect
350 (make-frame-for-room "news" "-50" "-40") 339 (make-screen-for-room "news" "+1253" "+34")))
351 )) 340 ;; for ecclerig in office
352 (unwind-protect (progn 341 (unwind-protect (make-screen-for-room "diary" "+1888" "+0"))
353 (make-frame-for-room "mail" "-75" "-22") 342 (unwind-protect (make-screen-for-room "elisp" "+1888" "+0"))
354 )) 343 (unwind-protect (make-screen-for-room "news" "+1223" "+0")))
355 (unwind-protect (progn 344 (sit-for 1)
356 (make-frame-for-room 345 (delete-frame scr))
357 "diary" 346 (setq ht-default-config (current-window-configuration))))))
358 "-0"
359 (concat
360 "+"
361 (format
362 "%d"
363 (-
364 (cdr
365 (assoc
366 'top
367 (frame-parameters
368 (cdr
369 (assoc
370 "elisp"
371 frames-table)))))
372 18))))
373 ))
374 (make-frame-invisible scr))
375 (setq ht-default-config (current-window-configuration))))))
376 (setq sgml-insert-missing-element-comment nil) 347 (setq sgml-insert-missing-element-comment nil)
377 (load "psgml" nil t) 348 (load "psgml" nil t)
378 (load "psgml-edit" nil t) 349 (load "psgml-edit" nil t)
379 (load "xml-hack" nil t) 350 (load "xml-hack" nil t)
380 (add-hook 'sgml-mode-hook 'sgml-fix-para) 351 (add-hook 'sgml-mode-hook 'sgml-fix-para)