Mercurial > hg > xemacs

annotate shared/pers-init.el @ 45:65ea96008fe0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hacked up some stuff to get rid of useless safelinks.outlook... link wrappers, acquired use-text-not-html from mail-extras
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Wed, 20 Dec 2023 17:59:49 +0000
parents 0a81352bd7d0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
1 ;; GNU Emacs init file for Henry Thompson
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
2 ;;; This part shared between all hosts
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
3 ;; This part is my personal stuff, not for other incarnations
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
4 ;;; initialisation file for Emacs, that is, (l)emacs and epoch common
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
5 ;;; Last edited: Fri Sep 25 09:22:22 1992
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
6 ;;; Edit history since port: made load-path not site-dependant
6c73c7af9cdb DICE versions, before pruning
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
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
8 ;;; added lemacs compatibility
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
9
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
10 ;;; HACK to deal with current x-crash workaround that I use a tty-launched
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
11 ;;; xemacs via gnuclient from an X environment
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
12 (if (and (eq
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
13 (device-type (frame-device (get-frame-for-buffer (current-buffer))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
14 'x)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
15 (not (getenv "DISPLAY")))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
16 (progn (message "setting DISPLAY in env")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
17 (setenv "DISPLAY" ":0")))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
18
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
19 ;;; mail stuff
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
20 (setq mail-archive-file-name (concat "/disk/scratch/mail/cpy/general/"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
21 (format-time-string
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
22 "%Y-%m" (current-time))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
23 ".mbox"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
24
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
25 (defun hand ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
26 (interactive)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
27 (insert-file "~/pers/hand.txt"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
28
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
29 (setq rmail-dont-reply-to-names "hthompso*\\|h\\.thompso*\\|ht@*" )
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
30 (setq rmail-show-mime nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
31 (set-default 'ht-last-file (expand-file-name "/disk/scratch/mail/"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
32 (setq ht-diary-file-name "/disk/scratch/mail/diary.babyl")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
33 (setq mail-append-host "inf.ed.ac.uk")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
34 (setq mail-host-address "inf.ed.ac.uk")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
35
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
36 ;; new mail hackery
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
37 (site-caseq ((edin ircs ldc)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
38 (setq rmail-spool-directory (file-name-as-directory
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
39 (concat rmail-spool-directory
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
40 "ht-mail")))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
41 ;; don't know why this is necessary
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
42 (site-caseq ((edin)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
43 (setq rmail-primary-inbox-list
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
44 (list (concat rmail-spool-directory "ht")))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
45
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
46 (setq minibuffer-max-depth nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
47 (defun run-kcl ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
48 "Run an inferior kcl process"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
49 (interactive)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
50 (switch-to-buffer (make-shell "kcl" "kcl"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
51 (inferior-lisp-mode))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
52
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
53 (require 'mdn-extras)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
54 (require 'passwd) ; for shell login for kerberos
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
55 (setq auto-mode-alist
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
56 (append '(("/perl/" . perl-mode)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
57 ("\\.scm$" . lisp-mode)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
58 ("\\.dsl$" . lisp-mode))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
59 auto-mode-alist))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
60 (setq inferior-lisp-program "scheme")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
61 ;;; for scheme
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
62 (put 'letrec 'lisp-indent-function 1)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
63 (put 'case 'lisp-indent-function 1)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
64
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
65 (site-caseq (parc (nconc load-path '("/import/local/emacs/gnus-3.13/"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
66 (setq rmail-primary-inbox-list
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
67 '("~/mbox" "/net/piglet/usr/spool/mail/$USER"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
68
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
69 (defun run-sicstus ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
70 "Run an inferior Prolog process, input and output via buffer *prolog*."
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
71 (interactive)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
72 (if (not (boundp 'prolog-mode-map))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
73 (let ((load-path (cons
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
74 (site-caseq (parc "/import/prolog-1.8/emacs")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
75 (edin "??"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
76 load-path)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
77 (load "prolog" nil t)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
78 (require 'shell)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
79 (switch-to-buffer (make-shell "prolog" (site-caseq (edin "sicstus")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
80 (parc "prolog"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
81 (inferior-prolog-mode))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
82
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
83 (require 'hist)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
84 (rplacd (assoc "*shell*" hk-pat-table)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
85 "[a-z]+<[0-9]+>: ")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
86
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
87 ;; turn off suspend-emacs -- use pause-emacs (^X.) instead
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
88 (global-unset-key "\C-Z")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
89 (global-unset-key "\C-x\C-z")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
90
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
91 (global-set-key "\C-xl" (function goto-line))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
92
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
93 (require 'repl-comment)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
94
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
95 (require 'compress)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
96
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
97 (if (string-match "Lucid" emacs-version)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
98 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
99 (require 'lemacs-compat)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
100
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
101 (if window-system
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
102 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
103 (add-hook 'sh-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
104 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
105 (setq perl-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
106 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
107 (setq emacs-lisp-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
108 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
109 (setq lisp-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
110 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
111 (setq sgml-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
112 (if (not
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
113 (boundp 'sgml-font-lock-keywords))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
114 (load "sgml-font-lock-keywords" t t))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
115 (font-lock-mode 1)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
116 ))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
117 (setq c-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
118 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
119 (setq c++-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
120 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
121 (setq scheme-mode-hook
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
122 '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
123 (setq
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
124 scheme-font-lock-keywords
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
125 (if (or
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
126 (boundp 'lisp-font-lock-keywords)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
127 (load "lisp-font-lock-keywords" t t))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
128 lisp-font-lock-keywords))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
129 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
130 (setq python-mode-hook '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
131 (font-lock-mode 1)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
132 ))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
133
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
134
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
135 (setq sgml-catalog-files '("catalog" "/afs/inf.ed.ac.uk/user/h/ht/lib/sgml/catalog"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
136
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
137 (if (string-match "Lucid" emacs-version)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
138 ;; lemacs only goes here
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
139 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
140 ;; DICE comes here 2012-01-13
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
141 (setq package-get-remove-copy nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
142 (setq bbdb-north-american-phone-numbers-p nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
143 (setq bbdb-use-pop-up nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
144 (setq bbdb-complete-name-allow-cycling t
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
145 bbdb-completion-type 'primary-or-name)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
146 (setq bbdb-quiet-about-name-mismatches t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
147 (setq bbdb-always-add-addresses t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
148 (setq bbdb-new-nets-always-primary t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
149 (setq bbdb-file "/disk/scratch/mail/.bbdb")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
150 (setq bbdb-hashtable-size 24203)
3
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
151 ;(require 'bbdb) @
1
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
152 ;(require 'bbdb-rmail)
3
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
153 ;(require 'bbdb-com) @ ; to fix auto-fill
1
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
154 (fset 'bbdb-auto-fill-function (lambda () t)) ; ditto
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
155 (fmakunbound 'bbdb-orig-rmail-expunge)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
156 ;(add-hook 'rmail-mode-hook 'bbdb-insinuate-rmail)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
157 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
158 (add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
159 (add-hook 'mail-setup-hook 'bbdb-define-all-aliases)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
160 (add-hook 'gnus-message-setup-hook 'bbdb-define-all-aliases)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
161 (if (not (fboundp 'define-mail-abbrev))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
162 ;; fix a bug which crashes occasionally -- see also
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
163 ;; bbdb-com
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
164 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
165 (require 'sendmail)
3
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
166 ;(defadvice sendmail-pre-abbrev-expand-hook @
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
167 ; (before bbdb-rebuilt-all-aliases activate)
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
168 ; (bbdb-rebuilt-all-aliases))
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
169 ))
1
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
170 (defun gnuserv-start-maybe ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
171 (if (not (frame-live-p gnuserv-frame))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
172 (gnuserv-start)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
173 ;;; (require 'itimer)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
174 ;;; (start-itimer "gsr" 'gnuserv-start-maybe
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
175 ;;; 1200 1200 nil nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
176
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
177 (if window-system
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
178 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
179 ;; DICE comes here 2012-01-13
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
180 (require 'highlight-headers)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
181 (defun rmail-fontify-headers ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
182 (highlight-headers (point-min) (point-max) t))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
183 (add-hook 'rmail-show-message-hook 'rmail-fontify-headers)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
184 (setq dired-mode-hook
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
185 '(lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
186 (font-lock-mode 1)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
187 (define-key dired-mode-map
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
188 [button2] '(lambda (click)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
189 (interactive "e")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
190 (mouse-set-point click)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
191 (dired-advertised-find-file)))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
192 (setq highlight-headers-follow-url-function
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
193 'browse-url-firefox
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
194 ;;browse-url-browser-function
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
195 ;;'browse-url-mozilla
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
196 )
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
197 (setq browse-url-browser-function 'browse-url-firefox)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
198 (set-face-background 'modeline '((x) . "lightgrey"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
199 ;; DICE comes here 2012-01-13
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
200 (load "device-type-hacking" t t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
201 ;; (setq browse-url-mozilla-program "/usr/bin/X11/mozilla")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
202
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
203 ;; gnus
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
204 (setq nnml-directory (expand-file-name "/disk/scratch/mail/Mail")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
205 gnus-secondary-select-methods
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
206 '((nnml "ht"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
207 (gnus-show-threads nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
208 (gnus-article-sort-functions
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
209 (gnus-article-sort-by-subject
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
210 gnus-article-sort-by-date))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
211 gnus-home-directory "/disk/scratch/gnus" ; local disk
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
212 gnus-article-save-directory (expand-file-name "/disk/scratch/mail/Mail")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
213 gnus-message-archive-method
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
214 `(nnfolder "archive"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
215 (nnfolder-directory ,(expand-file-name
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
216 "/disk/scratch/mail/cpy"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
217 (nnfolder-active-file ,(expand-file-name
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
218 "/disk/scratch/cpy/active"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
219 (nnfolder-get-new-mail nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
220 (nnfolder-inhibit-expiry t)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
221
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
222 (load "gnus-init" nil t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
223
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
224 ;; override changed default, except in gnus
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
225 (setq mail-use-rfc822 nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
226 (add-hook 'gnus-summary-mode-hook
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
227 (function (lambda ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
228 (make-local-variable 'mail-use-rfc822)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
229 (setq mail-use-rfc822 t))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
230 (if (>= emacs-major-version 21)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
231 (progn
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
232 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
233 (add-hook 'gnus-startup-hook 'bbdb-insinuate-message)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
234 ;; DICE comes here 2012-01-13
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
235 (defun ht-rooms-setup (&optional arg)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
236 (interactive)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
237 (require 'mail-extras)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
238 (require 'diary)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
239 (let ((scr (selected-frame)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
240 ; (sit-for 5)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
241 (load "ht-rooms.config" nil t)
3
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
242 ;; for ecclerig viewed from paul
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
243 (if (eq (device-pixel-width (selected-device)) 1920)
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
244 (progn
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
245 (unwind-protect
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
246 (make-screen-for-room "diary" "+1219" "+68"))
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
247 (unwind-protect
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
248 (make-screen-for-room "elisp" "+1185" "+102"))
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
249 (unwind-protect
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
250 (make-screen-for-room "news" "+1253" "+34")))
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
251 ;; for ecclerig in office
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
252 (unwind-protect (make-screen-for-room "diary" "+1888" "+0"))
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
253 (unwind-protect (make-screen-for-room "elisp" "+1888" "+0"))
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
254 (unwind-protect (make-screen-for-room "news" "+1223" "+0")))
1
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
255 (sit-for 1)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
256 (delete-frame scr))
3
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
257 (setq ht-default-config (current-window-configuration)))))
0a81352bd7d0 catch up
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 2
diff changeset
258 ;; vanilla v19 was here
1
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
259 (setq sgml-insert-missing-element-comment nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
260 (load "psgml" nil t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
261 (load "psgml-edit" nil t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
262 (load "xml-hack" nil t)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
263 (add-hook 'sgml-mode-hook 'sgml-fix-para)
2
dd557432d846 prune very stale bits
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 1
diff changeset
264 ;; v18 emacs only was here
1
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
265
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
266 (defun ht-rooms-resetup ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
267 (interactive)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
268 (setq rooms-table nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
269 (setq frames-table nil)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
270 (ht-rooms-setup))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
271
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
272 (defun sgml-fix-para ()
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
273 (setq paragraph-separate
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
274 "</[^>]*>\n\\([ \t]+\\| \\)")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
275 (setq paragraph-start
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
276 "^[ \t]*</?[A-Za-z._-]+[ >]"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
277
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
278 (defun highlight-headers-ht-follow-url-netscape (url &optional arg)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
279 (message "Sending URL to Netscape...")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
280 (save-excursion
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
281 (set-buffer (get-buffer-create "*Shell Command Output*"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
282 (erase-buffer)
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
283 (if (equal 0 (call-process "netscape" nil t nil "-display" ":0.0"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
284 "-remote"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
285 (concat "openURL(" url ")")))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
286 ;; it worked
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
287 nil
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
288 ;; it didn't work, so start a new Netscape process.
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
289 (call-process "netscape" nil 0 nil url)))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
290 (message "Sending URL to Netscape... done"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
291
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
292 ;;; Moved from custom.el -- not customisable, I think. . .
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
293 (setq
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
294 ecb-options-version "2.27"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
295 gnus-treat-display-smileys nil
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
296 gnus-treat-from-picon nil
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
297 gnus-treat-mail-picon nil
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
298 gnus-treat-newsgroups-picon nil
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
299 jde-enable-abbrev-mode t
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
300 package-get-require-signed-base-updates nil
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
301 pgg-passphrase-cache-expiry 36000
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
302 pui-package-install-dest-dir "/afs/inf.ed.ac.uk/user/h/ht/.xemacs/xemacs-packages"
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
303 efs-ftp-program-args '("-i" "-n" "-g" "-v")
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
304 efs-use-passive-mode t ; actually turns it _off_ !
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
305 )
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
306
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
307 ;;; The following duplicate settings in custom.el????
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
308 (custom-set-faces
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
309 '(font-lock-builtin-face ((((type x mswindows)(class color)(background light))(:foreground "Purple"))(((type tty)(class color))(:foreground "magenta"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
310 '(font-lock-comment-face ((((type x mswindows)(class color)(background light))(:foreground "blue4"))(((type tty)(class color))(:foreground "blue"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
311 '(font-lock-constant-face ((((type x mswindows)(class color)(background light))(:foreground "CadetBlue"))(((type tty)(class color))(:foreground "cyan"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
312 '(font-lock-doc-string-face ((((type x mswindows)(class color)(background light))(:foreground "green4"))(((type tty)(class color))(:foreground "green"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
313 '(font-lock-function-name-face ((((type x mswindows)(class color)(background light))(:foreground "brown4"))(((type tty)(class color))(:foreground "cyan" :bold))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
314 '(font-lock-keyword-face ((((type x mswindows)(class color)(background light))(:foreground "red4"))(((type tty)(class color))(:foreground "red" :bold))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
315 '(font-lock-preprocessor-face ((((type x mswindows)(class color)(background light))(:foreground "blue3"))(((type tty)(class color))(:foreground "cyan" :bold))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
316 '(font-lock-reference-face ((((type x mswindows)(class color)(background light))(:foreground "red3"))(((type tty)(class color))(:foreground "red"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
317 '(font-lock-string-face ((((type x mswindows)(class color)(background light))(:foreground "green4"))(((type tty)(class color))(:foreground "green" :bold))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
318 '(font-lock-type-face ((((type x mswindows)(class color)(background light))(:foreground "steelblue"))(((type tty)(class color))(:foreground "cyan" :bold))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
319 '(font-lock-variable-name-face ((((type x mswindows)(class color)(background light))(:foreground "magenta4"))(((type tty)(class color))(:foreground "magenta" :bold))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
320 '(font-lock-warning-face ((((type x mswindows)(class color)(background light))(:foreground "Red" :bold))(((type tty)(class color))(:foreground "red" :bold))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
321 )
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
322
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
323 (custom-set-faces
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
324 '(modeline (
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
325 (((type x mswindows)(class color))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
326 (:foreground "black" :background "gray80"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
327 (t
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
328 (:foreground "black" :background "white"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
329 '(modeline-buffer-id (
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
330 (((type x mswindows)(class color))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
331 (:foreground "blue4" :background "gray80"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
332 (((type tty)(class color))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
333 (:foreground "blue" :background "white"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
334 (t
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
335 (:foreground "black" :background "white" :bold t))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
336 '(modeline-mousable (
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
337 (((type x mswindows)(class color))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
338 (:foreground "firebrick" :background "gray80"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
339 (((type tty)(class color))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
340 (:foreground "red" :background "white"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
341 (t
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
342 (:foreground "black" :background "white"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
343 '(modeline-mousable-minor-mode (
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
344 (((type x mswindows)(class color))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
345 (:foreground "green4" :background "gray80"))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
346 (((type tty)(class color))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
347 (:foreground "green" :background "white" :bold t))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
348 (t
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
349 (:foreground "black" :background "white"))))
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
350 )
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
351
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
352 (defalias 'review (read-kbd-macro
6c73c7af9cdb DICE versions, before pruning
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
diff changeset
353 "PhD SPC applicant SPC review, SPC please 4*<C-n> M-x insert- f SPC RET bus/ilc SPC new SPC RET 9*<C-n> C-e"))