Mercurial > hg > xemacs

annotate pers-init.el @ 33:ce71d12b00ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
don't load gnus-init etc. if mail is not expected
author Henry S Thompson <ht@inf.ed.ac.uk>
date Sun, 08 Oct 2023 17:42:52 +0100
parents cb9b76219c55
children ce8241eb1d61 642211cbf13a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
1 ;;; GNU Emacs init file for Henry Thompson
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
2 ;;; This part shared between all hosts
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
3 ;;; This part is my personal stuff, not for other incarnations
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
4 ;;; initialisation file for Emacs, that is, (l)emacs and epoch common
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
5 ;;; Last edited: Fri Sep 25 09:22:22 1992
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
6 ;;; Edit history since port: made load-path not site-dependant
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
7 ;;; split into common-init for all my incarnations and pers-init for private
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
8 ;;; added lemacs compatibility
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
9
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
10 ;;; HACK to deal with current x-crash workaround that I use a tty-launched
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
11 ;;; xemacs via gnuclient from an X environment
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
12 ;;; Not sure this is still needed 2023-10-07
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
13 (if (and (eq
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
14 (device-type (frame-device (get-frame-for-buffer (current-buffer))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
15 'x)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
16 (not (getenv "DISPLAY")))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
17 (progn (message "setting DISPLAY in env")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
18 (setenv "DISPLAY" ":0")))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
19
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
20 ;;; mail stuff
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
21 (site-caseq (edin
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
22 (setq mail-archive-file-name (concat "/disk/scratch/mail/cpy/general/"
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
23 (format-time-string
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
24 "%Y-%m" (current-time))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
25 ".mbox"))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
26 (t (setq mail-archive-file-name "~/mail/cpy/general"))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
27
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
28
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
29 (setq rmail-dont-reply-to-names "hthompso*\\|h\\.thompso*\\|ht@*" )
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
30
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
31 (site-caseq (edin
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
32 (setq rmail-show-mime nil)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
33 (set-default 'ht-last-file (expand-file-name "/disk/scratch/mail/"))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
34 (setq ht-diary-file-name "/disk/scratch/mail/diary.babyl")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
35 (setq user-mail-address "ht@inf.ed.ac.uk")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
36 (setq mail-append-host "inf.ed.ac.uk")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
37 (setq mail-host-address "inf.ed.ac.uk")))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
38
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
39 (setq user-full-name "Henry S. Thompson")
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
40
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
41 ;; new mail hackery
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
42 (site-caseq ((edin ircs ldc)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
43 (setq rmail-spool-directory (file-name-as-directory
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
44 (concat rmail-spool-directory
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
45 "ht-mail")))))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
46 ;; don't know why this is necessary
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
47 (site-caseq ((edin)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
48 (setq rmail-primary-inbox-list
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
49 (list (concat rmail-spool-directory "ht")))))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
50
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
51 (setq vc-command-messages t)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
52
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
53 (setq minibuffer-max-depth nil)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
54 (defun run-kcl ()
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
55 "Run an inferior kcl process"
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
56 (interactive)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
57 (switch-to-buffer (make-shell "kcl" "kcl"))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
58 (inferior-lisp-mode))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
59
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
60 (require 'mdn-extras)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
61 (setq auto-mode-alist
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
62 (append '(("/perl/" . perl-mode)
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
63 ("\\.scm$" . scheme-mode)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
64 ("\\.dsl$" . lisp-mode))
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
65 auto-mode-alist))
24
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
66 (setq inferior-lisp-program "scheme")
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
67 ;;; for scheme
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
68 (put 'letrec 'lisp-indent-function 1)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
69 (put 'case 'lisp-indent-function 1)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
70
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
71 (site-caseq (parc (nconc load-path '("/import/local/emacs/gnus-3.13/"))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
72 (setq rmail-primary-inbox-list
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
73 '("~/mbox" "/net/piglet/usr/spool/mail/$USER"))))
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
74
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
75 (defun run-sicstus ()
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
76 "Run an inferior Prolog process, input and output via buffer *prolog*."
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
77 (interactive)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
78 (if (not (boundp 'prolog-mode-map))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
79 (let ((load-path (cons
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
80 (site-caseq (parc "/import/prolog-1.8/emacs")
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
81 (edin "??"))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
82 load-path)))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
83 (load "prolog" nil t)))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
84 (require 'shell)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
85 (switch-to-buffer (make-shell "prolog" (site-caseq (edin "sicstus")
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
86 (parc "prolog"))))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
87 (inferior-prolog-mode))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
88
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
89 (require 'hist)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
90 (rplacd (assoc "*shell*" hk-pat-table)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
91 "[a-z]+<[0-9]+>: ")
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
92
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
93 ;; turn off suspend-emacs -- use pause-emacs (^X.) instead
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
94 (global-unset-key "\C-Z")
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
95 (global-unset-key "\C-x\C-z")
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
96
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
97 (global-set-key "\C-xl" (function goto-line))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
98
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
99 (require 'repl-comment)
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
100
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
101 (require 'compress)
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
102
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
103 (if (string-match "Lucid" emacs-version)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
104 (progn
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
105 (require 'lemacs-compat)))
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
106
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
107 (if window-system
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
108 (progn
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
109 (add-hook 'sh-mode-hook '(lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
110 (font-lock-mode 1)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
111 (add-hook 'perl-mode-hook '(lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
112 (font-lock-mode 1)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
113 (add-hook 'emacs-lisp-mode-hook '(lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
114 (font-lock-mode 1)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
115 (add-hook 'lisp-mode-hook '(lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
116 (font-lock-mode 1)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
117 (add-hook 'sgml-mode-hook '(lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
118 (if (not
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
119 (boundp 'sgml-font-lock-keywords))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
120 (load "sgml-font-lock-keywords" t t))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
121 (setq adaptive-fill-mode nil)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
122 (font-lock-mode 1)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
123 ))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
124 (add-hook 'c-mode-hook '(lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
125 (font-lock-mode 1)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
126 (add-hook 'c++-mode-hook '(lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
127 (font-lock-mode 1)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
128 (add-hook 'scheme-mode-hook
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
129 '(lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
130 (setq
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
131 scheme-font-lock-keywords
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
132 (if (or
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
133 (boundp 'lisp-font-lock-keywords)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
134 (load "lisp-font-lock-keywords" t t))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
135 lisp-font-lock-keywords))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
136 (font-lock-mode 1)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
137 (add-hook 'python-mode-hook '(lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
138 (font-lock-mode 1)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
139 (setq sgml-insert-missing-element-comment nil)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
140 (load "psgml" nil t)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
141 (load "psgml-edit" nil t)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
142 ;; (load "xml-hack" nil t)
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
143 ; (setq sgml-catalog-files '("CATALOG" "f:/lib/sgml/catalog"))
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
144 (if (string-match "i386" (emacs-version))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
145 (progn (defun win32-get-clipboard-data-cmd ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
146 (interactive)(insert (win32-get-clipboard-data)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
147 (global-set-key
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
148 "\C-x\C-y" 'win32-get-clipboard-data-cmd)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
149 ))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
150
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
151
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
152 (site-caseq (edin
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
153 (setq sgml-catalog-files '("catalog" "/afs/inf.ed.ac.uk/user/h/ht/lib/sgml/catalog"))))
19
cc9c7bc8194a custom-size
ht
parents: 17
diff changeset
154
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
155 (if (string-match "Lucid" emacs-version)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
156 ;; lemacs only goes here
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
157 (progn
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
158 (message "lem")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
159 ;; DICE comes here 2012-01-13
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
160 (setq package-get-remove-copy nil)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
161 (require 'mail-abbrevs)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
162 (setq bbdb-north-american-phone-numbers-p nil)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
163 (setq bbdb-use-pop-up nil)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
164 (setq bbdb-complete-name-allow-cycling t
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
165 bbdb-completion-type 'primary-or-name)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
166 (setq bbdb-quiet-about-name-mismatches t)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
167 (setq bbdb-always-add-addresses t)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
168 (setq bbdb-new-nets-always-primary t)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
169 (site-caseq (edin
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
170 (setq bbdb-file "/disk/scratch/mail/.bbdb")))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
171 (setq bbdb-hashtable-size 24203)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
172 (require 'bbdb)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
173 ;(require 'bbdb-rmail)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
174 (require 'bbdb-com) ; to fix auto-fill
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
175 (setq mail-use-rfc822 nil)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
176 (add-hook 'gnus-summary-mode-hook
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
177 (function (lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
178 (make-local-variable 'mail-use-rfc822)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
179 (setq mail-use-rfc822 t))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
180 (if (>= emacs-major-version 21)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
181 (progn
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
182 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
183 (add-hook 'gnus-startup-hook 'bbdb-insinuate-message)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
184 (fset 'bbdb-auto-fill-function (lambda () t)) ; ditto
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
185 (fmakunbound 'bbdb-orig-rmail-expunge)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
186 ;(add-hook 'rmail-mode-hook 'bbdb-insinuate-rmail)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
187 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
188 (add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
189 (setq bbdb-dwim-net-address-allow-redundancy t)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
190 (add-hook 'mail-setup-hook 'bbdb-define-all-aliases)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
191 (add-hook 'gnus-message-setup-hook 'bbdb-define-all-aliases)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
192 (if (not (fboundp 'define-mail-abbrev))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
193 ;; fix a bug which crashes occasionally -- see also
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
194 ;; bbdb-com
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
195 (progn
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
196 (require 'sendmail)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
197 ;(defadvice sendmail-pre-abbrev-expand-hook
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
198 ; (before bbdb-rebuilt-all-aliases activate)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
199 ; (bbdb-rebuilt-all-aliases))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
200 ))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
201 (defun gnuserv-start-maybe ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
202 (if (not (frame-live-p gnuserv-frame))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
203 (gnuserv-start)))
24
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
204 ;;; (require 'itimer)
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
205 ;;; (start-itimer "gsr" 'gnuserv-start-maybe
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
206 ;;; 1200 1200 nil nil)
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
207
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
208 (if window-system
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
209 (progn
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
210 (message "window-system-1")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
211 ;; DICE comes here 2012-01-13
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
212 (require 'highlight-headers)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
213 (defun rmail-fontify-headers ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
214 (highlight-headers (point-min) (point-max) t))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
215 (add-hook 'rmail-show-message-hook 'rmail-fontify-headers)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
216 (setq dired-mode-hook
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
217 '(lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
218 (font-lock-mode 1)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
219 (define-key dired-mode-map
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
220 [button2] '(lambda (click)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
221 (interactive "e")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
222 (mouse-set-point click)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
223 (dired-advertised-find-file)))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
224 (set-face-background 'modeline '((x) . "lightgrey"))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
225 ))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
226 ;; DICE comes here 2012-01-13
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
227 (load "device-type-hacking" t t)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
228 (message "dth")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
229 (site-caseq (edin
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
230 (defun ht-rooms-setup (&optional arg)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
231 (interactive)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
232 (require 'mail-extras)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
233 (require 'diary)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
234 ;; override changed default, except in gnus
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
235 (setq mail-use-rfc822 nil)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
236 (add-hook 'gnus-summary-mode-hook
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
237 (function (lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
238 (make-local-variable 'mail-use-rfc822)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
239 (setq mail-use-rfc822 t))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
240 (if (>= emacs-major-version 21)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
241 (progn
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
242 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
243 (add-hook 'gnus-startup-hook 'bbdb-insinuate-message)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
244 (defun ht-rooms-setup (&optional arg)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
245 (interactive)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
246 (require 'mail-extras)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
247 (require 'diary)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
248 (let ((scr (selected-frame)))
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
249 ; (sit-for 5)
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
250 (load "ht-rooms.config" nil t)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
251 (unwind-protect (make-screen-for-room "diary" "0" "+62"))
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
252 ; (sit-for 5)
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
253 (unwind-protect (make-screen-for-room "elisp" "-25" "+79"))
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
254 ; (sit-for 5)
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
255 (unwind-protect (make-screen-for-room "news" "-50" "+96"))
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
256 ; (sit-for 5)
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
257 (unwind-protect (make-screen-for-room "mail" "-75" "+113"))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
258 (sit-for 1)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
259 (delete-screen scr))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
260 (setq ht-default-config (current-window-configuration)))))
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
261 )
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
262 (message "gnus-init")
33
ce71d12b00ad don't load gnus-init etc. if mail is not expected
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 32
diff changeset
263 (site-caseq ((edin markup maritain)
ce71d12b00ad don't load gnus-init etc. if mail is not expected
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 32
diff changeset
264 (require 'gnus-init)))
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
265 )
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
266 ;; vanilla v19 goes here
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
267 ;; probably stale/broken
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
268 (message "vanilla")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
269 (if window-system
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
270 (progn
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
271 (message "window-system-2")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
272 (defvar ht-frame-parameter-mods
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
273 '((auto-raise . t)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
274 (auto-lower . nil)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
275 (cursor-type . bar)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
276 (nconc
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
277 (site-caseq ((laptop maritain) (list '(height . 35)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
278 (t
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
279 (list
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
280 '(font .
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
281 "-adobe-courier-medium-r-normal--14-*"))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
282 ht-frame-parameter-mods
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
283 )
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
284 ;; if we have X, we have ISO-Latin-1, so
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
285 ;; set char codes 128--255 to display as themselves.
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
286 (require 'disp-table)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
287 (standard-display-8bit 161 255)
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
288 ; (transient-mark-mode t)
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
289 ;; hightlight searching in bold
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
290 (setq search-highlight t)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
291 (make-face 'isearch)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
292 (copy-face 'bold 'isearch)
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
293 ; (set-face-underline-p 'region t)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
294 ; (set-face-background 'region "white")
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
295 ; (set-face-foreground 'region "black")
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
296 ; (setq c++-font-lock-keywords 'undef)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
297 ; (setq c-font-lock-keywords 'undef)
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
298 (modify-frame-parameters
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
299 nil
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
300 ht-frame-parameter-mods)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
301 (setq default-frame-alist
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
302 (append
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
303 ht-frame-parameter-mods default-frame-alist))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
304 ;; fix cut and paste
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
305 (setq interprogram-paste-function nil
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
306 interprogram-cut-function nil)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
307 (defun ht-mouse-set-region (click) "set region and primary selection"
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
308 (interactive "e")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
309 (mouse-set-region click)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
310 (x-set-selection "PRIMARY" (buffer-substring (point)(mark))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
311 (defun ht-mouse-drag-region (click)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
312 "drag region and set primary selection"
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
313 (interactive "e")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
314 (mouse-drag-region click)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
315 (if mark-active
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
316 (x-set-selection "PRIMARY" (buffer-substring (point)(mark)))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
317 (global-set-key [drag-mouse-1] (function ht-mouse-set-region))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
318 (global-set-key [down-mouse-1] (function ht-mouse-drag-region))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
319 (defun ht-mouse-insert-primary (click)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
320 "set point and insert primary selection"
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
321 (interactive "e")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
322 (mouse-set-point click)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
323 (push-mark nil nil t)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
324 (insert (x-selection)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
325 (global-set-key [mouse-2] (function ht-mouse-insert-primary))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
326 (setq dired-mode-hook
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
327 '(lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
328 (font-lock-mode 1)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
329 (define-key dired-mode-map
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
330 [mouse-2] '(lambda (click)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
331 (interactive "e")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
332 (mouse-set-point click)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
333 (dired-advertised-find-file)))))
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
334
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
335 (defun ht-rooms-setup (&optional arg)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
336 (interactive)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
337 (require 'mail-extras)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
338 (require 'diary)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
339 (require 'my-news)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
340 ;; override changed default, except in gnus
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
341 (setq mail-use-rfc822 nil)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
342 (add-hook 'gnus-summary-mode-hook
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
343 (function (lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
344 (make-local-variable 'mail-use-rfc822)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
345 (setq mail-use-rfc822 t))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
346 (let ((scr (selected-frame)))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
347 (load "ht-rooms.config" nil t)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
348 (unwind-protect (make-frame-for-room "elisp" "-25" "-58"))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
349 (unwind-protect (progn
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
350 (make-frame-for-room "news" "-50" "-40")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
351 ))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
352 (unwind-protect (progn
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
353 (make-frame-for-room "mail" "-75" "-22")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
354 ))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
355 (unwind-protect (progn
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
356 (make-frame-for-room
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
357 "diary"
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
358 "-0"
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
359 (concat
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
360 "+"
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
361 (format
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
362 "%d"
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
363 (-
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
364 (cdr
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
365 (assoc
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
366 'top
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
367 (frame-parameters
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
368 (cdr
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
369 (assoc
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
370 "elisp"
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
371 frames-table)))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
372 18))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
373 ))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
374 (make-frame-invisible scr))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
375 (setq ht-default-config (current-window-configuration))))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
376 (setq sgml-insert-missing-element-comment nil)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
377 (load "psgml" nil t)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
378 (load "psgml-edit" nil t)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
379 (load "xml-hack" nil t)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
380 (add-hook 'sgml-mode-hook 'sgml-fix-para)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
381 ;; v18 emacs only was here
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
382
24
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
383 (defun ht-rooms-resetup ()
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
384 (interactive)
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
385 (setq rooms-table nil)
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
386 (setq frames-table nil)
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
387 (ht-rooms-setup))
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
388
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
389 (defun sgml-fix-para ()
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
390 (setq paragraph-separate
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
391 "</[^>]*>\n\\([ \t]+\\| \\)")
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
392 (setq paragraph-start
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
393 "^[ \t]*</?[A-Za-z._-]+[ >]"))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
394
24
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
395 (defun highlight-headers-ht-follow-url-netscape (url &optional arg)
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
396 (message "Sending URL to Netscape...")
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
397 (save-excursion
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
398 (set-buffer (get-buffer-create "*Shell Command Output*"))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
399 (erase-buffer)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
400 (if (equal 0 (call-process "netscape" nil t nil "-display" ":0.0"
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
401 "-remote"
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
402 (concat "openURL(" url ")")))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
403 ;; it worked
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
404 nil
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
405 ;; it didn't work, so start a new Netscape process.
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
406 (call-process "netscape" nil 0 nil url)))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
407 (message "Sending URL to Netscape... done"))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
408
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
409 ;;; Moved from custom.el -- not customisable, I think. . .
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
410 (setq
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
411 ecb-options-version "2.27"
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
412 gnus-treat-display-smileys nil
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
413 gnus-treat-from-picon nil
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
414 gnus-treat-mail-picon nil
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
415 gnus-treat-newsgroups-picon nil
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
416 jde-enable-abbrev-mode t
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
417 package-get-require-signed-base-updates nil
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
418 pgg-passphrase-cache-expiry 36000
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
419 pui-package-install-dest-dir "/afs/inf.ed.ac.uk/user/h/ht/.xemacs/xemacs-packages"
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
420 efs-ftp-program-args '("-i" "-n" "-g" "-v")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
421 efs-use-passive-mode t ; actually turns it _off_ !
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
422 )
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
423
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
424 (custom-set-faces
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
425 '(font-lock-builtin-face ((((type x mswindows)(class color)(background light))(:foreground "Purple"))(((type tty)(class color))(:foreground "magenta"))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
426 '(font-lock-comment-face ((((type x mswindows)(class color)(background light))(:foreground "blue4"))(((type tty)(class color))(:foreground "blue"))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
427 '(font-lock-constant-face ((((type x mswindows)(class color)(background light))(:foreground "CadetBlue"))(((type tty)(class color))(:foreground "cyan"))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
428 '(font-lock-doc-string-face ((((type x mswindows)(class color)(background light))(:foreground "green4"))(((type tty)(class color))(:foreground "green"))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
429 '(font-lock-function-name-face ((((type x mswindows)(class color)(background light))(:foreground "brown4"))(((type tty)(class color))(:foreground "cyan" :bold))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
430 '(font-lock-keyword-face ((((type x mswindows)(class color)(background light))(:foreground "red4"))(((type tty)(class color))(:foreground "red" :bold))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
431 '(font-lock-preprocessor-face ((((type x mswindows)(class color)(background light))(:foreground "blue3"))(((type tty)(class color))(:foreground "cyan" :bold))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
432 '(font-lock-reference-face ((((type x mswindows)(class color)(background light))(:foreground "red3"))(((type tty)(class color))(:foreground "red"))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
433 '(font-lock-string-face ((((type x mswindows)(class color)(background light))(:foreground "green4"))(((type tty)(class color))(:foreground "green" :bold))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
434 '(font-lock-type-face ((((type x mswindows)(class color)(background light))(:foreground "steelblue"))(((type tty)(class color))(:foreground "cyan" :bold))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
435 '(font-lock-variable-name-face ((((type x mswindows)(class color)(background light))(:foreground "magenta4"))(((type tty)(class color))(:foreground "magenta" :bold))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
436 '(font-lock-warning-face ((((type x mswindows)(class color)(background light))(:foreground "Red" :bold))(((type tty)(class color))(:foreground "red" :bold))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
437 )
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
438
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
439 (custom-set-faces
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
440 '(modeline (
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
441 (((type x mswindows)(class color))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
442 (:foreground "black" :background "gray80"))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
443 (t
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
444 (:foreground "black" :background "white"))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
445 '(modeline-buffer-id (
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
446 (((type x mswindows)(class color))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
447 (:foreground "blue4" :background "gray80"))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
448 (((type tty)(class color))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
449 (:foreground "blue" :background "white"))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
450 (t
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
451 (:foreground "black" :background "white" :bold t))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
452 '(modeline-mousable (
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
453 (((type x mswindows)(class color))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
454 (:foreground "firebrick" :background "gray80"))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
455 (((type tty)(class color))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
456 (:foreground "red" :background "white"))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
457 (t
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
458 (:foreground "black" :background "white"))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
459 '(modeline-mousable-minor-mode (
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
460 (((type x mswindows)(class color))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
461 (:foreground "green4" :background "gray80"))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
462 (((type tty)(class color))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
463 (:foreground "green" :background "white" :bold t))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
464 (t
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
465 (:foreground "black" :background "white"))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
466 )
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
467
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
468 (cd (user-home-directory))
19
cc9c7bc8194a custom-size
ht
parents: 17
diff changeset
469
24
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
470 (require 'misc) ; used to be in common-init...
19
cc9c7bc8194a custom-size
ht
parents: 17
diff changeset
471
cc9c7bc8194a custom-size
ht
parents: 17
diff changeset
472 (ht-custom-size)