(setq load-path (cons "~/lib/emacs" load-path))
-(autoload 'cc-mode "cc-mode" nil t)
-(autoload 'rexx-mode "rexx-mode" nil t)
-(autoload 'cvs-update "pcl-cvs" nil t)
-(autoload 'debian-changelog-mode "debian-changelog-mode" nil t)
+(maybe-autoload 'cc-mode "cc-mode" nil t)
+(maybe-autoload 'rexx-mode "rexx-mode" nil t)
+(maybe-autoload 'cvs-update "pcl-cvs" nil t)
+(maybe-autoload 'debian-changelog-mode "debian-changelog-mode" nil t)
+(maybe-autoload 'git-status "git" nil t)
+(and (library-exists-p "vc-git")
+ (not (memq 'GIT vc-handled-backends))
+ (setq vc-handled-backends (append vc-handled-backends (list 'GIT))))
+(and (library-exists-p "quilt")
+ (load "quilt"))
(trap
(or (fboundp 'make-regexp)
(setq Info-fontify-maximum-menu-size 60000)
(setq ispell-dictionary "british"
flyspell-default-dictionary "british")
-(setq browse-url-browser-function 'browse-url-mozilla
- browse-url-mozilla-program "firefox")
(trap
(require 'uniquify)
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
(trap (global-auto-revert-mode t))
(setq psgml-html-build-new-buffer nil)
-(setq cltl2-root-url
- "http://metalzone.distorted.org.uk/doc/cltl/")
-(setq common-lisp-hyperspec-root
- "http://metalzone.distorted.org.uk/doc/hyperspec/")
+(setq cltl2-root-url (mdw-config 'cltl-url))
+(setq common-lisp-hyperspec-root (mdw-config 'hyperspec-url))
+
+;;;----- W3 and URL fetching stuff ------------------------------------------
+
+(let ((proxy (mdw-config 'proxy)))
+ (setq url-proxy-services
+ `(("http" . ,proxy)
+ ("ftp" . ,proxy)
+ ("gopher" . ,proxy))))
+(setq url-cookie-untrusted-urls '("."))
+
+(let ((browsers '(w3m browse-url-w3 browse-url-mozilla)) browser)
+ (while browsers
+ (setq browser (car browsers)
+ browsers (cdr browsers))
+ (if (fboundp browser)
+ (setq browse-url-browser-function browser
+ browsers nil))))
+
+(setq browse-url-mozilla-program "firefox")
+
+(setq w3m-default-display-inline-images t)
+
+(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 ---------------------------------------------
"svk-commit[^/.]*\\.tmp" "\\|"
"gitci\\.[^/.]*" "\\|"
"cvs[^/.]\\{6\\}" "\\|"
+ "quilt_header\.[^/.]\\{6\\}"
"\\)$")
. text-mode)
("\\.calc?$" . apcalc-mode)
("/\\(s\\|sh\\)/" . arm-assembler-mode)
("\\.\\(cmd\\|exec\\|rexx\\)$" . rexx-mode)
("\\.st$" . smalltalk-mode)
+ ("\\.msgs$" . messages-mode)
+ ("/all-cmds\\.in$" . cpp-messages-mode)
("\\.\\(tex\\|dtx\\)$" . latex-mode)
("\\.gc$" . haskell.-mode)
(,(concat "^" (getenv "HOME") "/News/") . mdwmail-mode)
(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)
-(require 'slime)
-(slime-setup :autodoc t)
+(trap
+ (require 'slime)
+ (slime-setup :autodoc t))
(trap (require 'xscheme))
(setq-default xscheme-process-command-line "scheme -large -emacs")
(add-hook 'inferior-lisp-mode-hook
;; --- 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 *\\'"))
(trap (select-window mdw-init-window))
(provide 'emacs-init)
-;;;----- Emacs customization crud -------------------------------------------
-
-(custom-set-variables
- ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
- ;; Your init file should contain only one such instance.
- '(url-cookie-untrusted-urls (quote (".")))
- '(url-proxy-services (quote (("http" . "tux.nsict.org:3128") ("ftp" . "tux.nsict.org:3128") ("gopher" . "tux.nsict.org:3128"))))
- '(w3-do-incremental-display t)
- '(w3-honor-stylesheets nil)
- '(w3-use-menus (quote (file edit view go bookmark options buffers style search emacs nil help)))
- '(w3m-display-inline-image t)
- '(w3m-key-binding (quote info)))
-(custom-set-faces
- ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
- ;; Your init file should contain only one such instance.
- )
-
;;;----- That's all, folks --------------------------------------------------