Mercurial > hg > xemacs

comparison pers-init.el @ 24:0e5b39d2f8bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
trying to clean up Paul vs. Maritain for Cirrus
author ht
date Sat, 07 Oct 2023 10:44:21 +0100
parents 7b2c4ed36302
children cb9b76219c55
comparison
equal deleted inserted replaced
23:5738cc494f7f 24:0e5b39d2f8bb
52 (require 'mdn-extras) 52 (require 'mdn-extras)
53 (setq auto-mode-alist 53 (setq auto-mode-alist
54 (append '(("/perl/" . perl-mode) 54 (append '(("/perl/" . perl-mode)
55 ("\\.scm$" . scheme-mode)) 55 ("\\.scm$" . scheme-mode))
56 auto-mode-alist)) 56 auto-mode-alist))
57 (setq inferior-lisp-program "/c/Progra~1/ChezSc~1.4/bin/i3nt/petite") 57 (setq inferior-lisp-program "scheme")
58 ;;; for scheme 58 ;;; for scheme
59 (put 'letrec 'lisp-indent-function 1) 59 (put 'letrec 'lisp-indent-function 1)
60 (put 'case 'lisp-indent-function 1) 60 (put 'case 'lisp-indent-function 1)
61 61
62 (site-caseq (parc (nconc load-path '("/import/local/emacs/gnus-3.13/")) 62 (site-caseq (parc (nconc load-path '("/import/local/emacs/gnus-3.13/"))
187 ;; (idle-save 15) 187 ;; (idle-save 15)
188 188
189 (if (string-match "Lucid" emacs-version) 189 (if (string-match "Lucid" emacs-version)
190 ;; lemacs only goes here 190 ;; lemacs only goes here
191 (progn 191 (progn
192 (message "lem")
192 (setq bbdb-north-american-phone-numbers-p nil) 193 (setq bbdb-north-american-phone-numbers-p nil)
193 (setq bbdb-use-pop-up nil) 194 (setq bbdb-use-pop-up nil)
195 (require 'mail-abbrevs)
194 (require 'bbdb) 196 (require 'bbdb)
195 (add-hook 'rmail-mode-hook 'bbdb-insinuate-rmail) 197 ;(require 'bbdb-rmail)
198 (require 'bbdb-com) ; to fix auto-fill
199 (setq mail-use-rfc822 nil)
200 (add-hook 'gnus-summary-mode-hook
201 (function (lambda ()
202 (make-local-variable 'mail-use-rfc822)
203 (setq mail-use-rfc822 t))))
204 (if (>= emacs-major-version 21)
205 (progn
206 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
207 (add-hook 'gnus-startup-hook 'bbdb-insinuate-message)))
208 (fset 'bbdb-auto-fill-function (lambda () t)) ; ditto
209 (fmakunbound 'bbdb-orig-rmail-expunge)
210 ;(add-hook 'rmail-mode-hook 'bbdb-insinuate-rmail)
196 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus) 211 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
197 (add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail) 212 (add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail)
213 (setq bbdb-dwim-net-address-allow-redundancy t)
198 (add-hook 'mail-setup-hook 'bbdb-define-all-aliases) 214 (add-hook 'mail-setup-hook 'bbdb-define-all-aliases)
199 (add-hook 'gnus-message-setup-hook 'bbdb-define-all-aliases) 215 (add-hook 'gnus-message-setup-hook 'bbdb-define-all-aliases)
200 216 (if (not (fboundp 'define-mail-abbrev))
201 217 ;; fix a bug which crashes occasionally -- see also
218 ;; bbdb-com
219 (progn
220 (require 'sendmail)
221 ;(defadvice sendmail-pre-abbrev-expand-hook
222 ; (before bbdb-rebuilt-all-aliases activate)
223 ; (bbdb-rebuilt-all-aliases))
224 ))
225 (defun gnuserv-start-maybe ()
226 (if (not (frame-live-p gnuserv-frame))
227 (gnuserv-start)))
228 ;;; (require 'itimer)
229 ;;; (start-itimer "gsr" 'gnuserv-start-maybe
230 ;;; 1200 1200 nil nil)
202 231
203 (if window-system 232 (if window-system
204 (progn 233 (progn
205 (require 'highlight-headers) 234 (require 'highlight-headers)
206 (defun rmail-fontify-headers () 235 (defun rmail-fontify-headers ()
357 "elisp" 386 "elisp"
358 frames-table))))) 387 frames-table)))))
359 18)))) 388 18))))
360 )) 389 ))
361 (make-frame-invisible scr)) 390 (make-frame-invisible scr))
362 (setq ht-default-config (current-window-configuration))))) 391 (setq ht-default-config (current-window-configuration))))))
363 (setq sgml-insert-missing-element-comment nil) 392 (setq sgml-insert-missing-element-comment nil)
364 (add-hook 'sgml-mode-hook 'sgml-fix-para) 393 (add-hook 'sgml-mode-hook 'sgml-fix-para)
365 )) 394 )
366 ;; v18 emacs only goes here 395 ;; v18 emacs only goes here
367 (progn 396 (progn
368 (require 'compress) 397 (require 'compress)
369 (defun ht-rooms-setup (&optional arg) 398 (defun ht-rooms-setup (&optional arg)
370 (interactive) 399 (interactive)
372 (require 'diary) 401 (require 'diary)
373 (require 'my-news) 402 (require 'my-news)
374 (load "ht-rooms.config" nil t) 403 (load "ht-rooms.config" nil t)
375 (setq ht-default-config (current-window-configuration))))) 404 (setq ht-default-config (current-window-configuration)))))
376 405
406 (defun ht-rooms-resetup ()
407 (interactive)
408 (setq rooms-table nil)
409 (setq frames-table nil)
410 (ht-rooms-setup))
411
377 (defun sgml-fix-para () 412 (defun sgml-fix-para ()
378 (setq paragraph-separate 413 (setq paragraph-separate
379 "</[^>]*>\n\\([ \t]+\\| \\)") 414 "</[^>]*>\n\\([ \t]+\\| \\)")
380 (setq paragraph-start 415 (setq paragraph-start
381 "^[ \t]*</?[A-Za-z._-]+[ >]")) 416 "^[ \t]*</?[A-Za-z._-]+[ >]"))
382 417
383 (defun highlight-headers-ht-follow-url-netscape (url) 418 (defun highlight-headers-ht-follow-url-netscape (url &optional arg)
384 (message "Sending URL to Netscape...") 419 (message "Sending URL to Netscape...")
385 (save-excursion 420 (save-excursion
386 (set-buffer (get-buffer-create "*Shell Command Output*")) 421 (set-buffer (get-buffer-create "*Shell Command Output*"))
387 (erase-buffer) 422 (erase-buffer)
388 (if (equal 0 (call-process "netscape" nil t nil "-display" ":0.0" 423 (if (equal 0 (call-process "netscape" nil t nil "-display" ":0.0"
396 431
397 (site-caseq (laptop (defun system-name () "francis.markup.co.uk"))) 432 (site-caseq (laptop (defun system-name () "francis.markup.co.uk")))
398 433
399 (cd (user-home-directory)) 434 (cd (user-home-directory))
400 435
401 (defun ht-custom-size () 436 (require 'misc) ; used to be in common-init...
402 (interactive)
403 (site-caseq ((laptop maritain)
404 (message (format "pw: %s" (device-pixel-width (selected-device))))))
405 (if (fboundp 'device-pixel-width)
406 (let ((pw (device-pixel-width (selected-device)))
407 (ph (device-pixel-height (selected-device))))
408 (cond ((= pw 2048)
409 ;; we're on a _really_ big external monitor
410 (set-frame-pixel-size (selected-frame) 900 1050)
411 (set-frame-position (selected-frame) 0 0))
412 ((= pw 1920)
413 ;; we're on a 27" curved external monitor
414 (set-frame-pixel-size (selected-frame) 720 980)
415 (set-frame-position (selected-frame) -8 2))
416 ((= pw 1680)
417 ;; we're on a big external monitor
418 (font-menu-set-font nil nil 10)
419 (set-frame-pixel-size (selected-frame) 900 1000)
420 (set-frame-position (selected-frame) -3 -20))
421 ((= pw 1097)
422 ;; we're on an XPS 13, mag. 300%
423 (require 'font-menu)
424 (font-menu-set-font nil nil 9)
425 (set-frame-pixel-size (selected-frame) 583 583); 80 x 39
426 (set-frame-position (selected-frame) -5 -26))
427 ((= pw 1536)
428 ;; we're on an XPS 13, mag. 250%
429 (require 'font-menu)
430 (font-menu-set-font nil nil 10)
431 (set-frame-pixel-size (selected-frame) 670 782); 81 x 49
432 (set-frame-position (selected-frame) -5 -26))
433 ((= ph 768)
434 ;; we're on a narrow cinema-ratio laptop
435 (set-frame-pixel-size (selected-frame) 690 710)
436 (set-frame-position (selected-frame) -5 -26))
437 ((= ph 900)
438 ;; we're on a cinema-ratio laptop
439 (set-frame-pixel-size (selected-frame) 800 820)
440 (set-frame-position (selected-frame) -3 -20))
441 ((= pw 1600)
442 ;; we're on a big external monitor
443 (set-frame-pixel-size (selected-frame) 900 1120)
444 (set-frame-position (selected-frame) -3 -20))
445 ((= pw 1280)
446 (cond ((= ph 720)
447 (set-frame-pixel-size (selected-frame) 700 655)
448 (set-frame-position (selected-frame) -3 -30))
449 (t
450 (set-frame-pixel-size (selected-frame) 700 960)
451 (set-frame-position (selected-frame) -3 -20))))))))
452 437
453 (ht-custom-size) 438 (ht-custom-size)
454
455 ;;; make dired list directories first
456 (defadvice dired-insert-directory (before my-dired-insert-directory
457 (dir-or-list switches &optional wildcard full-p))
458 (setq switches (concat switches " --group-directories-first")))
459
460 (ad-activate 'dired-insert-directory)