;;; Clinton Ebadi's <clinton@unknownlamer.org> .emacs
;;; TODO:
;;;  - Make MMM work with html/css/javascript/php
;;;  - Setup ERC

;;; .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)

;;; My lib dir
(defvar cke-site-emacs-dir (expand-file-name
			    "~/local/share/emacs"))

(defvar cke-site-lisp-dir (concat cke-site-emacs-dir
				  "/site-lisp"))

(defvar cke-personal-data-dir (concat cke-site-emacs-dir
				      "/personal-data"))

(defun cke-personal-file (file)
  "Return pathname of a file from the personal data repository"
  (expand-file-name (concat cke-personal-data-dir "/" file)))

(defun cke-site-lisp-file (file)
  "Return pathname of a file from the site-lisp repository"
  (expand-file-name (concat cke-site-lisp-dir "/" file)))

(add-to-list 'load-path cke-site-lisp-dir)

;;; Local info files
(add-to-list 'Info-default-directory-list 
	     (concat (getenv "HOME") "/local/share/info"))

;;; Init Files
;; First load host specific config
(let ((site-config 
       (expand-file-name (concat "~/.emacs-"
				 "local" ; todo: use hostname
				 ".el"))))
  (if (file-exists-p site-config)
      (load site-config)))

;; Then load all of the elisp in init.d
(mapc #'(lambda (file-name)
	  (load file-name))
      (directory-files (concat cke-site-emacs-dir "/init.d") t ".*\\.el$"))

;; TODO: Move this to .emacs-${site} (or perhaps .emacs-custom?)
(custom-set-variables
  ;; custom-set-variables 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.
 '(auto-image-file-mode-hook nil)
 '(browse-url-browser-function (quote (("/usr/share/doc/hyperspec/.*" . cke-browse-url-docs) (".*" . w3m-browse-url))))
 '(browse-url-generic-args nil)
 '(browse-url-generic-program "galeon")
 '(case-fold-search t)
 '(column-number-mode t)
 '(completion-on-separator-character t)
 '(confirm-kill-emacs (quote yes-or-no-p))
 '(current-language-environment "UTF-8")
 '(default-input-method (quote latin-1-postfix))
 '(desktop-enable t nil (desktop))
 '(desktop-restore-eager 25)
 '(global-font-lock-mode t nil (font-lock))
 '(gnus-fetch-old-headers t)
 '(gnus-message-archive-group "INBOX.Sent")
 '(gnus-message-archive-method (quote (nnimap "hcoop.net")))
 '(gnus-permanently-visible-groups "INBOX\\.inbox")
 '(gnuserv-program (concat exec-directory "/gnuserv") t)
 '(help-highlight-face (quote underline))
 '(htmlize-output-type (quote inline-css))
 '(indicate-buffer-boundaries nil)
 '(indicate-empty-lines t)
 '(iswitchb-default-method (quote samewindow))
 '(line-number-mode t)
 '(lj-default-username "unknown_lamer")
 '(lj-fill-function (quote ignore))
 '(mail-host-address "drizzlehell")
 '(menu-bar-mode nil)
 '(mouse-avoidance-mode (quote exile) nil (avoid))
 '(mouse-wheel-mode t nil (mwheel))
 '(muse-colors-inline-image-method (quote muse-colors-use-publishing-directory))
 '(muse-project-alist (quote (("unknownlamer.org" ("~/html/muse/src/unknownlamer.org" :default "index") (:base "cke-xhtml" :path "~/html/muse/site/unknownlamer.org-test")) ("unknownlamer.org-clean" ("~/html/muse/site/unknownlamer.org-repo" :default "index") (:base "cke-xhtml" :path "~/html/muse/site/unknownlamer.org")) ("clintons-plans" ("~/plans" :major-mode planner-mode :visit-link planner-visit-link :default "TaskPool") (:base "planner-html" :path "~/html/plan-pages")))))
 '(newsticker-url-list (quote (("Lambda the Ultimate" "http://lambda-the-ultimate.org/rss.xml" nil nil nil))))
 '(paren-mode (quote paren) nil (paren))
 '(planner-carry-tasks-forward 3)
 '(planner-project "clintons-plans")
 '(safe-local-variable-values (quote ((life-universe-everything . 42) (symbolic-formulas ("Eastern area") ("West-district") ("North&South") ("Other")) (Package . GOATEE) (Package . GRAPH) (Package . CLIM-POSTSCRIPT) (Package . CLIM-CLX) (Package . CLIM-NULL) (Package . DREI) (Package . MCCLIM-TRUETYPE) (Package . CLIM-USER) (Package . DW) (Package . PAVP) (Package . FILE-SELECTOR) (Package . SAX) (lisp-version . "7.0 [Windows] (Dec 28, 2004 17:34)") (cg . "1.54.2.17") (Package . cells) (Package . utils-kt) (Package . XLIB) (Package . COMMON-LISP-CONTROLLER) (Indent-tabs-mode . NIL) (Package . CL-FAD) (Package . HUNCHENTOOT) (Package . ESA) (Package . CLIMACS-GUI) (Package . COMMON-LISP-USER) (Package . R2) (Package . TEXPARA) (Package . CLIMACS-CORE) (todo-categories "Code" "Todo" "Todo") (Package . clim-internals) (Package . CLIM-FFI) (Package . User) (Package . clim-user) (Package . MCCLIM-FREETYPE) (show-trailing-whitespace . t) (indent-tabs) (Package . CLIM-INTERNALS) (Package . UFFI) (Syntax . Zetalisp) (Package . Time) (Package . TIME) (Package . SYSTEM-INTERNALS) (Package . COMMON-LISP-INTERNALS) (Package . Debugger) (Base . 8) (Package . CLI) (sh-indentation . 2) (Package MANDELBROT) (Vsp . 0) (Fonts CPTFONT HL12 TR12I COURIER CPTFONT HL12B HL12BI HL12I) (Package Zeta-C Global) (Package . USER) (Package . CLtL-Internals) (Syntax . Common-LISP) (Package . Graphic-editor) (Syntax . COMMON-LISP) (Package . CL-USER) (Package . CSS) (Readtable . GLISP) (Encoding . utf-8) (Package . CLOSURE/CLIM-DEVICE) (package . CL-USER) (Syntax . Common-Lisp) (Package . CXML) (readtable . runes) (package . ASDF) (package . NOX) (package . WILBUR) (unibyte . t) (Package . ANSI-LOOP) (Syntax . Common-lisp) (Lowercase . T) (scheme48-package . swank-general-rpc) (scheme48-package . swank-tcp-servers) (Syntax . ANSI-Common-Lisp) (Base . 10) (Lowercase . Yes) (Package . CLIM-DEMO))))
 '(save-completions-retention-time 1000)
 '(save-place t nil (saveplace))
 '(scheme-program-name "guile")
 '(show-paren-mode t nil (paren))
 '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
 '(todoo-initials "cke")
 '(todoo-item-header-face (quote todoo-item-header-face))
 '(todoo-sub-item-header-face (quote todoo-sub-item-header-face))
 '(tool-bar-mode nil nil (tool-bar))
 '(truncate-partial-width-windows nil)
 '(uniquify-buffer-name-style (quote post-forward-angle-brackets) nil (uniquify))
 '(user-mail-address "clinton@unknownlamer.org"))

(if 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 "#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"))))))

