X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/c70b4880bd12cb736dc0ac27b9922704a5cbde49..98ed7cc2ba10a33b2ed9ff360579bb661d892660:/dot/emacs diff --git a/dot/emacs b/dot/emacs index 2a5522d..b278d9a 100644 --- a/dot/emacs +++ b/dot/emacs @@ -23,6 +23,7 @@ (setq load-path (nconc load-path (list "~/lib/emacs"))) (require 'dot-emacs) +(require 'cl) ;;;-------------------------------------------------------------------------- ;;; Some random initialisation. @@ -141,6 +142,7 @@ (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)) @@ -240,6 +242,9 @@ (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) @@ -481,6 +486,18 @@ (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. (setq auto-mode-alist