Mercurial > hg > cc > cirrus_home

comparison lib/emacs/pers-init.el @ 185:acae526510e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
too many overdue updates to break down
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Wed, 06 Dec 2023 13:38:58 +0000
parents 3314f46a782f
children
comparison
equal deleted inserted replaced
184:53a8ffe06460 185:acae526510e2
4 ;;; initialisation file for Emacs, that is, (l)emacs and epoch common 4 ;;; initialisation file for Emacs, that is, (l)emacs and epoch common
5 ;;; Last edited: Fri Sep 25 09:22:22 1992 5 ;;; Last edited: Fri Sep 25 09:22:22 1992
6 ;;; Edit history since port: made load-path not site-dependant 6 ;;; Edit history since port: made load-path not site-dependant
7 ;;; split into common-init for all my incarnations and pers-init for private 7 ;;; split into common-init for all my incarnations and pers-init for private
8 ;;; added lemacs compatibility 8 ;;; added lemacs compatibility
9
10 ;;; Screen
11 (let ((f (selected-frame)))
12 (set-frame-width f 81)
13 (set-frame-height f 48))
14 9
15 ;;; mail stuff 10 ;;; mail stuff
16 (setq mail-archive-file-name "~/mail/cpy/general") 11 (setq mail-archive-file-name "~/mail/cpy/general")
17 (setq rmail-dont-reply-to-names "hthompso*\\|h\\.thompso*\\|ht@*" ) 12 (setq rmail-dont-reply-to-names "hthompso*\\|h\\.thompso*\\|ht@*" )
18 (set-default 'ht-last-file (expand-file-name "~/mail/")) 13 (set-default 'ht-last-file (expand-file-name "~/mail/"))
52 "Run an inferior kcl process" 47 "Run an inferior kcl process"
53 (interactive) 48 (interactive)
54 (switch-to-buffer (make-shell "kcl" "kcl")) 49 (switch-to-buffer (make-shell "kcl" "kcl"))
55 (inferior-lisp-mode)) 50 (inferior-lisp-mode))
56 51
57 ;(require 'mdn-extras) 52 (require 'mdn-extras)
58 (setq auto-mode-alist 53 (setq auto-mode-alist
59 (append '(("/perl/" . perl-mode) 54 (append '(("/perl/" . perl-mode)
60 ("\\.scm$" . scheme-mode)) 55 ("\\.scm$" . scheme-mode))
61 auto-mode-alist)) 56 auto-mode-alist))
62 ;(setq inferior-lisp-program "/c/Progra~1/ChezSc~1.4/bin/i3nt/petite") 57 (setq inferior-lisp-program "/c/Progra~1/ChezSc~1.4/bin/i3nt/petite")
63 ;;; for scheme 58 ;;; for scheme
64 (put 'letrec 'lisp-indent-function 1) 59 (put 'letrec 'lisp-indent-function 1)
65 (put 'case 'lisp-indent-function 1) 60 (put 'case 'lisp-indent-function 1)
66 61
67 (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/"))
83 (require 'shell) 78 (require 'shell)
84 (switch-to-buffer (make-shell "prolog" (site-caseq (edin "sicstus") 79 (switch-to-buffer (make-shell "prolog" (site-caseq (edin "sicstus")
85 (parc "prolog")))) 80 (parc "prolog"))))
86 (inferior-prolog-mode)) 81 (inferior-prolog-mode))
87 82
88 (site-caseq ((laptop maritain cirrus)) 83 (site-caseq ((laptop maritain))
89 (t(require 'hist) 84 (t(require 'hist)
90 (rplacd (assoc "*shell*" hk-pat-table) 85 (rplacd (assoc "*shell*" hk-pat-table)
91 "[a-z]+<[0-9]+>: "))) 86 "[a-z]+<[0-9]+>: ")))
92 87
93 ;; turn off suspend-emacs -- use pause-emacs (^X.) instead 88 ;; turn off suspend-emacs -- use pause-emacs (^X.) instead
99 ;(require 'repl-comment) 94 ;(require 'repl-comment)
100 95
101 ;(require 'compress) 96 ;(require 'compress)
102 97
103 (if (string-match "Lucid" emacs-version) 98 (if (string-match "Lucid" emacs-version)
104 (site-caseq ((laptop maritain cirrus)) 99 (site-caseq ((laptop maritain))
105 (t(require 'lemacs-compat)))) 100 (t(require 'lemacs-compat))))
106 101
107 (if (boundp 'epoch::version) 102 (if (boundp 'epoch::version)
108 ;; epoch only goes here 103 ;; epoch only goes here
109 (progn 104 (progn
166 (load "lisp-font-lock-keywords" t t)) 161 (load "lisp-font-lock-keywords" t t))
167 lisp-font-lock-keywords)) 162 lisp-font-lock-keywords))
168 (font-lock-mode 1))) 163 (font-lock-mode 1)))
169 (add-hook 'python-mode-hook '(lambda () 164 (add-hook 'python-mode-hook '(lambda ()
170 (font-lock-mode 1))) 165 (font-lock-mode 1)))
171 ;(setq py-python-command "//c/Program Files/Python22/python") 166 (setq py-python-command "//c/Program Files/Python22/python")
172 (setq sgml-insert-missing-element-comment nil) 167 (setq sgml-insert-missing-element-comment nil)
173 ;(load "psgml" nil t) 168 (load "psgml" nil t)
174 ;(load "psgml-edit" nil t) 169 (load "psgml-edit" nil t)
175 ;; (load "xml-hack" nil t) 170 ;; (load "xml-hack" nil t)
176 ; (setq sgml-catalog-files '("CATALOG" "f:/lib/sgml/catalog")) 171 ; (setq sgml-catalog-files '("CATALOG" "f:/lib/sgml/catalog"))
177 (if (string-match "i386" (emacs-version)) 172 (if (string-match "i386" (emacs-version))
178 (progn (defun win32-get-clipboard-data-cmd () 173 (progn (defun win32-get-clipboard-data-cmd ()
179 (interactive)(insert (win32-get-clipboard-data))) 174 (interactive)(insert (win32-get-clipboard-data)))
184 179
185 ;; loading gnus postponed to e.g. mail-from-delphix, q.v. 180 ;; loading gnus postponed to e.g. mail-from-delphix, q.v.
186 181
187 ; (require 'gnus-min) 182 ; (require 'gnus-min)
188 )) 183 ))
189 (site-caseq ((cirrus)) 184 (load "gnus-init" nil t)
190 (t (load "gnus-init" nil t)))
191 185
192 ;; (require 'idle) 186 ;; (require 'idle)
193 ;; (idle-save 15) 187 ;; (idle-save 15)
194 188
195 (if (string-match "Lucid" emacs-version) 189 (if (string-match "Lucid" emacs-version)
196 ;; lemacs only goes here 190 ;; lemacs only goes here
197 (site-caseq ((cirrus) 191 (progn
198 ;(load "perl-mode" nil t)
199 )
200 (t(progn
201 (setq bbdb-north-american-phone-numbers-p nil) 192 (setq bbdb-north-american-phone-numbers-p nil)
202 (setq bbdb-use-pop-up nil) 193 (setq bbdb-use-pop-up nil)
203 (require 'bbdb) 194 (require 'bbdb)
204 (add-hook 'rmail-mode-hook 'bbdb-insinuate-rmail) 195 (add-hook 'rmail-mode-hook 'bbdb-insinuate-rmail)
205 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus) 196 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
259 (unwind-protect (make-screen-for-room "news" "-50" "+96")) 250 (unwind-protect (make-screen-for-room "news" "-50" "+96"))
260 ; (sit-for 5) 251 ; (sit-for 5)
261 (unwind-protect (make-screen-for-room "mail" "-75" "+113")) 252 (unwind-protect (make-screen-for-room "mail" "-75" "+113"))
262 (sit-for 1) 253 (sit-for 1)
263 (delete-screen scr)) 254 (delete-screen scr))
264 (setq ht-default-config (current-window-configuration))))))) 255 (setq ht-default-config (current-window-configuration)))))
265 ;; vanilla v19 goes here 256 ;; vanilla v19 goes here
266 (if window-system 257 (if window-system
267 (progn 258 (progn
268 (defvar ht-frame-parameter-mods 259 (defvar ht-frame-parameter-mods
269 '((auto-raise . t) 260 '((auto-raise . t)
270 (auto-lower . nil) 261 (auto-lower . nil)
271 (cursor-type . bar))) 262 (cursor-type . bar)))
272 (nconc 263 (nconc
273 (site-caseq ((laptop maritain) (list '(height . 35))) 264 (site-caseq ((laptop maritain) (list '(height . 35)))
274 ((cirrus))
275 (t 265 (t
276 (list 266 (list
277 '(font . 267 '(font .
278 "-adobe-courier-medium-r-normal--14-*")))) 268 "-adobe-courier-medium-r-normal--14-*"))))
279 ht-frame-parameter-mods 269 ht-frame-parameter-mods
420 (set-frame-pixel-size (selected-frame) 900 1050) 410 (set-frame-pixel-size (selected-frame) 900 1050)
421 (set-frame-position (selected-frame) 0 0)) 411 (set-frame-position (selected-frame) 0 0))
422 ((= pw 1920) 412 ((= pw 1920)
423 ;; we're on a 27" curved external monitor 413 ;; we're on a 27" curved external monitor
424 (set-frame-pixel-size (selected-frame) 720 980) 414 (set-frame-pixel-size (selected-frame) 720 980)
425 (site-caseq (cirrus 415 (set-frame-position (selected-frame) -8 2))
426 (set-frame-position
427 (selected-frame) 0 0))
428 (t
429 (set-frame-position
430 (selected-frame) -8 2))))
431 ((= pw 1680) 416 ((= pw 1680)
432 ;; we're on a big external monitor 417 ;; we're on a big external monitor
433 (font-menu-set-font nil nil 10) 418 (font-menu-set-font nil nil 10)
434 (set-frame-pixel-size (selected-frame) 900 1000) 419 (set-frame-pixel-size (selected-frame) 900 1000)
435 (set-frame-position (selected-frame) -3 -20)) 420 (set-frame-position (selected-frame) -3 -20))
466 (set-frame-position (selected-frame) -3 -20)))))))) 451 (set-frame-position (selected-frame) -3 -20))))))))
467 452
468 (ht-custom-size) 453 (ht-custom-size)
469 454
470 ;;; make dired list directories first 455 ;;; make dired list directories first
471 ;(defadvice dired-insert-directory (before my-dired-insert-directory 456 (defadvice dired-insert-directory (before my-dired-insert-directory
472 ; (dir-or-list switches &optional wildcard full-p)) 457 (dir-or-list switches &optional wildcard full-p))
473 ; (setq switches (concat switches " --group-directories-first"))) 458 (setq switches (concat switches " --group-directories-first")))
474 459
475 ;(ad-activate 'dired-insert-directory) 460 (ad-activate 'dired-insert-directory)