;;      '(mmm-default-submode-face ((t (:background "#000000"))))))

;;; Console Mode Enhancement
;(cond ((not window-system)
;       (xterm-mouse-mode)))
(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))))
 '(font-lock-keyword-face ((((class color) (min-colors 88) (background dark)) (:foreground "SlateGray2"))))
 '(font-lock-string-face ((((class color) (min-colors 88) (background dark)) (:foreground "gray70"))))
 '(fringe ((((class color) (background dark)) (:background "#011d31"))))
 '(gnus-group-mail-1 ((t (:foreground "gray70" :weight bold))))
 '(gnus-group-mail-3 ((t (:foreground "gray60" :weight bold))))
 '(gnus-group-mail-3-empty ((((class color) (background dark)) (:foreground "gray50"))))
 '(gnus-summary-cancelled ((((class color)) (:foreground "yellow"))))
 '(highlight ((((class color) (min-colors 88) (background dark)) (:background "#455f76"))))
 '(hl-line ((t (:inherit highlight :background "#011d32"))))
 '(link ((((class color) (min-colors 88) (background dark)) (:foreground "cyan1"))))
 '(menu ((((type x-toolkit)) (:background "#455f76" :height 0.9 :family "helvetica"))))
 '(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"))))
 '(muse-link ((t (:foreground "#00aa55" :underline "#00aa55" :weight bold))))
 '(muse-link-face ((t (:foreground "#009900" :underline "#008000" :weight bold))))
 '(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"))))
 '(scroll-bar ((t (:background "#233f53" :foreground "#000000"))))
 '(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)