X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/33abafd2b9dc49e965ad6527ba47cdcb3d3814a7..c60cbbe8c902c3bd56a093e5479de4f7855e464f:/dot/emacs diff --git a/dot/emacs b/dot/emacs index 35e4f7a..faae519 100644 --- a/dot/emacs +++ b/dot/emacs @@ -23,12 +23,14 @@ (setq load-path (nconc load-path (list "~/lib/emacs"))) (require 'dot-emacs) +(require 'cl) -;;;----- Some random initialisation ----------------------------------------- +;;;-------------------------------------------------------------------------- +;;; Some random initialisation. (setq mdw-init-window (selected-window)) -;; --- Load some other bits of code --- +;; Load some other bits of code. (maybe-autoload 'cc-mode "cc-mode" nil t) (maybe-autoload 'rexx-mode "rexx-mode" nil t) @@ -44,7 +46,7 @@ (add-to-list 'auto-mode-alist `(,(concat "/debian/" "\\(" - "[" "[:lower:][:digit:]]" + "[" "[:lower:][:digit:]]" "[[:lower:][:digit:].+-" "]+" "\\." "\\)?" @@ -53,27 +55,33 @@ (and (library-exists-p "vc-git") (not (memq 'GIT vc-handled-backends)) + (not (memq 'Git vc-handled-backends)) + (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 mdw-fast-startup (require 'p4))) (trap (or mdw-fast-startup (require 'tex-site))) -(trap (or mdw-fast-startup (semantic-load-enable-minimum-features))) +(trap (or mdw-fast-startup t (semantic-load-enable-code-helpers))) (setq semanticdb-default-save-directory "~/.emacs.d/semanticdb/") +(eval-after-load "senator" + '(setq isearch-mode-hook + (remq 'senator-isearch-mode-hook isearch-mode-hook) + isearch-mode-end-hook + (remq 'senator-isearch-mode-hook isearch-mode-end-hook))) -;; --- Skeleton stuff --- +;; Skeleton stuff. (trap (or mdw-fast-startup (require 'skel-init))) -;; --- Window system-dependent things --- +;; Window system-dependent things. (require 'paren) (trap (show-paren-mode t)) (or window-system (menu-bar-mode -1)) -;; --- Temporary directory handling --- +;; Temporary directory handling. (defun mdw-check-dir-exists (dir) (and dir @@ -83,13 +91,21 @@ (mdw-check-dir-exists (format "/tmp/%s" (user-login-name))) "/tmp")) -;; --- Emacs server behaviour --- +;; Emacs server behaviour. -(and window-system - (trap (gnuserv-start) - (setq server-temp-file-regexp (concat "^" tmpdir "\\|/draft$")))) +(and (or window-system (>= emacs-major-version 23)) + (progn (setq server-temp-file-regexp (concat "^" tmpdir "\\|/draft$") + edit-server-new-frame nil + gnuserv-frame t) + (trap (server-start)) + (trap (progn + (require 'edit-server) + (edit-server-start) + (let ((edit (get-process "edit-server"))) + (and edit + (set-process-query-on-exit-flag edit nil))))))) -;; --- Control backup behaviour --- +;; Control backup behaviour. (setq backup-by-copying nil) (setq backup-by-copying-when-linked t) @@ -99,32 +115,35 @@ '("/\\.git/COMMIT_EDITMSG$" "/\\.stgit\\(-edit\\.txt\\|msg\\.txt\\|\\.msg\\)$")) -;; --- Safe variables --- +;; Safe variables. (setq safe-local-variable-values '((make-backup-files . nil))) -;; --- Calculator fiddling --- +;; Calculator fiddling. (setq calc-settings-file "~/.emacs-calc") (load calc-settings-file) ;; ---- Some mail and news configuration --- -(setq mail-from-style 'parens) -(setq mail-signature t) -(setq mail-yank-prefix "> ") -(setq mail-archive-file-name "~/Mail/sent") +(setq mail-from-style 'parens + mail-signature t + mail-yank-prefix "> " + mail-archive-file-name "~/Mail/sent" + compose-mail-user-agent-warnings nil) (setq rmail-display-summary t) (setq rmail-file-name "~/Mail/rmail") (setq sendmail-program "~/bin/sendmail-hack") -(setq mail-user-agent 'message-user-agent) +(setq mail-user-agent 'message-user-agent + read-mail-command 'gnus) (setq message-signature-separator "^-- \\(\\|\\[mdw\\]\\)$" message-yank-prefix "> " message-yank-cited-prefix "> " + message-send-mail-function 'message-send-mail-with-sendmail message-indent-citation-function '(message-indent-citation mdw-trim-spaces-after-citing)) @@ -143,14 +162,14 @@ (trap (bbdb-initialize 'gnus 'sendmail 'message))) (setq bbdb-north-american-phone-numbers-p nil) -;; --- Customization --- +;; Customization. (setq custom-file "~/.emacs-custom") (trap (load custom-file)) (trap (load "~/.emacs-local")) -;; --- Internationalization twiddling --- +;; Internationalization twiddling. (trap ;; Have top-bit-set characters work properly in terminals. @@ -158,15 +177,15 @@ (apply #'set-input-mode (nconc (list (nth 0 im) (nth 1 im) 0) (nthcdr 3 im))))) -;; --- Don't disable any commands --- +;; Don't disable any commands. (mapatoms #'(lambda (sym) (put sym 'disabled nil))) -;; --- Split a wide window --- +;; Split a wide window. (mdw-divvy-window) -;; --- Postscript printing --- +;; Postscript printing. (setq ps-paper-type 'a4 ps-print-color-p nil @@ -175,32 +194,39 @@ ps-font-family 'Courier ps-font-size 6.5) -;; --- Splash screen stuff --- +;; Splash screen stuff. (or window-system (setq inhibit-splash-screen t inhibit-startup-message t)) -;; --- Other goodies --- +;; Other goodies. (trap (resize-minibuffer-mode 1)) ;Make minibuffer grow dynamically (auto-compression-mode 1) ;Enable automatic compression +(setq enable-local-variables :safe + enable-local-eval nil) (setq dabbrev-case-replace nil) ;Retain case when completing +(setq linum-format "%7d ") (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)) + (symbol-function 'y-or-n-p) + dired-listing-switches "-alF" ;Do `ls -F' things in dired windows + wdired-allow-to-change-permissions 'advanced) (setq read-quoted-char-radix 16) ;C-q HEX-STUFF [RET] -(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 default-indicate-empty-lines t) +(setq whitespace-style + '(trailing space-before-tab space-after-tab empty indentation)) +(setq woman-use-own-frame nil ;Keep man pages somewhere sensible + woman-fill-column 72) ;Right margin position. (setq diff-switches "-u" ;I like reading unified diffs cvs-diff-flags (list diff-switches)) (setq echo-keystrokes 10) ;Long delay before keystrokes echo @@ -211,9 +237,15 @@ (setq x-gtk-file-dialog-help-text nil) (setq Info-fontify-maximum-menu-size 100000) (setq set-mark-command-repeat-pop t) -(setq ispell-program-name "aspell" +(setq password-cache-expiry nil) +(setq-default proced-filter 'all + proced-sort 'user) +(setq ispell-program-name "aspell-hack" ispell-local-dictionary "en_GB-ize-w_accents" flyspell-default-dictionary "en_GB-ize-w_accents" + ispell-local-dictionary-alist + '(("en_GB-ize-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t + ("-d" "en_GB-ize-w_accents") nil utf-8)) ispell-silently-savep t) (trap (require 'uniquify) @@ -238,7 +270,8 @@ (setq cltl2-root-url (mdw-config 'cltl-url)) (setq common-lisp-hyperspec-root (mdw-config 'hyperspec-url)) -;;;----- W3 and URL fetching stuff ------------------------------------------ +;;;-------------------------------------------------------------------------- +;;; W3 and URL fetching stuff. (let ((proxy (mdw-config 'http-proxy))) (setq url-proxy-services @@ -248,27 +281,37 @@ (setq url-cookie-untrusted-urls '(".")) (setq browse-url-browser-function (mdw-good-url-browser) + browse-url-generic-program "mdw-chrome" browse-url-mozilla-program "firefox") (setq w3m-default-display-inline-images t) +(eval-after-load "w3m" + '(let ((entries '(("application/pdf" "\\.pdf\\'" ("evince" file) nil) + ("application/x-pdf" "\\.pdf\\'" ("evince" file) nil)))) + (dolist (e entries) + (setq w3m-content-type-alist + (cons e (remove* (car e) w3m-content-type-alist + :key #'car :test #'string=)))))) + (setq w3-do-incremental-display t w3-use-menus '(file edit view go bookmark options buffers style search emacs nil help) w3-display-inline-image t w3-keybinding 'info) -;;;----- Calendar configuration --------------------------------------------- +;;;-------------------------------------------------------------------------- +;;; Calendar configuration. (setq diary-file "~/etc/diary") -;; --- Trivial stuff for the sunrise/sunset calculations --- +;; Trivial stuff for the sunrise/sunset calculations. (setq calendar-latitude 52.2) (setq calendar-longitude 0.1) (setq calendar-location-name "Cambridge, UK") -;; --- Holidays --- +;; Holidays. (and (not mdw-fast-startup) (trap @@ -276,7 +319,7 @@ (setq other-holidays (append english-and-welsh-bank-holidays other-holidays)))) -;; --- Date format fiddling --- +;; Date format fiddling. (setq european-calendar-style t) @@ -288,7 +331,7 @@ (year "[-/]" month "[-/]" day "[^0-9]") (dayname "\\W"))) -;; --- Fancy diary handling --- +;; Fancy diary handling. (add-hook 'diary-display-hook 'fancy-diary-display) (setq diary-list-include-blanks t) @@ -296,36 +339,41 @@ (add-hook 'list-diary-entries-hook 'include-other-diary-files) (add-hook 'mark-diary-entries-hook 'mark-included-diary-files) -;; --- Appointment management --- +;; Appointment management. (add-hook 'diary-hook 'appt-make-list) (setq appt-issue-message t) (setq appt-display-interval 3) (setq appt-message-warning-time 10) -;; --- Org-mode agenda --- +;; Org-mode agenda. (setq org-agenda-include-diary t org-tags-column -77) -;; --- Cosmetic stuff --- +;; Cosmetic stuff. + +(setq calendar-view-diary-initially-flag t + calendar-view-holidays-initially-flag t) (setq display-time-24hr-format t) (display-time) +(column-number-mode 1) (trap (if window-system (let ((view-diary-entries-initially t)) (calendar)))) -;;;----- MailCrypt ---------------------------------------------------------- +;;;-------------------------------------------------------------------------- +;;; MailCrypt. -;; --- Define more mode hooks for MailCrypt --- +;; Define more mode hooks for MailCrypt. (setq mdw-mc-modes '((mdwmail-mode (encrypt . mdwmail-mc-encrypt) (sign . mdwmail-mc-sign)))) -;; --- Load the MailCrypt support --- +;; Load the MailCrypt support. (trap (and (string-match "linux" (symbol-name system-type)) @@ -346,95 +394,119 @@ (define-key mc-write-mode-map "\C-c/E" 'mc-encrypt-region) (add-hook 'text-mode-hook 'mc-install-write-mode)))) -;;;----- Other common declarations ------------------------------------------ +;;;-------------------------------------------------------------------------- +;;; Other common declarations. -;; --- Default frame size --- +;; Default frame size. (setq default-frame-alist (mdw-uniquify-alist '((width . 78) (height . 33) - (vertical-scroll-bars . right)) - (and window-system - '((cursor-type . bar) - (cursor-blink . t) - (left-fringe . 5) - (right-fringe . 5) - (scroll-bar-width . 15))) - '((cursor-color . "red")) + (vertical-scroll-bars . right) + (cursor-type . bar) + (cursor-blink . t) + (left-fringe . 5) + (right-fringe . 5) + (scroll-bar-width . 15) + (cursor-color . "red")) (if mdw-black-background - '((background-color . "black") - (foreground-color . "white") - (background-mode . dark)) - '((background-mode . light))) - (and (eq window-system 'pm) - '((font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850") - (menu-font . "8.Helv") - (background-color . "lightgrey"))) - '((transparency . t)) - default-frame-alist)) - -;; --- Other frame fiddling --- + '((background-mode . dark)) + '((background-mode . light))))) +(setq window-system-default-frame-alist + '((pm (font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850") + (menu-font . "8.Helv") + (background-color . "lightgrey")) + (nil (menu-bar-lines . 0)))) + +;; Other frame fiddling. (setq frame-title-format '("" invocation-name "@" system-name ": %b")) -;; --- Global keymap changes --- +;; Global keymap changes. (trap (windmove-default-keybindings)) (setq windmove-wrap-around t) (trap (iswitchb-mode)) -(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) -(global-set-key [?\C-x ?g ?l] 'org-store-link) -(global-set-key [?\C-x ?g ?a] 'org-agenda) -(global-set-key [?\C-x ?g ?b] 'org-iswitchb) -(global-set-key [?\C-x ?t ?i] 'timeclock-in) -(global-set-key [?\C-x ?t ?c] 'timeclock-change) -(global-set-key [?\C-x ?t ?o] 'timeclock-out) -(global-set-key [?\C-x ?t ?r] 'timeclock-reread-log) -(global-set-key [?\C-x ?t ?w] 'timeclock-workday-remaining-string) -(global-set-key [?\C-x ?t ?s] 'timeclock-status-string) -(global-set-key [?\C-x ?t ?p] 'nc-timesheet-prepare) -(global-set-key [?\C-x ?t ?\C-m] 'nc-timesheet-submit) -(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-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 [?\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 [XF86WakeUp] "") -(and (not mdw-fast-startup) (fboundp 'hippie-expand) - (global-set-key [?\M-/] 'hippie-expand)) +(progn + (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) + (global-set-key [?\C-x ?g ?l] 'org-store-link) + (global-set-key [?\C-x ?g ?a] 'org-agenda) + (global-set-key [?\C-x ?g ?b] 'org-iswitchb) + (global-set-key [?\C-x ?t ?i] 'timeclock-in) + (global-set-key [?\C-x ?t ?c] 'timeclock-change) + (global-set-key [?\C-x ?t ?o] 'timeclock-out) + (global-set-key [?\C-x ?t ?r] 'timeclock-reread-log) + (global-set-key [?\C-x ?t ?w] 'timeclock-workday-remaining-string) + (global-set-key [?\C-x ?t ?s] 'timeclock-status-string) + (global-set-key [?\C-x ?t ?p] 'nc-timesheet-prepare) + (global-set-key [?\C-x ?t ?\C-m] 'nc-timesheet-submit) + (global-set-key [?\C-x ?3] 'mdw-split-window-horizontally) + (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-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 [?\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 [XF86WakeUp] "") + (and (not mdw-fast-startup) (fboundp 'hippie-expand) + (global-set-key [?\M-/] 'hippie-expand))) + +(eval-after-load "dired" + '(progn + (or (lookup-key dired-mode-map [?\C-x ?\C-q]) + (define-key dired-mode-map [?\C-x ?\C-q] + 'wdired-change-to-wdired-mode)) + (and (fboundp 'dired-do-relsymlink) + (define-key dired-mode-map [?\C-c ?\C-s] 'dired-do-relsymlink)))) (add-hook 'org-mode-hook #'(lambda () (mdw-clobber-evil-keymap org-mode-map))) (add-hook 'org-agenda-mode-hook #'(lambda () (mdw-clobber-evil-keymap org-agenda-mode-map))) +(or mdw-fast-startup + (progn + (org-remember-insinuate) + (global-set-key [?\C-c ?r] 'org-remember))) + +;; Minor mode listing + +(setq minor-mode-alist + (mdw-uniquify-alist '((reveal-mode (hs-minor-mode + " hs/r" + (global-reveal-mode + "" " Reveal"))) + (hs-minor-mode (reveal-mode "" " hs")) + (abbrev-mode "") + (gtags-mode "")) + minor-mode-alist)) -;; --- Recognising types of files --- +;; Recognising types of files. (setq auto-mode-alist (append `(("\\.p[lm]$" . perl-mode) ("\\.m$" . objc-mode) ("\\.mxd$" . c-mode) ("\\.cs$" . csharp-mode) + ("\\.go$" . go-mode) ("\\.org$" . org-mode) ;; ("/[ch]/" . c-mode) (,(concat "/\\(" @@ -471,15 +543,23 @@ (setq completion-ignored-extensions (append `(".hc" ".hi") completion-ignored-extensions)) +(dolist (dir (remove-if-not (lambda (ext) + (= (aref ext (- (length ext) 1)) ?/)) + completion-ignored-extensions)) + (if (/= (aref dir 0) ?/) + (setq completion-ignored-extensions + (cons (concat "/" dir) + (remove dir completion-ignored-extensions))))) -;; --- Some common local definitions --- +;; Some common local definitions. (make-variable-buffer-local 'mdw-auto-indent) (mapcar (lambda (hook) (add-hook hook 'mdw-misc-mode-config)) '(c-mode-hook c++-mode-hook objc-mode-hook java-mode-hook csharp-mode-hook perl-mode-hook cperl-mode-hook - python-mode-hook icon-mode-hook awk-mode-hook tcl-mode-hook + python-mode-hook pyrec-mode-hook icon-mode-hook awk-mode-hook + tcl-mode-hook go-mode-hook asm-mode-hook TeX-mode-hook LaTeX-mode-hook TeXinfo-mode-hook tex-mode-hook latex-mode-hook texinfo-mode-hook emacs-lisp-mode-hook scheme-mode-hook @@ -492,10 +572,12 @@ (global-font-lock-mode t) (defalias 'perl-mode 'cperl-mode) -;;;----- Rootly editingness ------------------------------------------------- +;;;-------------------------------------------------------------------------- +;;; Rootly editingness. (eval-after-load "tramp" - '(progn + '(let ((fix-args (if (mdw-version-< tramp-version "2.1") + #'append #'list))) (setq tramp-methods (mdw-uniquify-alist `(("become" @@ -505,81 +587,89 @@ (tramp-copy-program nil) (tramp-copy-args nil) (tramp-copy-keep-date-arg nil) - (tramp-login-args ("TERM=dumb" "%u"))) + (tramp-login-args ,(funcall fix-args `("TERM=dumb" "%u")))) ("really" (tramp-connection-function tramp-open-connection-su) (tramp-login-program "really") - (tramp-login-args ("-u" "%u" "--" - "env" "TERM=dumb" "/bin/sh")) + (tramp-login-args ,(funcall fix-args + `("-u" "%u") + `("--") + `("env" "TERM=dumb" "/bin/sh"))) (tramp-copy-program nil) (tramp-copy-args nil) (tramp-copy-keep-date-arg nil) (tramp-remote-sh "/bin/sh")) ,@tramp-methods))) - (setq tramp-multi-connection-function-alist - (mdw-uniquify-alist - '(("bc" tramp-multi-connect-su "become TERM=dumb %u%n")) - '(("r" tramp-multi-connect-su "really -u %u%n")) - tramp-multi-connection-function-alist)) (setq tramp-default-method "ssh") - (setq tramp-default-method-alist - `(("\\`localhost\\'" "" - ,(cond ((executable-find "become") "become") - ((executable-find "really") "really") - (t "su"))))))) - -;;;----- General fontification ---------------------------------------------- - -;; --- Configure lazy fontification --- + (let ((rootlyness (cond ((executable-find "really") "really") + ((executable-find "become") "become") + ((executable-find "sudo") "sudo") + (t "su"))) + (this-host (concat "\\`\\(localhost\\|" + (system-name) "\\|\\)\\'")) + (this-user (concat "\\`\\(" (user-login-name) "\\|" + (user-real-login-name) "\\|\\)\\'"))) + (setq tramp-default-method-alist + `((,this-host nil ,rootlyness) + (nil ,this-user "ssh") + (nil "." ,rootlyness))) + (setq tramp-default-proxies-alist + `((,this-host nil nil) + (nil "." "/ssh:%h:")))))) + +;;;-------------------------------------------------------------------------- +;;; General fontification. + +;; Configure lazy fontification. (and (fboundp 'lazy-lock-mode) (setq font-lock-support-mode 'lazy-lock-mode)) ; (setq lazy-lock-defer-contextually t) -(setq lazy-lock-defer-time nil) -(setq font-lock-maximum-decoration 3) -(setq lazy-lock-minimum-size 0) -(setq lazy-lock-stealth-time 5) -(setq lazy-lock-stealth-lines 100) -(setq lazy-lock-stealth-verbose t) - -(add-hook 'after-make-frame-functions 'mdw-do-set-font) -(add-hook 'term-setup-hook (lambda () (mdw-do-set-font (selected-frame)))) -(add-hook 'window-setup-hook (lambda () (mdw-do-set-font (selected-frame)))) - -(add-hook 'c-mode-hook 'mdw-fontify-c-and-c++ t) -(add-hook 'objc-mode-hook 'mdw-fontify-c-and-c++ t) -(add-hook 'c++-mode-hook 'mdw-fontify-c-and-c++ t) -(add-hook 'linux-c-mode-hook #'(lambda () (setq c-basic-offset 8))) -(add-hook 'asm-mode-hook 'mdw-fontify-asm t) - -(add-hook 'icon-mode-hook 'mdw-fontify-icon t) - -(add-hook 'apcalc-mode-hook 'mdw-misc-mode-config t) -(add-hook 'apcalc-mode-hook 'mdw-fontify-apcalc t) - -(add-hook 'java-mode-hook 'mdw-fontify-java t) -(add-hook 'csharp-mode-hook 'mdw-fontify-csharp t) - -(add-hook 'awk-mode-hook 'mdw-fontify-awk t) - -(add-hook 'perl-mode-hook 'mdw-fontify-perl t) -(add-hook 'cperl-mode-hook 'mdw-fontify-perl t) - -(setq-default py-indent-offset 2) -(add-hook 'python-mode-hook 'mdw-fontify-python t) -(setq py-python-command-args `("-i" "-colors" ,(if mdw-black-background - "Linux" - "LightBG"))) +(setq lazy-lock-defer-time nil + font-lock-maximum-decoration 3 + lazy-lock-minimum-size 0 + lazy-lock-stealth-time 5 + lazy-lock-stealth-lines 100 + lazy-lock-stealth-verbose t) + +(progn + (add-hook 'c-mode-hook 'mdw-fontify-c-and-c++ t) + (add-hook 'objc-mode-hook 'mdw-fontify-c-and-c++ t) + (add-hook 'c++-mode-hook 'mdw-fontify-c-and-c++ t) + (add-hook 'linux-c-mode-hook #'(lambda () (setq c-basic-offset 8))) + (add-hook 'asm-mode-hook 'mdw-fontify-asm t) + (add-hook 'go-mode-hook 'mdw-fontify-go t) + + (add-hook 'icon-mode-hook 'mdw-fontify-icon t) + + (add-hook 'apcalc-mode-hook 'mdw-misc-mode-config t) + (add-hook 'apcalc-mode-hook 'mdw-fontify-apcalc t) + + (add-hook 'java-mode-hook 'mdw-fontify-java t) + (add-hook 'csharp-mode-hook 'mdw-fontify-csharp t) + + (add-hook 'awk-mode-hook 'mdw-fontify-awk t) + + (add-hook 'perl-mode-hook 'mdw-fontify-perl t) + (add-hook 'cperl-mode-hook 'mdw-fontify-perl t)) + +(progn + (setq-default py-indent-offset 2 + py-python-command-args + `("-i" "-colors" ,(if mdw-black-background + "Linux" "LightBG"))) + (add-hook 'python-mode-hook 'mdw-fontify-python t) + (add-hook 'pyrex-mode-hook 'mdw-fontify-pyrex t)) (setq-default tcl-indent-level 2) (add-hook 'tcl-mode-hook 'mdw-fontify-tcl t) (add-hook 'rexx-mode-hook 'mdw-fontify-rexx t) -(setq sml-nested-if-indent t) -(setq sml-case-indent nil) -(setq sml-indent-level 4) -(setq sml-type-of-indent nil) +(setq sml-nested-if-indent t + sml-case-indent nil + sml-indent-level 4 + sml-type-of-indent nil) (add-hook 'sml-mode-hook 'mdw-fontify-sml t) (add-hook 'haskell-mode-hook 'mdw-fontify-haskell t) @@ -604,20 +694,22 @@ (add-hook 'smalltalk-mode-hook 'mdw-fontify-smalltalk t) (add-hook 'smalltalk-mode-hook 'mdw-setup-smalltalk t) -(add-hook 'emacs-lisp-mode-hook 'mdw-fontify-lispy t) -(add-hook 'scheme-mode-hook 'mdw-fontify-lispy t) -(add-hook 'lisp-mode-hook 'mdw-fontify-lispy t) -(add-hook 'inferior-lisp-mode-hook 'mdw-fontify-lispy t) -(add-hook 'lisp-interaction-mode-hook 'mdw-fontify-lispy t) -(add-hook 'slime-repl-mode-hook 'mdw-fontify-lispy t) -(add-hook 'lisp-mode-hook 'mdw-common-lisp-indent t) -(add-hook 'inferior-lisp-mode-hook +(progn + (add-hook 'emacs-lisp-mode-hook 'mdw-fontify-lispy t) + (add-hook 'scheme-mode-hook 'mdw-fontify-lispy t) + (add-hook 'lisp-mode-hook 'mdw-fontify-lispy t) + (add-hook 'inferior-lisp-mode-hook 'mdw-fontify-lispy t) + (add-hook 'lisp-interaction-mode-hook 'mdw-fontify-lispy t) + (add-hook 'slime-repl-mode-hook 'mdw-fontify-lispy t) + (add-hook 'lisp-mode-hook 'mdw-common-lisp-indent t) + (add-hook 'inferior-lisp-mode-hook #'(lambda () - (local-set-key "\C-m" 'comint-send-and-indent)) t) + (local-set-key "\C-m" 'comint-send-and-indent)) t)) (add-hook 'text-mode-hook 'mdw-text-mode t) -;;;----- TeX stuff ---------------------------------------------------------- +;;;-------------------------------------------------------------------------- +;;; TeX stuff. (setq TeX-output-view-style '(("^dvi$" @@ -642,6 +734,9 @@ ("^pdf$" "." "evince %o") ("^html?$" "." "netscape %o"))) +(setq TeX-open-quote "\"" + TeX-close-quote "\"") + (setq reftex-use-external-file-finders t reftex-auto-recenter-toc t) @@ -666,7 +761,8 @@ unify-case) bibtex-include-OPTkey nil) -;;;----- SLIME setup -------------------------------------------------------- +;;;-------------------------------------------------------------------------- +;;; SLIME setup. (trap (if (not mdw-fast-startup) @@ -689,7 +785,8 @@ (cons head slime-lisp-implementations)))))) (setq slime-default-lisp 'sbcl) -;;;----- Blogging ----------------------------------------------------------- +;;;-------------------------------------------------------------------------- +;;; Blogging. (setq weblogger-config-alist '(("vox" @@ -697,16 +794,19 @@ ("server-url" . "http://vox.distorted.org.uk/admin/mt-xmlrpc.cgi") ("weblog" . "1")))) -;;;----- Shell mode --------------------------------------------------------- +;;;-------------------------------------------------------------------------- +;;; Shell mode. -;; --- Make the shell mode aware of my prompt --- +;; Make the shell mode aware of my prompt. -(setq shell-prompt-pattern "^[^]#$%>»}\n]*[]#$%>»}] *") +(setq shell-prompt-pattern "^[^]#$%>»}\n]*\\([]#$%»}]\\|>>?\\) *") (setq comint-password-prompt-regexp - (concat "\\(\\([Oo]ld \\|[Nn]ew \\|[a-zA-Z0-9_]*'s \\|^\\)" - "[Pp]assword\\|pass phrase\\):\\s *\\'")) + (concat "\\(\\([Ee]nter \\|[Oo]ld \\|[Nn]ew \\|[a-zA-Z0-9_]*'s \\|^\\)" + "[Pp]assword\\|[Pp]ass ?phrase\\(\\| [-a-zA-Z0-9._]+\\)\\):") + comint-file-name-chars "~/A-Za-z0-9+@:_.$#%,={}-" + shell-file-name-chars comint-file-name-chars) -;; --- Notice passwords, and make C-a work right --- +;; Notice passwords, and make C-a work right. (add-hook 'shell-mode-hook #'mdw-sh-mode-setup) (add-hook 'shell-mode-hook #'ansi-color-for-comint-mode-on) @@ -714,7 +814,8 @@ (add-hook 'term-mode-hook #'mdw-term-mode-setup) -;;;----- Finishing touches -------------------------------------------------- +;;;-------------------------------------------------------------------------- +;;; Finishing touches. (trap (select-window mdw-init-window)) (provide 'emacs-init)