(add-to-list 'auto-mode-alist
`(,(concat "/debian/"
"\\("
- "[" "[:lower:][:digit:]]"
+ "[" "[:lower:][:digit:]]"
"[[:lower:][:digit:].+-" "]+"
"\\."
"\\)?"
(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)))
;; Emacs server behaviour.
(and (or window-system (>= emacs-major-version 23))
- (trap (setq server-temp-file-regexp (concat "^" tmpdir "\\|/draft$"))
- (start-server)
- (gnuserv-start)))
+ (progn (setq server-temp-file-regexp (concat "^" tmpdir "\\|/draft$")
+ gnuserv-frame t)
+ (trap (server-start))))
;; Control backup behaviour.
(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 "> "
(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
(setq x-gtk-file-dialog-help-text nil)
(setq Info-fontify-maximum-menu-size 100000)
(setq set-mark-command-repeat-pop t)
+(setq password-cache-expiry nil)
+(setq-default proced-filter 'all
+ proced-sort 'user)
(setq ispell-program-name "aspell"
ispell-local-dictionary "en_GB-ize-w_accents"
flyspell-default-dictionary "en_GB-ize-w_accents"
(scroll-bar-width . 15)
(cursor-color . "red"))
(if mdw-black-background
- '((background-color . "black")
- (foreground-color . "white")
- (background-mode . dark))
+ '((background-mode . dark))
'((background-mode . light)))
+ (and (eq window-system 'x)
+ '((font . "6x13")))
(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.
(eval-after-load "dired"
'(progn
- (define-key dired-mode-map [?\C-x ?\C-q]
- 'wdired-change-to-wdired-mode)))
+ (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)))
;; Recognising types of files.
("\\.m$" . objc-mode)
("\\.mxd$" . c-mode)
("\\.cs$" . csharp-mode)
+ ("\\.go$" . go-mode)
("\\.org$" . org-mode)
;; ("/[ch]/" . c-mode)
(,(concat "/\\("
'(c-mode-hook c++-mode-hook objc-mode-hook java-mode-hook
csharp-mode-hook perl-mode-hook cperl-mode-hook
python-mode-hook pyrec-mode-hook icon-mode-hook awk-mode-hook
- tcl-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
;;; 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"
(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\\'" ""
+ `(("\\`\\(localhost\\|\\)\\'" ""
,(cond ((executable-find "become") "become")
((executable-find "really") "really")
(t "su")))))))
(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)
;; 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\\|pass phrase\\):"))
;; Notice passwords, and make C-a work right.