;;;--------------------------------------------------------------------------
;;; Some random initialisation.
;;;--------------------------------------------------------------------------
;;; Some random initialisation.
(trap (bbdb-initialize 'gnus 'sendmail 'message)))
(setq bbdb-file "~/etc/brain/bbdb"
bbdb-north-american-phone-numbers-p nil
(trap (bbdb-initialize 'gnus 'sendmail 'message)))
(setq bbdb-file "~/etc/brain/bbdb"
bbdb-north-american-phone-numbers-p nil
"\\(chiark\\|slimy\\|coriolis\\)\\.greenend\\.org\\.uk"
"\\|" "distorted\\.mdw@g\\(\\|oogle\\)mail.com"
"\\|" "mwooding@\\(good\\|blackberry\\)\\.com"
"\\(chiark\\|slimy\\|coriolis\\)\\.greenend\\.org\\.uk"
"\\|" "distorted\\.mdw@g\\(\\|oogle\\)mail.com"
"\\|" "mwooding@\\(good\\|blackberry\\)\\.com"
(member (md5 addr)
'("8815c5583970856799c85a3ee0eb6a9f" ;work wiki spam
"0b94ab4d25dacaa5ac07243a09c9e22e" ;work bug spam
(member (md5 addr)
'("8815c5583970856799c85a3ee0eb6a9f" ;work wiki spam
"0b94ab4d25dacaa5ac07243a09c9e22e" ;work bug spam
(setq read-quoted-char-radix 16) ;C-q HEX-STUFF [RET]
(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 read-quoted-char-radix 16) ;C-q HEX-STUFF [RET]
(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 comment-column 40) ;Set a standard comment column
(setq-default truncate-partial-width-windows nil
truncate-lines t)
(setq default-indicate-empty-lines t)
(setq-default comment-column 40) ;Set a standard comment column
(setq-default truncate-partial-width-windows nil
truncate-lines t)
(setq default-indicate-empty-lines t)
-(setq whitespace-style
- '(trailing space-before-tab space-after-tab empty indentation face))
+(setq view-read-only t)
+(setq whitespace-style '(trailing empty indentation face lines-tail
+ space-before-tab space-after-tab)
+ whitespace-line-column mdw-text-width)
(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
(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
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
(setq uniquify-after-kill-buffer-p t))
(transient-mark-mode t)
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
(setq uniquify-after-kill-buffer-p t))
(transient-mark-mode t)
(menu-bar-lines . ,(if window-system 1 0)))
window-system-default-frame-alist
'((pm (font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850")
(menu-bar-lines . ,(if window-system 1 0)))
window-system-default-frame-alist
'((pm (font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850")
("/\\(s\\|sh\\)/" . arm-assembler-mode)
("\\.\\(cmd\\|exec\\|rexx\\)$" . rexx-mode)
("\\.st$" . smalltalk-mode)
("/\\(s\\|sh\\)/" . arm-assembler-mode)
("\\.\\(cmd\\|exec\\|rexx\\)$" . rexx-mode)
("\\.st$" . smalltalk-mode)
(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 '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 'asm-mode-hook 'mdw-fontify-asm t)
(add-hook 'go-mode-hook 'mdw-fontify-go t)
(add-hook 'rust-mode-hook 'mdw-fontify-rust t)
(add-hook 'asm-mode-hook 'mdw-fontify-asm t)
(add-hook 'go-mode-hook 'mdw-fontify-go t)
(add-hook 'rust-mode-hook 'mdw-fontify-rust t)