X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/374edd691ce1a7fd2462aa249d2a1ef4c2c9ddd2..f4450ac9546d6e467919739c00c31f85f94c8590:/emacs diff --git a/emacs b/emacs index 7ca4cc3..f3429bd 100644 --- a/emacs +++ b/emacs @@ -1,6 +1,4 @@ -;;; -*-emacs-lisp-*- -;;; -;;; $Id: .emacs,v 1.11 1997/01/01 18:47:09 mdw Exp $ +;;; -*- mode: emacs-lisp; coding: utf-8 -*- ;;; ;;; Emacs configuration file ;;; @@ -32,8 +30,6 @@ ;; --- Load some other bits of code --- -(setq load-path (cons "~/lib/emacs" load-path)) - (maybe-autoload 'cc-mode "cc-mode" nil t) (maybe-autoload 'rexx-mode "rexx-mode" nil t) (maybe-autoload 'cvs-update "pcl-cvs" nil t) @@ -45,17 +41,14 @@ (not (memq 'GIT vc-handled-backends)) (setq vc-handled-backends (cons 'GIT vc-handled-backends))) (and (library-exists-p "quilt") + (not mdw-fast-startup) (load "quilt")) -(trap - (or (fboundp 'make-regexp) - (load "make-regexp"))) - -(trap (require 'tex-site)) +(trap (or mdw-fast-startup (require 'tex-site))) ;; --- Skeleton stuff --- -(trap (require 'skel-init)) +(trap (or mdw-fast-startup (require 'skel-init))) ;; --- Window system-dependent things --- @@ -85,6 +78,15 @@ (setq backup-by-copying-when-linked t) (setq backup-by-copying-when-mismatch t) +(setq mdw-backup-disable-regexps + '("/\\.git/COMMIT_EDITMSG$" + "/\\.stgit\\(-edit\\.txt\\|msg\\.txt\\|\\.msg\\)$")) + +;; --- Safe variables --- + +(setq safe-local-variable-values + '((make-backup-files . nil))) + ;; --- Calculator fiddling --- (setq calc-settings-file "~/.emacs-calc") @@ -100,21 +102,13 @@ (setq rmail-display-summary t) (setq rmail-file-name "~/Mail/rmail") -;; --- GNUS configuration --- - -(setq gnus-select-method '(nntp "tux.nsict.org")) -(setq gnus-read-active-file 'some) -(setq gnus-inhibit-startup-message t) -(setq gnus-large-newsgroup 500) - ;; --- Internationalization twiddling --- (trap - (standard-display-european 1) + ;; Have top-bit-set characters work properly in terminals. (let ((im (current-input-mode))) (apply #'set-input-mode - (nconc (list (nth 0 im) (nth 1 im) 0) (nthcdr 3 im)))) - (set-language-environment "Latin-1")) + (nconc (list (nth 0 im) (nth 1 im) 0) (nthcdr 3 im))))) ;; --- Don't disable any commands --- @@ -124,6 +118,21 @@ (mdw-divvy-window) +;; --- Postscript printing --- + +(setq ps-paper-type 'a4 + ps-print-color-p nil + ps-landscape-mode t + ps-number-of-columns 3 + ps-font-family 'Courier + ps-font-size 4) + +;; --- Splash screen stuff --- + +(or window-system + (setq inhibit-splash-screen t + inhibit-startup-message t)) + ;; --- Other goodies --- (trap (resize-minibuffer-mode 1)) ;Make minibuffer grow dynamically @@ -131,23 +140,29 @@ (setq dabbrev-case-replace nil) ;Retain case when completing (setq next-line-add-newlines nil) ;Don't add weird newlines (setq split-height-threshold 45) ;Reuse windows where sensible +(setq display-buffer-reuse-frames nil ;Don't confuse me by showing buffers + iswitchb-default-method 'samewindow) ;in other random frames (setq dired-deletion-confirmer ;Make deletion easier in dired (symbol-function 'y-or-n-p)) (setq dired-listing-switches "-alF") ;Do `ls -F' things in dired windows +(setq wdired-allow-to-change-permissions t) (setq case-fold-file-names nil) ;Don't translate file names (grr...) (setq scroll-step 5) ;Don't scroll too much at a time (setq-default fill-column 77) ;I use rather narrow windows (setq-default comment-column 40) ;Set a standard comment column (setq-default truncate-partial-width-windows nil) +(setq woman-use-own-frame nil) ;Keep man pages somewhere sensible (setq diff-switches "-u" ;I like reading unified diffs cvs-diff-flags (list diff-switches)) (setq echo-keystrokes 10) ;Long delay before keystrokes echo (setq ange-ftp-ftp-program-name "pftp") ;Use passive FTP (setq find-ls-option ;Build file lists efficiently '("-print0 | xargs -0r ls -ld" . "ld")) +(setq bookmark-save-flag 0) ;Save bookmarks automatically (setq Info-fontify-maximum-menu-size 60000) -(setq ispell-dictionary "british" - flyspell-default-dictionary "british" +(setq ispell-program-name "aspell" + ispell-local-dictionary "en_GB-ize-w_accents" + flyspell-default-dictionary "en_GB-ize-w_accents" ispell-silently-savep t) (trap (require 'uniquify) @@ -157,9 +172,11 @@ (trap (tooltip-mode 0) (tool-bar-mode 0)) -(trap (global-auto-revert-mode t)) +(trap (or mdw-fast-startup (global-auto-revert-mode t))) (setq psgml-html-build-new-buffer nil) +(defvar mdw-black-background t) + (setq cltl2-root-url (mdw-config 'cltl-url)) (setq common-lisp-hyperspec-root (mdw-config 'hyperspec-url)) @@ -185,12 +202,22 @@ ;;;----- Calendar configuration --------------------------------------------- +(setq diary-file "~/etc/diary") + ;; --- Trivial stuff for the sunrise/sunset calculations --- (setq calendar-latitude 52.2) (setq calendar-longitude 0.1) (setq calendar-location-name "Cambridge, UK") +;; --- Holidays --- + +(and (not mdw-fast-startup) + (trap + (require 'ew-hols) + (setq other-holidays (append english-and-welsh-bank-holidays + other-holidays)))) + ;; --- Date format fiddling --- (setq european-calendar-style t) @@ -227,7 +254,7 @@ (let ((view-diary-entries-initially t)) (calendar)))) -(defvar mdw-black-background t) +;;;----- MailCrypt ---------------------------------------------------------- ;; --- Define more mode hooks for MailCrypt --- @@ -239,6 +266,7 @@ (trap (and (string-match "linux" (symbol-name system-type)) + (not mdw-fast-startup) (progn (require 'mailcrypt-init) (require 'mailcrypt) (setq mc-default-scheme 'mc-scheme-gpg) @@ -291,31 +319,33 @@ (trap (windmove-default-keybindings) + (global-set-key [?\C-x ?w left] 'windmove-left) + (global-set-key [?\C-x ?w ?h] 'windmove-left) + (global-set-key [?\C-x ?w up] 'windmove-up) + (global-set-key [?\C-x ?w ?k] 'windmove-up) + (global-set-key [?\C-x ?w down] 'windmove-down) + (global-set-key [?\C-x ?w ?j] 'windmove-down) + (global-set-key [?\C-x ?w right] 'windmove-right) + (global-set-key [?\C-x ?w ?l] 'windmove-right) (setq windmove-wrap-around t)) (trap (iswitchb-mode)) -(global-set-key "\M-#" 'calc-dispatch) -(global-set-key [f4] 'query-replace-regexp) -(global-set-key [f5] 'goto-line) -(global-set-key [f6] 'auto-fill-mode) -(global-set-key [f7] 'occur) -(global-set-key [f8] 'undo) -(global-set-key [f9] 'mdw-divvy-window) +(global-set-key [?\M-#] 'calc-dispatch) +(global-set-key [?\C-x ?/] 'auto-fill-mode) +(global-set-key [?\C-x ?w ?d] 'mdw-divvy-window) (global-set-key [insertchar] 'overwrite-mode) -(global-set-key "\C-xm" 'vm-mail) -(global-set-key "\C-x\C-n" 'skel-create-file) -(global-set-key "\C-x4n" 'skel-create-file-other-window) -(global-set-key "\C-x5n" 'skel-create-file-other-frame) +(global-set-key [?\C-x ?m] 'vm-mail) +(global-set-key [?\C-x ?\C-n] 'skel-create-file) +(global-set-key [?\C-x ?4 ?n] 'skel-create-file-other-window) +(global-set-key [?\C-x ?5 ?n] 'skel-create-file-other-frame) (global-set-key [delete] 'delete-char) -(global-set-key "\C-[\C-m" 'call-last-kbd-macro) -(global-set-key "\M-q" 'mdw-fill-paragraph) -(global-set-key "\C-h\C-m" 'manual-entry) +(global-set-key [?\M-q] 'mdw-fill-paragraph) +(global-set-key [?\C-h ?\C-m] 'manual-entry) +(global-set-key [C-M-backspace] 'backward-kill-sexp) (global-set-key [mode-line C-mouse-1] 'mouse-tear-off-window) (global-set-key [vertical-scroll-bar C-down-mouse-1] 'mouse-drag-vertical-line) (global-set-key [vertical-scroll-bar C-mouse-1] #'(lambda () (interactive))) -(global-set-key [mouse-4] 'mdw-wheel-up) -(global-set-key [mouse-5] 'mdw-wheel-down) ;; --- Recognising types of files --- @@ -380,26 +410,6 @@ (global-font-lock-mode t) (defalias 'perl-mode 'cperl-mode) -;;;----- SGML hacking ------------------------------------------------------- - -(defun mdw-sgml-mode () - (interactive) - (sgml-mode) - (mdw-standard-fill-prefix "") - (make-variable-buffer-local 'sgml-delimiters) - (setq sgml-delimiters - '("AND" "&" "COM" "--" "CRO" "&#" "DSC" "]" "DSO" "[" "DTGC" "]" - "DTGO" "[" "ERO" "&" "ETAGO" ":e" "GRPC" ")" "GRPO" "(" "LIT" "\"" - "LITA" "'" "MDC" ">" "MDO" "" "PIO" "" - "XML-ECOM" "-->" "XML-PIC" "?>" "XML-SCOM" "