;;;--------------------------------------------------------------------------
;;; 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
bbdb-extract-address-components-func 'bbdb-extract-address-components
bbdb/news-auto-create-p
(lambda ()
(let ((group gnus-newsgroup-name))
bbdb-extract-address-components-func 'bbdb-extract-address-components
bbdb/news-auto-create-p
(lambda ()
(let ((group gnus-newsgroup-name))
(not (string-match ":\\(crap\\|spam\\|lists\\)\\." group)))))
bbdb-user-mail-names
(concat "^"
"\\(" "\\(mdw\\|markw\\|root\\|postmaster\\)"
"\\([-+][^@]*\\|\\)"
"@\\(\\(dist\\|esc\\)orted\\.org\\.uk\\|odin\\.gg\\)"
(not (string-match ":\\(crap\\|spam\\|lists\\)\\." group)))))
bbdb-user-mail-names
(concat "^"
"\\(" "\\(mdw\\|markw\\|root\\|postmaster\\)"
"\\([-+][^@]*\\|\\)"
"@\\(\\(dist\\|esc\\)orted\\.org\\.uk\\|odin\\.gg\\)"
"\\|" "distorted\\.mdw@g\\(\\|oogle\\)mail.com"
"\\|" "mwooding@\\(good\\|blackberry\\)\\.com"
"\\|" "mark\\.wooding@trustonic\\.com"
"\\|" "distorted\\.mdw@g\\(\\|oogle\\)mail.com"
"\\|" "mwooding@\\(good\\|blackberry\\)\\.com"
"\\|" "mark\\.wooding@trustonic\\.com"
(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)
(setq appt-display-interval 3)
(setq appt-message-warning-time 10)
(and (not mdw-fast-startup)
(setq appt-display-interval 3)
(setq appt-message-warning-time 10)
(and (not mdw-fast-startup)
(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")
(background-color . "black")
(foreground-color . "white"))
(nil (menu-bar-lines . 0))))
(background-color . "black")
(foreground-color . "white"))
(nil (menu-bar-lines . 0))))
("/\\(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)