chiark / gitweb /
cfc34945bd9335959267bab2f3ad57571186843c
[ian-dotfiles.git] / home / emacs / ian.el
1 ; This is my real emacs start-up file (for chiark).
2
3
4 (defalias 'perl-mode 'cperl-mode)
5 (setq cperl-invalid-face nil
6       cperl-indent-level 4
7       cperl-continued-statement-offset 4)
8
9 (make-variable-buffer-local 'indent-line-function)
10 ; Un-disable narrow and eval-expression
11 (put 'narrow-to-region 'disabled nil)
12 (put 'eval-expression 'disabled nil)
13 (standard-display-european t)
14 ;
15 (setq browse-url-netscape-program "mozilla")
16 (setq common-lisp-hyperspec-root "/usr/share/doc/hyperspec/")
17 ;
18 ; Make sure we don't disturb links or change ownership, use numbers
19 (setq backup-by-copying-when-mismatch t)
20 (setq backup-by-copying-when-linked t)
21 ;(setq version-control t
22 ;      kept-new-versions 4
23 ;      kept-old-versions 4
24 ;      trim-versions-without-asking t)
25 ;
26 ; Various one-liners
27 (setq require-final-newline "ask")
28 (if (string= window-system 'x) (load-library "ian-x"))
29 (load-library "ian-aliases")
30 ; (load-library "auto-pgp")
31 ; (load-library "debian-changelog-mode")
32 ; (if (string= (getenv "TERM") "bbcb32") (setq term-file-prefix nil))
33 ; (setq explicit-shell-file-name "/usr/local/bin/tcsh")
34 (setq inhibit-local-variables t)
35 (setq enable-local-variables 'ask-me)
36 (setq enable-recursive-minibuffers t)
37 (setq compile-command "make")
38 (setq next-line-add-newlines t)
39 (setq diff-switches "-u")
40 (setq line-move-visual nil)
41 (display-time)
42 ;
43 (set-variable 'search-repeat-char 28)
44 (set-fringe-mode (cons 0 nil))
45 (if (string-match "^19\." emacs-version)
46     (progn
47 ;      (setq file-name-handler-alist     ; Disable nasty auto-loading of ange-ftp
48 ;            (delq (rassq 'ange-ftp-completion-hook-function file-name-handler-alist)
49 ;                  file-name-handler-alist))
50       (require 'find-alternate-18style)
51       (defun unset-down-mouse-23 ()
52         (local-set-key [mouse-2] 'mouse-yank-at-click)
53         (local-unset-key [down-mouse-2])
54         (local-unset-key [down-mouse-3])
55         (local-unset-key [C-down-mouse-3]))
56       (add-hook 'vm-mode-hook 'unset-down-mouse-23)
57       (add-hook 'vm-mail-mode-hook 'unset-down-mouse-23)
58       (add-hook 'text-mode-hook 'unset-down-mouse-23)
59       (add-hook 'Info-mode-hook
60                 (function (lambda ()
61                             (local-set-key " " 'scroll-up)
62                             (local-set-key "\7f" 'scroll-down))))
63       (add-hook 'sh-mode-hook
64                 (function (lambda ()
65                             (local-set-key "<" 'self-insert-command))))
66       (define-key isearch-mode-map "\1c" 'isearch-repeat-forward)
67       (define-key isearch-mode-map "\1d" 'isearch-quote-char)))
68 ;
69 (menu-bar-mode -1)
70 (defun terminal-keybindings ()
71   "This function should be called by the term-setup-hook mechanism"
72   (interactive)
73   ; Set my own keybindings
74   ;
75   ; Set keybindings generally (including I-search on C-\)
76 ;  (global-set-key "    " 'self-insert-command)
77   (global-set-key "\1c" 'isearch-forward)
78 ;  (global-set-key "\r" 'newline)
79   (global-set-key "\ f" 'set-mark-command)
80   (global-set-key "\1d" 'quoted-insert)
81   ;
82   ; Set keybindings on esc-map
83   (global-set-key "\e#" 'query-replace-regexp)
84   (global-set-key "\e+" 'toggle-truncate-lines)
85   (global-set-key "\eg" 'goto-line)
86   (global-set-key "\es" 'isearch-forward-regexp)
87   (global-set-key "\e\e" 'eval-expression)
88   ;
89   ; Set keybindings on ^X-map.
90   (global-set-key "\18m" 'vm-mail)
91   (global-set-key "\18\1c" 'save-buffer)
92   (global-set-key "\18\1d" 'toggle-read-only)
93   (global-set-key "\18#" 'recover-file)
94   (global-set-key "\18\12" 'bury-buffer)
95   (global-set-key "\18\v" 'quicker-compile)
96   (global-set-key "\18\18" 'exchange-point-and-mark)
97   (global-set-key "\18\1a" 'load-tramp)
98   (global-set-key "\184\16" 'scroll-other-window)
99   (global-set-key "\184m" 'vm-mail-other-window)
100   (global-set-key "\189" 'vm-visit-folder)
101   (global-set-key "\188" 'rmail-input)
102   (global-set-key "\18p" 'cite-region)
103   (global-set-key "\18F" 'mail-formletter)
104   ;
105   ; Set keybindings for Sun numeric pad.
106   (setq esc-bracket-map (make-keymap))
107   (define-key esc-bracket-map "D" 'backward-char)
108   (define-key esc-bracket-map "C" 'forward-char)
109   (define-key esc-bracket-map "A" 'previous-line)
110   (define-key esc-bracket-map "B" 'next-line)
111   (define-key esc-map "[" esc-bracket-map)
112   (global-set-key "\e[214z" 'beginning-of-buffer)
113   (global-set-key "\e[220z" 'end-of-buffer)
114   (global-set-key "\e[216z" 'scroll-down)
115   (global-set-key "\e[222z" 'scroll-up)
116   (global-set-key "\e[192z" 'save-buffer)
117   (global-set-key "\e[194z" 'save-some-buffers)
118   (global-set-key "\e[195z" 'undo)
119   (global-set-key "\e[193z" 'call-last-kbd-macro)
120   (global-set-key "\e[196z" 'switch-to-buffer-other-window)
121   (global-set-key "\e[197z" 'copy-region-as-kill)
122   (global-set-key "\e[198z" 'find-file)
123   (global-set-key "\e[199z" 'yank)
124   (global-set-key "\e[198z" 'find-alternate-file)
125   (global-set-key "\e[200z" 'find-file)
126   (global-set-key "\e[201z" 'kill-region)
127   (global-set-key "\e[-1z" 'info)
128   ;
129   ; Set keybindings for Chiarks' x11emacs
130   (global-set-key "\e[5~" 'scroll-down)
131   (global-set-key "\e[6~" 'scroll-up)
132   ;
133   ; Set keybindings for knackered vt100-like terminal emulators.
134   (global-set-key "\eOt" 'scroll-down)
135   (global-set-key "\eOu" 'scroll-up)
136   (global-set-key "\eOD" 'backward-char)
137   (global-set-key "\eOC" 'forward-char)
138   (global-set-key "\eOA" 'previous-line)
139   (global-set-key "\eOB" 'next-line))
140 (setq term-setup-hook 'terminal-keybindings)     ; remap keys in due course
141 ;
142 (setq frame-title-format
143       '(multiple-frames
144         (:eval 
145          (let*
146              ((buf (current-buffer))
147               (leaf (buffer-name buf))
148               (dir default-directory))
149            (if dir
150                (let*
151                    ((dir (abbreviate-file-name dir))
152                     (node (replace-regexp-in-string "\\..*" "" system-name)))
153                  (concat leaf "  " node ":" dir))
154              leaf)))
155         ("" invocation-name "@" system-name)))
156 ;(setq frame-title-format
157 ;      '(multiple-frames
158 ;       (:eval 
159 ;        (let*
160 ;            ((buf (current-buffer))
161 ;             (fn (buffer-file-name buf)))
162 ;          (if fn
163 ;              (let*
164 ;                  ((fn (abbreviate-file-name fn))
165 ;                   (dir (file-name-directory fn))
166 ;                   (leaf (file-name-nondirectory fn))
167 ;                   (node (replace-regexp-in-string "\\..*" "" system-name)))
168 ;                (concat leaf "  " node ":" dir))
169 ;            (buffer-name buf))))
170 ;       ("" invocation-name "@" system-name)))
171 ;
172 ; Autoload definitions
173 (autoload 'tar-mode "tar-mode")
174 (autoload 'uncompress-while-visiting "uncompress")
175 ; (autoload 'c++-mode "c++-mode" "Mode for editing C and C++ programs" t)
176 (autoload 'hide-ifdef-mode "hideif" "For editing code with #ifdefs" t)
177 ;(setq-default indent-tabs-mode nil)
178 (autoload 'dired-find-alternate-file "dired-alternate" "Find alternately" t)
179 (autoload 'dired-run-file "dired-alternate" "Run this file" t)
180 (autoload 'perl-mode "perl-mode" "Mode for Perl code" t)
181 ; (autoload 'rmail "rmail-fixed" "Patched mail reader" t)
182 (autoload 'quicker-compile "quicker-compile" "Patched Compile mode" t)
183
184 ;(autoload 'vm "vm" "Start VM on your primary inbox." t)
185 ;(autoload 'vm-visit-folder "vm" "Start VM on an arbitrary folder." t)
186 ;(autoload 'vm-visit-virtual-folder "vm" "Visit a VM virtual folder." t)
187 ;(autoload 'vm-mode "vm" "Run VM major mode on a buffer" t)
188 ;(autoload 'vm-mail "vm" "Send a mail message using VM." t)
189 ;(autoload 'vm-submit-bug-report "vm" "Send a bug report about VM." t)
190 ;
191 ;(require 'vm-autoload)
192 ;
193 ; (autoload 'info "info-fixed" "Patched info browser" t)
194 (setq shell-mode-hook
195       '(lambda ()
196          (make-variable-buffer-local 'scroll-step)
197          (setq scroll-step 1)))
198 (setq inferior-lisp-program "sbcl")
199 ;(setq jit-lock-chunk-size 100
200 ;      jit-lock-stealth-time 1.00)
201 (setq dired-mode-hook
202       '(lambda ()
203          (define-key dired-mode-map "F" 'dired-find-alternate-file)
204          (define-key dired-mode-map "X" 'dired-run-file)))
205 ;
206 ; Prevent loading of default init file and do some of the things it did
207 ; (setq inhibit-default-init t)
208 ;
209 ; Additional alist handling function
210 ;(defun alist-remove-elem (s s-list)
211 ;  "Delete the element of the alist S-LIST whose car is S"
212 ;  (if s-list (if (equal s (car (car s-list)))
213 ;                (cdr s-list)
214 ;              (cons (car s-list) (alist-remove-elem s (cdr s-list))))
215 ;    (nil)))
216 ;
217 ; Load C++ mode and edit Perl in perl mode
218 (setq auto-mode-alist
219       (append '(("\\.[ch]$" . c-mode)
220                 ("\\.[CH]$" . c++-mode)
221                 ("\\.cc$" . c++-mode)
222                 ("\\.hh$" . c++-mode)
223 ;                ("\\.tar$" . tar-mode)
224                 ("\\.pl$" . perl-mode)
225                 ("\\.ci$" . tex-mode)
226                 ("\\.asm$" . fundamental-mode)
227                 ("\\.Z$" . uncompress-while-visiting))
228               auto-mode-alist))
229 (setq interpreter-mode-alist
230       (append '(("sh" . fundamental-mode)
231                 ("bash" . fundamental-mode))
232               interpreter-mode-alist))
233 ;
234 ; Use auto-fill when editing text
235 (add-hook 'text-mode-hook '(lambda () (auto-fill-mode 1)))
236 ; (add-hook 'text-mode-hook '(lambda () (local-set-key "        " 'self-insert-command)))
237 ;
238 ; Set up newline to auto-indent & other stuff for perl, c++ and c modes.
239 (setq perl-mode-hook '(lambda () 
240                         (local-set-key ";" 'self-insert-command)))
241 (setq c++-mode-hook '(lambda ()
242                        (hide-ifdef-mode 1)
243                        (local-set-key "," 'self-insert-command)
244                        (local-set-key ":" 'electric-c++-terminator)))
245 ; c++-electric-colon
246 (setq c-mode-hook '(lambda ()
247                      (hide-ifdef-mode 1)
248                      (c-set-offset 'substatement-open 0 nil)
249                      (local-set-key "," 'self-insert-command)
250                      (local-set-key ";" 'self-insert-command)
251                      (local-set-key "/" 'self-insert-command)
252                      (local-set-key "*" 'self-insert-command)
253                      (local-set-key "#" 'self-insert-command)
254                      (local-set-key "(" 'self-insert-command)
255                      (local-set-key ")" 'self-insert-command)
256                      (local-set-key "{" 'self-insert-command)
257                      (local-set-key "\r" 'newline-and-indent)))
258 (setq c-hanging-comment-ender-p nil)
259 ;
260 (defun vm-mail-other-window ()
261   "Like `vm-mail' command, but display buffer in another window."
262   (interactive)
263   (switch-to-buffer-other-window (current-buffer))
264   (vm-mail))
265 ;
266 ; mail precedences
267 (setq mail-precedence-key-alist
268       '((?0  . "special-delivery")
269         (?1  . "air-mail")
270         (?2  . "first-class")
271         (?3  . "second-class")
272         (?5  . "third-class")
273         (?\  . nil)
274         (?6  . "bulk")
275         (?9  . "junk")))
276 ;
277 (defun mail-precedence-as-key ()
278   "Set precedence by looking up last command char in mail-precedence-key-alist"
279   (interactive)
280   (message "%s" (concat "Precedence ["
281                         (mapconcat '(lambda (c) (char-to-string (car c)))
282                                    mail-precedence-key-alist "")
283                         "] ?"))
284   (let* ((key (read-char))
285          (prec (assoc key mail-precedence-key-alist)))
286     (if prec (mail-precedence (cdr prec))
287       (error "mail-precedence-as-key `%s' not found" key))))
288 ;
289 (defun mail-precedence-as-key-send-and-exit (arg)
290   "Set precedence by looking up last command char in mail-precedence-key-alist,
291 then call send-and-exit."
292   (interactive "P")
293   (mail-precedence-as-key)
294   (execute-kbd-macro "\ 3\ 3"))
295 ;
296 (defun mail-precedence (prec)
297   (save-excursion
298     (mail-position-on-field "Precedence")
299     (let ((p (point)))
300       (beginning-of-line)
301       (delete-region (point) p)
302       (if prec
303           (insert "Precedence: " prec)
304         (delete-char 1)))))
305 ;
306 (defun mail-mode-setup-keys ()
307   (local-set-key "\ 3\10" 'mail-precedence-as-key)
308   (local-set-key "\ 3p" 'mail-precedence-as-key-send-and-exit))
309 (add-hook 'mail-mode-hook 'mail-mode-setup-keys)
310 (add-hook 'vm-mail-mode-hook 'mail-mode-setup-keys)
311 ;
312 (defun vm-mail-other-window ()
313   "Like `vm-mail' command, but display buffer in another window."
314   (interactive)
315   (switch-to-buffer-other-window (current-buffer))
316   (vm-mail))
317 ;
318 (defun mail-formletter ()
319   "Run VM-mail with ,Formletter"
320   (interactive)
321   (vm-mail)
322   (rename-buffer (generate-new-buffer-name "form letter") t)
323   (delete-region (point-min) (point-max))
324   (insert-file (concat vm-folder-directory ",Formletter")))
325 ;
326 ; This function bound to C-x C-z
327 (defun load-tramp ()
328   "Load tramp using require, if it isn't loaded already"
329   (interactive)
330   (message "Loading tramp...")
331   (require 'tramp) ; -extended
332   (message "Loading tramp...done"))
333 ;
334 ; This function bound to M-+
335 (defun toggle-truncate-lines ()
336   "Toggle truncation or folding of long lines"
337   (interactive)
338   (set-variable 'truncate-lines (not truncate-lines))
339   (redraw-display))
340 ;
341 ; RMAIL stuff
342 ;(setq rmail-file-name "~/mail/RMAIL"
343 ;      mail-archive-file-name "~/mail/Outbound"
344 ;      rmail-primary-inbox-list '("~/mbox" "~/mail/Outbound" "~/mail/Record"
345 ;                                 "~/mail/Import" "/var/spool/mail/ian")
346 ;      rmail-delete-after-output t
347 ;      rmail-last-rmail-file ""
348 ;      rmail-ignored-headers (concat
349 ;                             "^Content-Identifier:\\|^X400-[^O][A-Za-z-]+:\\|"
350 ;                             rmail-ignored-headers))
351 ;
352 (defun make-regexps-ignore-non-address (list)
353   (apply 'append (mapcar
354                   '(lambda (item)
355                      (let ((item (mapconcat
356                                   '(lambda (ch)
357                                      (let ((s (char-to-string ch)))
358                                        (if (string-match "[][.*+?^$\\]" s)
359                                            (concat "\\" s)
360                                          s)))
361                                   item "")))
362                        (list
363                         (concat "<" item ">")
364                         (concat "^" item " *\\((.*)\\)?$"))))
365                   list)))
366 ;
367 ; BBDB
368 (setq bbdb-north-american-phone-numbers-p nil
369       bbdb/mail-auto-create-p t
370       bbdb-auto-revert-p t
371       bbdb-notice-auto-save-file-p t
372       bbdb-message-caching-enabled t)      
373 ;
374 ; VM stuff
375 (if (file-exists-p "~/private/private.el")
376   (load-file "~/private/private.el"))
377 (if (file-exists-p "~/private/private2.el")
378   (load-file "~/private/private2.el"))
379 (setq vm-included-text-attribution-format "%F writes (\"%s\"):\n"
380       vm-reply-subject-prefix "Re: "
381       vm-folder-directory "~/mail/"
382       vm-delete-after-saving t
383       vm-delete-empty-folders t
384       vm-mutable-windows t
385       vm-auto-get-new-mail nil
386       vm-auto-next-message nil
387       vm-jump-to-new-messages nil
388       vm-jump-to-unread-messages nil
389       vm-auto-displayed-mime-content-types '("text" "multipart")
390       vm-mime-digest-discard-header-regexp "only-drop-this-header"
391       vm-preview-lines nil
392       vm-included-text-prefix "> "
393       vm-confirm-quit 1
394       vm-auto-center-summary t
395       vm-confirm-new-folders t
396       vm-circular-folders nil
397       vm-visit-when-saving 0
398       vm-move-after-deleting t
399       vm-keep-sent-messages t
400       vm-follow-summary-cursor t
401       vm-frame-per-composition nil
402       vm-frame-per-edit nil
403       vm-frame-per-summary nil
404       vm-frame-per-folder nil
405       vm-tale-is-an-idiot t
406       vm-primary-inbox (concat vm-folder-directory "INBOX")
407       vm-sinbin-inbox (concat vm-folder-directory "SINBOX")
408       vm-uninteresting-senders "ian"
409       vm-reply-ignored-addresses
410       (make-regexps-ignore-non-address
411        '("ian@chiark.chu.cam.ac.uk" "ian" "iwj10@cus.cam.ac.uk"
412          "ian@chiark.greenend.org.uk"
413          "ijackson@nyx.cs.du.edu" "ijackson@gnu.ai.mit.edu"))
414       vm-primary-inbox (concat vm-folder-directory "INBOX")
415
416       vm-uninteresting-senders "ian"
417       vm-reply-ignored-addresses
418       (make-regexps-ignore-non-address
419        '("ijackson@chiark.chu.cam.ac.uk" "ijackson"
420          "iwj10@thor.cam.ac.uk" "iwj10@hermes.cam.ac.uk" "iwj10@cl.cam.ac.uk"
421          "iwj10@cam.ac.uk" "Ian.Jackson@cl.cam.ac.uk"))
422       mail-archive-file-name "~/mail/Outbound"
423
424
425       vm-startup-with-summary t
426
427       user-mail-address "ijackson@chiark.greenend.org.uk"
428
429
430       vm-startup-with-summary nil
431       vm-summary-format "%3n %a %2d %3m  %-19.19F  %s\n"
432       mail-archive-file-name "~/mail/Outbound"
433       vm-mime-8bit-text-transfer-encoding '8bit)
434 ;
435 (add-hook 'vm-mode-hook
436           '(lambda ()
437              (local-set-key "Q" 'vm-quit)
438              (local-set-key "q" "###Q")))
439 ;(add-hook 'mail-mode-hook
440 ;          '(lambda ()
441 ;             (if (and (boundp 'folder-buffer)
442 ;                      folder-buffer
443 ;                      (string= (buffer-file-name folder-buffer)
444 ;                               (file-truename vm-sysadmin-inbox)))
445 ;                 (progn
446 ;                   (make-local-variable 'vm-mail-header-from)
447 ;                   (setq vm-mail-header-from
448 ;                         "sysadmin@chiark.greenend.org.uk (Ian Jackson)")
449 ;                   (make-local-variable 'mail-archive-file-name)
450 ;                   (setq mail-archive-file-name
451 ;                         "~/mail/SOutbound")))))
452 ;
453 ;;(defun vmi ()
454 ;  (interactive)
455 ;  (vm "/u/ijackson/mail/INBOX"))
456 ;;
457 (defun vms ()
458   (interactive)
459   (vm vm-sinbin-inbox))
460 ;
461 (defun make-session ()
462   "Makes this emacs hard to kill by requiring ^X^Cy to kill it
463 instead of just ^X^C."
464   (interactive)
465   (global-unset-key "\18\ 3")
466   (global-set-key "\18\ 3y" 'save-buffers-kill-emacs))
467 ;
468 ; Fix problems with M-| setting window title of emacs' parent xterm
469 (defun envdelete-term-termcap-windowid (list)
470   (let ((l list))
471     (mapcar '(lambda (x)
472                (if x (delq x l)))
473             (mapcar '(lambda (x)
474                        (if (or (string-match "^TERM=" x)
475                                (string-match "^TERMCAP=" x)
476                                (string-match "^WINDOWID=" x))
477                            x
478                          nil))
479                     l))
480     l))
481 (setq process-environment
482       (envdelete-term-termcap-windowid process-environment))
483 ;
484 (defun add-insertion-keys (table)
485   "Adds keybindings according to TABLE.  Each element of
486 TABLE should be a four-element list.
487
488 BINDING should be the key to bind; FUNCTION will be the name of the
489 function defined to do the insertion; DESCRIPTION will be inserted
490 into \"Inserts ... .\", and used as the descriptive string for the
491 generated function; STRING is the string which will actually be
492 inserted into the buffer when the keystroke is pressed."
493   (while table
494     (let* ((head (car table))
495            (key (car head))
496            (func (nth 1 head))
497            (desc (nth 2 head))
498            (string (nth 3 head)))
499       (defalias func
500         (list
501          'lambda () 
502          (concat "Inserts " desc ".")
503          '(interactive)
504          (list 'insert string)))
505       (funcall 'local-set-key key func))
506     (setq table (cdr table))))
507
508 (defun ian-sgml-setup ()
509   (interactive)
510   (add-insertion-keys
511    '(("\ 3\r" sgml-insert-new-para "new paragraph markup" "\n<p>\n")
512      ("\ 3\14" sgml-insert-tt-emph "tt emph markup" "<tt/")
513      ("\ 3\10" sgml-insert-prgn-emph "prgn emph markup" "<prgn/")
514      ("\ 3\ 5" sgml-insert-em-emph "em emfh markup" "<em/")
515      ("\ 3\16" sgml-insert-var-empfh "var emph markup" "<var/"))))
516 (setq sgml-local-catalogs '("/jura:/usr/lib/debiandoc-sgml/sgml/catalog"))
517   
518 (add-hook 'sgml-mode-hook 'ian-sgml-setup)
519 ;
520 (defvar cite-string "> " "String to insert when citing")
521 ;
522 (defun cite-region (start end)
523   "Quote each line in the region with an angle-bracket and space.
524
525 The citation string is taken from cite-string."
526   (interactive "r")
527   (save-excursion
528     (save-restriction
529       (narrow-to-region start end)
530       (goto-char (point-min))
531       (insert cite-string)
532       (while
533           (and
534            (= (forward-line) 0)
535            (> (point-max) (point)))
536         (insert cite-string)))))
537 ;
538 ; End of this file.