[Update .emacs
clinton@unknownlamer.org**20070326212935] {
hunk ./dot-emacs 7
+;;; .emacs is just used to load the init.d emacs configuration
+;;; pieces. My .emacs got a bit unwieldy, and this makes it much
+;;; easier to maintain (especially since I have to keep it in sync on
+;;; multiple machines)
+
hunk ./dot-emacs 29
-				 "local"
+				 "local" ; todo: use hostname
hunk ./dot-emacs 39
-
+;; TODO: Move this to .emacs-${site} (or perhaps .emacs-custom?)
hunk ./dot-emacs 41
-  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
+  ;; custom-set-variables was added by Custom.
+  ;; If you edit it by hand, you could mess it up, so be careful.
hunk ./dot-emacs 44
+  ;; If there is more than one, they won't work right.
hunk ./dot-emacs 46
- '(browse-url-browser-function (quote (("/usr/share/doc/hyperspec/.*" . cke-browse-url-docs) (".*" . browse-url-galeon))))
+ '(browse-url-browser-function (quote ((".*php\\.net/.*" . w3m-browse-url) ("/usr/share/doc/hyperspec/.*" . cke-browse-url-docs) (".*" . browse-url-galeon))))
hunk ./dot-emacs 50
- '(clean-buffer-list-delay-general 5)
+ '(clean-buffer-list-delay-general 7)
hunk ./dot-emacs 54
- '(current-language-environment "ASCII")
+ '(current-language-environment "UTF-8")
hunk ./dot-emacs 57
+ '(desktop-restore-eager 25)
hunk ./dot-emacs 64
+ '(help-highlight-face (quote underline))
+ '(htmlize-output-type (quote inline-css))
hunk ./dot-emacs 72
+ '(midnight-delay 10800)
hunk ./dot-emacs 74
+ '(mouse-avoidance-mode (quote exile) nil (avoid))
hunk ./dot-emacs 76
- '(muse-project-alist (quote (("unknownlamer.org" ("~/html/muse/src/unknownlamer.org" :default "index") (:base "lamer" :path "~/html/muse/site/unknownlamer.org")))))
+ '(muse-colors-inline-image-method (quote muse-colors-use-publishing-directory))
hunk ./dot-emacs 78
+ '(safe-local-variable-values (quote ((scheme48-package . swank-general-rpc) (scheme48-package . swank-tcp-servers) (Syntax . ANSI-Common-Lisp) (Base . 10) (Lowercase . Yes) (Package . CLIM-DEMO))))
hunk ./dot-emacs 92
-(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.
- '(default ((t (:stipple nil :background "#122e43" :foreground "#e3e3e3" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :family "adobe-courier"))))
- '(mmm-default-submode-face ((t (:background "#000000")))))
-
-;;; Evil evil hack to make emacs have a readable background on the terminal
-(if (not window-system)
+(if window-system
hunk ./dot-emacs 96
-     '(default ((t (:stipple nil :background "#000000" :foreground "#ffffff" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :family "adobe-courier"))))
+     '(default ((t (:stipple nil :background "#122e43" :foreground "#e3e3e3" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :family "adobe-courier"))))
hunk ./dot-emacs 99
+;;      '(mmm-default-submode-face ((t (:background "#000000"))))))
+
hunk ./dot-emacs 104
+(custom-set-faces
+  ;; custom-set-faces was added by Custom.
+  ;; If you edit it by hand, you could mess it up, so be careful.
+  ;; Your init file should contain only one such instance.
+  ;; If there is more than one, they won't work right.
+ '(default ((t (:stipple nil :background "#122e43" :foreground "#e3e3e3" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :family "adobe-courier"))))
+ '(eshell-prompt ((t (:foreground "gray40" :weight bold))))
+ '(gnus-summary-cancelled ((((class color)) (:foreground "yellow"))))
+ '(highlight ((((class color) (min-colors 88) (background dark)) (:background "#455f76"))))
+ '(link ((((class color) (min-colors 88) (background dark)) (:foreground "cyan1"))))
+ '(minibuffer-prompt ((((background dark)) (:weight bold))))
+ '(mmm-default-submode-face ((t (:background "#000000"))))
+ '(mode-line ((((class color) (min-colors 88)) (:background "#344f65" :foreground "gray75" :box (:line-width -1 :color "#455f76")))))
+ '(mode-line-highlight ((((class color) (min-colors 88)) (:inverse-video t))))
+ '(mouse ((t (:background "#cccccc"))))
+ '(planner-cancelled-task-face ((t (:foreground "gray70" :strike-through "red" :height 0.85))))
+ '(planner-completed-task-face ((t (:foreground "gray70" :strike-through "green" :height 0.85))))
+ '(region ((((class color) (min-colors 88) (background dark)) (:background "#344f9a"))))
+ '(tooltip ((((class color)) (:background "#344f65" :foreground "#f3f3f3" :height 90 :family "courier"))))
+ '(underline ((t (:foreground "#cccc00"))))
+ '(which-func ((((class color) (min-colors 88) (background dark)) (:foreground "gray85")))))
+
+;;; Evil evil hack to make emacs have a readable background on the terminal
+(if (not window-system)
+     (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.
+      '(default ((t (:stipple nil :background "#000000" :foreground "#ffffff" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :family "adobe-courier"))))))
+
+(put 'scroll-left 'disabled nil)
+
+(put 'downcase-region 'disabled nil)
}