oblique63 · November 13, 2010 04:46
diff --git a/.emacs b/.emacs
 ;;;; Custom color theme
 (defun color-theme-tangotango ()
  "A color theme based on Tango Palette colors."
  ;; Color codes :
  ;; - blue :       "dodger blue"
  ;; - yellow :     "#edd400"
  ;; - green :      "#6ac214"
  ;; - orange/red : "tomato"
  (interactive)
  (color-theme-install
   '(color-theme-tangotango
     ((background-color . "#2e3434")
      (background-mode . dark)
      (border-color . "#888a85")
      (cursor-color . "#fce94f")
      (foreground-color . "#eeeeec")
      (mouse-color . "#8ae234"))
     ((help-highlight-face . underline)
      (ibuffer-dired-buffer-face . font-lock-function-name-face)
      (ibuffer-help-buffer-face . font-lock-comment-face)
      (ibuffer-hidden-buffer-face . font-lock-warning-face)
      (ibuffer-occur-match-face . font-lock-warning-face)
      (ibuffer-read-only-buffer-face . font-lock-type-face)
      (ibuffer-special-buffer-face . font-lock-keyword-face)
      (ibuffer-title-face . font-lock-type-face))
     (highlight ((t (:background "brown4" :foreground nil))))
     (highline-face ((t (:background "#055035"))))
     (border ((t (:background "#888a85"))))
     (fringe ((t (:background "grey10"))))
     (mode-line ((t (:foreground "#bbbbbc" :background "#222222" :box (:line-width 1 :color nil :style released-button)))))
     (mode-line-inactive ((t (:foreground "#bbbbbc" :background "#555753"))))
     (mode-line-buffer-id ((t (:bold t :foreground "orange" :background nil))))
     (region ((t (:background "dark slate blue"))))
     (link ((t (:underline t :foreground "dodger blue"))))
     (custom-link ((t (:inherit 'link))))
     (match ((t (:bold t :background "#e9b96e" :foreground "#2e3436"))))
     (tool-tips ((t (:inherit 'variable-pitch :foreground "black" :background "lightyellow"))))
     (tooltip ((t (:inherit 'variable-pitch :foreground "black" :background "lightyellow"))))
     (bold ((t (:bold t :underline nil :background nil))))
     (italic ((t (:italic t :underline nil :background nil))))
     (font-lock-builtin-face ((t (:foreground "#729fcf"))))
     (font-lock-comment-face ((t (:foreground "#888a85"))))
     (font-lock-constant-face ((t (:foreground "#8ae234"))))
     (font-lock-doc-face ((t (:foreground "#888a85"))))
     (font-lock-keyword-face ((t (:foreground "#729fcf" :bold t))))
     (font-lock-string-face ((t (:foreground "#ad7fa8" :italic t))))
     (font-lock-type-face ((t (:foreground "#8ae234" :bold t))))
     (font-lock-variable-name-face ((t (:foreground "tomato"))))
     (font-lock-warning-face ((t (:bold t :foreground "#f57900"))))
     (font-lock-function-name-face ((t (:foreground "#edd400" :bold t))))
     (comint-highlight-input ((t (:italic t :bold t))))
     (comint-highlight-prompt ((t (:foreground "#8ae234"))))
     (isearch ((t (:background "#f57900" :foreground "#2e3436"))))
     (isearch-lazy-highlight-face ((t (:foreground "#2e3436" :background "#e9b96e"))))
     (show-paren-match-face ((t (:foreground "#2e3436" :background "#73d216"))))
     (show-paren-mismatch-face ((t (:background "#ad7fa8" :foreground "#2e3436"))))
     (minibuffer-prompt ((t (:foreground "#729fcf" :bold t))))
     (info-xref ((t (:foreground "#729fcf"))))
     (info-xref-visited ((t (:foreground "#ad7fa8"))))
     (diary-face ((t (:bold t :foreground "IndianRed"))))
     (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray"))))
     (eshell-ls-executable-face ((t (:bold t :foreground "Coral"))))
     (eshell-ls-missing-face ((t (:bold t :foreground "black"))))
     (eshell-ls-special-face ((t (:bold t :foreground "Gold"))))
     (eshell-ls-symlink-face ((t (:bold t :foreground "White"))))
     (widget-button ((t (:bold t))))
     (widget-mouse-face ((t (:bold t :foreground "white" :background "brown4"))))
     (widget-field ((t (:foreground "orange" :background "gray30"))))
     (widget-single-line-field ((t (:foreground "orange" :background "gray30"))))
     (custom-group-tag ((t (:bold t :foreground "#edd400" :height 1.3))))
     (custom-variable-tag ((t (:bold t :foreground "#edd400" :height 1.1))))
     (custom-face-tag ((t (:bold t :foreground "#edd400" :height 1.1))))
     (custom-state-face ((t (:foreground "#729fcf"))))
     (custom-button  ((t (:box (:line-width 1 :style released-button) :background "grey50" :foreground "black"))))
     (custom-variable-button ((t (:inherit 'custom-button))))
     (custom-button-mouse  ((t (:inherit 'custom-button :background "grey60"))))
     (custom-button-unraised  ((t (:background "grey50" :foreground "black"))))
     (custom-button-mouse-unraised  ((t (:inherit 'custom-button-unraised :background "grey60"))))
     (custom-button-pressed  ((t (:inherit 'custom-button :box (:style pressed-button)))))
     (custom-button-mouse-pressed-unraised  ((t (:inherit 'custom-button-unraised :background "grey60"))))
     (custom-documentation ((t (:italic t))))
     (message-cited-text ((t (:foreground "#edd400")))) 
     (gnus-cite-face-1 ((t (:foreground "#ad7fa8"))))
     (gnus-cite-face-2 ((t (:foreground "sienna4"))))
     (gnus-cite-face-3 ((t (:foreground "khaki4"))))
     (gnus-cite-face-4 ((t (:foreground "PaleTurquoise4"))))
     (gnus-group-mail-1-empty-face ((t (:foreground "light cyan"))))
     (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan"))))
     (gnus-group-mail-2-empty-face ((t (:foreground "turquoise"))))
     (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise"))))
     (gnus-group-mail-3-empty-face ((t (:foreground "#729fcf"))))
     (gnus-group-mail-3-face ((t (:bold t :foreground "#edd400"))))
     (gnus-group-mail-low-empty-face ((t (:foreground "dodger blue"))))
     (gnus-group-mail-low-face ((t (:bold t :foreground "dodger blue"))))
     (gnus-group-news-1-empty-face ((t (:foreground "light cyan"))))
     (gnus-group-news-1-face ((t (:bold t :foreground "light cyan"))))
     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
     (gnus-group-news-3-empty-face ((t (:foreground "#729fcf"))))
     (gnus-group-news-3-face ((t (:bold t :foreground "#edd400"))))
     (gnus-group-news-low-empty-face ((t (:foreground "dodger blue"))))
     (gnus-group-news-low-face ((t (:bold t :foreground "dodger blue"))))
     (gnus-header-name-face ((t (:bold t :foreground "#729fcf"))))
     (gnus-header-from ((t (:bold t :foreground "#edd400"))))
     (gnus-header-subject ((t (:foreground "#edd400"))))
     (gnus-header-content ((t (:italic t :foreground "#8ae234"))))
     (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
     (gnus-signature-face ((t (:italic t :foreground "dark grey"))))
     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
     (gnus-summary-high-ancient-face ((t (:bold t :foreground "rotal blue"))))
     (gnus-summary-high-read-face ((t (:bold t :foreground "lime green"))))
     (gnus-summary-high-ticked-face ((t (:bold t :foreground "tomato"))))
     (gnus-summary-high-unread-face ((t (:bold t :foreground "white"))))
     (gnus-summary-low-ancient-face ((t (:italic t :foreground "lime green"))))
     (gnus-summary-low-read-face ((t (:italic t :foreground "royal blue"))))
     (gnus-summary-low-ticked-face ((t (:italic t :foreground "dark red"))))
     (gnus-summary-low-unread-face ((t (:italic t :foreground "white"))))
     (gnus-summary-normal-ancient-face ((t (:foreground "royal blue"))))
     (gnus-summary-normal-read-face ((t (:foreground "lime green"))))
     (gnus-summary-normal-ticked-face ((t (:foreground "indian red"))))
     (gnus-summary-normal-unread-face ((t (:foreground "white"))))
     (gnus-summary-selected ((t (:background "brown4" :foreground "white"))))
     (message-header-name-face ((t (:foreground "tomato"))))
     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
     (message-header-other-face ((t (:foreground "LightSkyBlue3"))))
     (message-header-xheader-face ((t (:foreground "DodgerBlue3"))))
     (message-header-subject ((t (:foreground "white"))))
     (message-header-to ((t (:foreground "white"))))
     (message-header-cc ((t (:foreground "white"))))
     (org-hide ((t (:foreground "#2e3436"))))
     (org-level-1 ((t (:bold t :foreground "dodger blue" :height 1.5))))
     (org-level-2 ((t (:bold nil :foreground "#edd400" :height 1.2))))
     (org-level-3 ((t (:bold t :foreground "#6ac214" :height 1.0))))
     (org-level-4 ((t (:bold nil :foreground "tomato" :height 1.0))))
     (org-date ((t (:underline t :foreground "magenta3"))))
     (org-footnote  ((t (:underline t :foreground "magenta3"))))
     (org-link ((t (:foreground "skyblue2" :background "#2e3436"))))
     (org-special-keyword ((t (:foreground "brown"))))
     (org-verbatim ((t (:foreground "#eeeeec" :underline t :slant italic))))
     (org-block ((t (:foreground "#bbbbbc"))))
     (org-quote ((t (:inherit org-block :slant italic))))
     (org-verse ((t (:inherit org-block :slant italic))))
     (org-todo ((t (:bold t :foreground "Red"))))
     (org-done ((t (:bold t :foreground "ForestGreen"))))
     (org-agenda-structure ((t (:weight bold :foreground "tomato"))))
     (org-agenda-date ((t (:foreground "#6ac214"))))
     (org-agenda-date-weekend ((t (:weight normal :foreground "dodger blue"))))
     (org-agenda-date-today ((t (:weight bold :foreground "#edd400"))))
     (anything-header ((t (:bold t :background "grey15" :foreground "#edd400"))))
     (ess-jb-comment-face ((t (:background "#2e3436" :foreground "firebrick" :slant italic))))
     (ess-jb-hide-face ((t (:background "#2e3436" :foreground "#243436"))))
     (ess-jb-h1-face ((t (:height 1.6 :foreground "dodger blue" :slant normal))))
     (ess-jb-h2-face ((t (:height 1.4 :foreground "#6ac214" :slant normal))))
     (ess-jb-h3-face ((t (:height 1.2 :foreground "#edd400" :slant normal))))
     (ecb-default-highlight-face ((t (:background "#729fcf"))))
     (ecb-tag-header-face ((t (:background "#f57900"))))
     (magit-header ((t (:foreground "#edd400"))))
     (magit-diff-add ((t (:foreground "#729fcf"))))
     (magit-item-highlight ((t (:weight extra-bold :inverse-video t))))
 )))

 (provide 'color-theme-tangotango)


 (defun color-theme-blackboard ()
  "Color theme by JD Huntington, based off the TextMate Blackboard theme, created 2008-11-27"
  (interactive)
  (color-theme-install
   '(color-theme-blackboard
     ((background-color . "#0C1021")
      (background-mode . dark)
      (border-color . "black")
      (cursor-color . "#A7A7A7")
      (foreground-color . "#F8F8F8")
      (mouse-color . "sienna1"))
     (default ((t (:background "#0C1021" :foreground "#F8F8F8"))))
     (blue ((t (:foreground "blue"))))
     (bold ((t (:bold t))))
     (bold-italic ((t (:bold t))))
     (border-glyph ((t (nil))))
     (buffers-tab ((t (:background "#0C1021" :foreground "#F8F8F8"))))
     (font-lock-builtin-face ((t (:foreground "#F8F8F8"))))
     (font-lock-comment-face ((t (:italic t :foreground "#AEAEAE"))))
     (font-lock-constant-face ((t (:foreground "#D8FA3C"))))
     (font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
     (font-lock-function-name-face ((t (:foreground "#FF6400"))))
     (font-lock-keyword-face ((t (:foreground "#FBDE2D"))))
     (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
     (font-lock-reference-face ((t (:foreground "SlateBlue"))))

     (font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062"))))
     (font-lock-regexp-grouping-construct ((t (:foreground "red"))))

     (font-lock-string-face ((t (:foreground "#61CE3C"))))
     (font-lock-type-face ((t (:foreground "#8DA6CE"))))
     (font-lock-variable-name-face ((t (:foreground "#FF6400"))))
     (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
     (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
     (region ((t (:background "#253B76"))))
     (mode-line ((t (:background "grey75" :foreground "black"))))
     (highlight ((t (:background "#222222"))))
     (highline-face ((t (:background "SeaGreen"))))
     (italic ((t (nil))))
     (left-margin ((t (nil))))
     (text-cursor ((t (:background "yellow" :foreground "black"))))
     (toolbar ((t (nil))))
     (underline ((nil (:underline nil))))
     (zmacs-region ((t (:background "snow" :foreground "ble")))))))
 (provide 'color-theme-blackboard)

 (defun color-theme-ninja-tortoise ()
  (interactive)
  (color-theme-install
   '(color-theme-ninja-tortoise
      ((background-color . "#0f0f0f")
      (background-mode . light)
      (border-color . "#000000")
      (cursor-color . "#7e7e7e")
      (foreground-color . "#a8a8a8")
      (mouse-color . "black"))
     (fringe ((t (:background "#000000"))))
     (mode-line ((t (:foreground "#ffffff" :background "#303030"))))
     (region ((t (:background "#0a3e39")))) ; Alt: "#2b2b2b"
     (highlight ((t (:background "#3b3b3b"))))
     (highline-face ((t (:background "#292929"))))
     (font-lock-builtin-face ((t (:foreground "#f010cc"))))
     (font-lock-comment-face ((t (:foreground "#85b315"))))
     (font-lock-function-name-face ((t (:bold t :foreground "#0083b3")))) ; Alt: #009ac2
     (font-lock-keyword-face ((t (:bold t :foreground "#0ac302")))) ; Alt: #2bff0a
     (font-lock-string-face ((t (:foreground "#ff1f14")))) ; Alt: #ff1b14
     (font-lock-type-face ((t (:bold t :foreground"#ea9700"))))
     (font-lock-variable-name-face ((t (:foreground "#707070")))) ; Alt: #a8a8a8
     (minibuffer-prompt ((t (:foreground "#d1001f" :bold t))))
     (font-lock-warning-face ((t (:foreground "Red" :bold t))))
     )))
 (provide 'color-theme-ninja-tortoise)

 (defface highlight-current-line-face
  '((t (:background "#292929")))
    "Face used to highlight current line."
  :group 'highlight-current-line)

 ;;;; Other Customizations
 (if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
 (delete-selection-mode t)

 ; Enables Line Numbers, need to download linum.el into emacs.d directory
 (require 'linum)
 (linum-mode 1)
 (global-linum-mode 1)
 (setq column-number-mode 1)

 (cua-mode 1)
 (ido-mode 1)
 (ido-everywhere 1)
 ;(iswitchb-mode)
 ;(highlight-current-line-on 1)
 (highline-mode-on)
 (show-paren-mode 1)
 (setq tab-width 4)
 (setq-default indent-tabs-mode nil)
 (global-set-key "\C-w" 'backward-kill-word)

 ; Requires color-theme package
 (color-theme-initialize)
 ;(color-theme-renegade)
 ;(color-theme-ninja-tortoise)
 (color-theme-tangotango)
 ;(color-theme-blackboard)
 ;(highlight-current-line-on 1)
 (set-default-font "Liberation Mono:pixelsize=13:foundry=unknown:weight=normal:slant=normal:width=normal:spacing=100:scalable=true")
 (modify-frame-parameters nil '((wait-for-wm . nil)))

 (custom-set-faces
 '(comint-highlight-prompt ((((min-colors 88) (background dark)) (:foreground "cyan1")) (((background dark)) (:foreground "cyan")) (t (:foreground "#20aa00"))))
 '(cursor ((t (:foreground "#000000" :background "#7e7e7e"))))
 '(isearch ((((class color) (min-colors 88) (background light)) (:background "#666666" :foreground "#ffff00")) (((class color) (min-colors 88) (background dark)) (:background "palevioletred2" :foreground "brown4")) (((class color) (min-colors 16)) (:background "magenta4" :foreground "cyan1")) (((class color) (min-colors 8)) (:background "magenta4" :foreground "cyan1")) (t (:inverse-video t))))
 '(isearch-fail ((((class color) (min-colors 88) (background light)) (:background "#ff0000")) (((class color) (min-colors 88) (background dark)) (:background "#ff0000")) (((class color) (min-colors 16)) (:background "red")) (((class color) (min-colors 8)) (:background "red")) (((class color grayscale)) (:foreground "#000000")) (t (:inverse-video t))))
 '(lazy-highlight ((((class color) (min-colors 88) (background light)) (:background "#aa5522")) (((class color) (min-colors 88) (background dark)) (:background "#cccc33")) (((class color) (min-colors 16)) (:background "#cccc33")) (((class color) (min-colors 8)) (:background "cccc33")) (t (:underline t))))
 '(show-paren-match ((((class color) (background light)) (:background "#aa3a00")) (((class color) (background dark)) (:background "steelblue3")) (((background dark)) (:background "grey50")) (t (:background "gray"))))
 '(show-paren-mismatch ((((class color)) (:foreground "white" :background "#7a7a00")) (t (:inverse-video t))))
 '(tooltip ((((class color)) (:inherit variable-pitch :background "#292929" :foreground "white" :height 0.8 :width condensed))))
 '(widget-field ((((type tty)) (:background "yellow3" :foreground "black")) (((class grayscale color) (background light)) (:background "#1a1a1a")) (((class grayscale color) (background dark)) (:background "#1a1a1a")) (t (:slant italic))))
 '(widget-single-line-field ((((type tty)) (:background "green3" :foreground "black")) (((class grayscale color) (background light)) (:background "#1a1a1a")) (((class grayscale color) (background dark)) (:background "dim gray")) (t (:slant italic)))))
	;;;; Custom color theme
	(defun color-theme-tangotango ()
	"A color theme based on Tango Palette colors."
	;; Color codes :
	;; - blue : "dodger blue"
	;; - yellow : "#edd400"
	;; - green : "#6ac214"
	;; - orange/red : "tomato"
	(interactive)
	(color-theme-install
	'(color-theme-tangotango
	((background-color . "#2e3434")
	(background-mode . dark)
	(border-color . "#888a85")
	(cursor-color . "#fce94f")
	(foreground-color . "#eeeeec")
	(mouse-color . "#8ae234"))
	((help-highlight-face . underline)
	(ibuffer-dired-buffer-face . font-lock-function-name-face)
	(ibuffer-help-buffer-face . font-lock-comment-face)
	(ibuffer-hidden-buffer-face . font-lock-warning-face)
	(ibuffer-occur-match-face . font-lock-warning-face)
	(ibuffer-read-only-buffer-face . font-lock-type-face)
	(ibuffer-special-buffer-face . font-lock-keyword-face)
	(ibuffer-title-face . font-lock-type-face))
	(highlight ((t (:background "brown4" :foreground nil))))
	(highline-face ((t (:background "#055035"))))
	(border ((t (:background "#888a85"))))
	(fringe ((t (:background "grey10"))))
	(mode-line ((t (:foreground "#bbbbbc" :background "#222222" :box (:line-width 1 :color nil :style released-button)))))
	(mode-line-inactive ((t (:foreground "#bbbbbc" :background "#555753"))))
	(mode-line-buffer-id ((t (:bold t :foreground "orange" :background nil))))
	(region ((t (:background "dark slate blue"))))
	(link ((t (:underline t :foreground "dodger blue"))))
	(custom-link ((t (:inherit 'link))))
	(match ((t (:bold t :background "#e9b96e" :foreground "#2e3436"))))
	(tool-tips ((t (:inherit 'variable-pitch :foreground "black" :background "lightyellow"))))
	(tooltip ((t (:inherit 'variable-pitch :foreground "black" :background "lightyellow"))))
	(bold ((t (:bold t :underline nil :background nil))))
	(italic ((t (:italic t :underline nil :background nil))))
	(font-lock-builtin-face ((t (:foreground "#729fcf"))))
	(font-lock-comment-face ((t (:foreground "#888a85"))))
	(font-lock-constant-face ((t (:foreground "#8ae234"))))
	(font-lock-doc-face ((t (:foreground "#888a85"))))
	(font-lock-keyword-face ((t (:foreground "#729fcf" :bold t))))
	(font-lock-string-face ((t (:foreground "#ad7fa8" :italic t))))
	(font-lock-type-face ((t (:foreground "#8ae234" :bold t))))
	(font-lock-variable-name-face ((t (:foreground "tomato"))))
	(font-lock-warning-face ((t (:bold t :foreground "#f57900"))))
	(font-lock-function-name-face ((t (:foreground "#edd400" :bold t))))
	(comint-highlight-input ((t (:italic t :bold t))))
	(comint-highlight-prompt ((t (:foreground "#8ae234"))))
	(isearch ((t (:background "#f57900" :foreground "#2e3436"))))
	(isearch-lazy-highlight-face ((t (:foreground "#2e3436" :background "#e9b96e"))))
	(show-paren-match-face ((t (:foreground "#2e3436" :background "#73d216"))))
	(show-paren-mismatch-face ((t (:background "#ad7fa8" :foreground "#2e3436"))))
	(minibuffer-prompt ((t (:foreground "#729fcf" :bold t))))
	(info-xref ((t (:foreground "#729fcf"))))
	(info-xref-visited ((t (:foreground "#ad7fa8"))))
	(diary-face ((t (:bold t :foreground "IndianRed"))))
	(eshell-ls-clutter-face ((t (:bold t :foreground "DimGray"))))
	(eshell-ls-executable-face ((t (:bold t :foreground "Coral"))))
	(eshell-ls-missing-face ((t (:bold t :foreground "black"))))
	(eshell-ls-special-face ((t (:bold t :foreground "Gold"))))
	(eshell-ls-symlink-face ((t (:bold t :foreground "White"))))
	(widget-button ((t (:bold t))))
	(widget-mouse-face ((t (:bold t :foreground "white" :background "brown4"))))
	(widget-field ((t (:foreground "orange" :background "gray30"))))
	(widget-single-line-field ((t (:foreground "orange" :background "gray30"))))
	(custom-group-tag ((t (:bold t :foreground "#edd400" :height 1.3))))
	(custom-variable-tag ((t (:bold t :foreground "#edd400" :height 1.1))))
	(custom-face-tag ((t (:bold t :foreground "#edd400" :height 1.1))))
	(custom-state-face ((t (:foreground "#729fcf"))))
	(custom-button ((t (:box (:line-width 1 :style released-button) :background "grey50" :foreground "black"))))
	(custom-variable-button ((t (:inherit 'custom-button))))
	(custom-button-mouse ((t (:inherit 'custom-button :background "grey60"))))
	(custom-button-unraised ((t (:background "grey50" :foreground "black"))))
	(custom-button-mouse-unraised ((t (:inherit 'custom-button-unraised :background "grey60"))))
	(custom-button-pressed ((t (:inherit 'custom-button :box (:style pressed-button)))))
	(custom-button-mouse-pressed-unraised ((t (:inherit 'custom-button-unraised :background "grey60"))))
	(custom-documentation ((t (:italic t))))
	(message-cited-text ((t (:foreground "#edd400"))))
	(gnus-cite-face-1 ((t (:foreground "#ad7fa8"))))
	(gnus-cite-face-2 ((t (:foreground "sienna4"))))
	(gnus-cite-face-3 ((t (:foreground "khaki4"))))
	(gnus-cite-face-4 ((t (:foreground "PaleTurquoise4"))))
	(gnus-group-mail-1-empty-face ((t (:foreground "light cyan"))))
	(gnus-group-mail-1-face ((t (:bold t :foreground "light cyan"))))
	(gnus-group-mail-2-empty-face ((t (:foreground "turquoise"))))
	(gnus-group-mail-2-face ((t (:bold t :foreground "turquoise"))))
	(gnus-group-mail-3-empty-face ((t (:foreground "#729fcf"))))
	(gnus-group-mail-3-face ((t (:bold t :foreground "#edd400"))))
	(gnus-group-mail-low-empty-face ((t (:foreground "dodger blue"))))
	(gnus-group-mail-low-face ((t (:bold t :foreground "dodger blue"))))
	(gnus-group-news-1-empty-face ((t (:foreground "light cyan"))))
	(gnus-group-news-1-face ((t (:bold t :foreground "light cyan"))))
	(gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
	(gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
	(gnus-group-news-3-empty-face ((t (:foreground "#729fcf"))))
	(gnus-group-news-3-face ((t (:bold t :foreground "#edd400"))))
	(gnus-group-news-low-empty-face ((t (:foreground "dodger blue"))))
	(gnus-group-news-low-face ((t (:bold t :foreground "dodger blue"))))
	(gnus-header-name-face ((t (:bold t :foreground "#729fcf"))))
	(gnus-header-from ((t (:bold t :foreground "#edd400"))))
	(gnus-header-subject ((t (:foreground "#edd400"))))
	(gnus-header-content ((t (:italic t :foreground "#8ae234"))))
	(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
	(gnus-signature-face ((t (:italic t :foreground "dark grey"))))
	(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
	(gnus-summary-high-ancient-face ((t (:bold t :foreground "rotal blue"))))
	(gnus-summary-high-read-face ((t (:bold t :foreground "lime green"))))
	(gnus-summary-high-ticked-face ((t (:bold t :foreground "tomato"))))
	(gnus-summary-high-unread-face ((t (:bold t :foreground "white"))))
	(gnus-summary-low-ancient-face ((t (:italic t :foreground "lime green"))))
	(gnus-summary-low-read-face ((t (:italic t :foreground "royal blue"))))
	(gnus-summary-low-ticked-face ((t (:italic t :foreground "dark red"))))
	(gnus-summary-low-unread-face ((t (:italic t :foreground "white"))))
	(gnus-summary-normal-ancient-face ((t (:foreground "royal blue"))))
	(gnus-summary-normal-read-face ((t (:foreground "lime green"))))
	(gnus-summary-normal-ticked-face ((t (:foreground "indian red"))))
	(gnus-summary-normal-unread-face ((t (:foreground "white"))))
	(gnus-summary-selected ((t (:background "brown4" :foreground "white"))))
	(message-header-name-face ((t (:foreground "tomato"))))
	(message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
	(message-header-other-face ((t (:foreground "LightSkyBlue3"))))
	(message-header-xheader-face ((t (:foreground "DodgerBlue3"))))
	(message-header-subject ((t (:foreground "white"))))
	(message-header-to ((t (:foreground "white"))))
	(message-header-cc ((t (:foreground "white"))))
	(org-hide ((t (:foreground "#2e3436"))))
	(org-level-1 ((t (:bold t :foreground "dodger blue" :height 1.5))))
	(org-level-2 ((t (:bold nil :foreground "#edd400" :height 1.2))))
	(org-level-3 ((t (:bold t :foreground "#6ac214" :height 1.0))))
	(org-level-4 ((t (:bold nil :foreground "tomato" :height 1.0))))
	(org-date ((t (:underline t :foreground "magenta3"))))
	(org-footnote ((t (:underline t :foreground "magenta3"))))
	(org-link ((t (:foreground "skyblue2" :background "#2e3436"))))
	(org-special-keyword ((t (:foreground "brown"))))
	(org-verbatim ((t (:foreground "#eeeeec" :underline t :slant italic))))
	(org-block ((t (:foreground "#bbbbbc"))))
	(org-quote ((t (:inherit org-block :slant italic))))
	(org-verse ((t (:inherit org-block :slant italic))))
	(org-todo ((t (:bold t :foreground "Red"))))
	(org-done ((t (:bold t :foreground "ForestGreen"))))
	(org-agenda-structure ((t (:weight bold :foreground "tomato"))))
	(org-agenda-date ((t (:foreground "#6ac214"))))
	(org-agenda-date-weekend ((t (:weight normal :foreground "dodger blue"))))
	(org-agenda-date-today ((t (:weight bold :foreground "#edd400"))))
	(anything-header ((t (:bold t :background "grey15" :foreground "#edd400"))))
	(ess-jb-comment-face ((t (:background "#2e3436" :foreground "firebrick" :slant italic))))
	(ess-jb-hide-face ((t (:background "#2e3436" :foreground "#243436"))))
	(ess-jb-h1-face ((t (:height 1.6 :foreground "dodger blue" :slant normal))))
	(ess-jb-h2-face ((t (:height 1.4 :foreground "#6ac214" :slant normal))))
	(ess-jb-h3-face ((t (:height 1.2 :foreground "#edd400" :slant normal))))
	(ecb-default-highlight-face ((t (:background "#729fcf"))))
	(ecb-tag-header-face ((t (:background "#f57900"))))
	(magit-header ((t (:foreground "#edd400"))))
	(magit-diff-add ((t (:foreground "#729fcf"))))
	(magit-item-highlight ((t (:weight extra-bold :inverse-video t))))
	)))

	(provide 'color-theme-tangotango)


	(defun color-theme-blackboard ()
	"Color theme by JD Huntington, based off the TextMate Blackboard theme, created 2008-11-27"
	(interactive)
	(color-theme-install
	'(color-theme-blackboard
	((background-color . "#0C1021")
	(background-mode . dark)
	(border-color . "black")
	(cursor-color . "#A7A7A7")
	(foreground-color . "#F8F8F8")
	(mouse-color . "sienna1"))
	(default ((t (:background "#0C1021" :foreground "#F8F8F8"))))
	(blue ((t (:foreground "blue"))))
	(bold ((t (:bold t))))
	(bold-italic ((t (:bold t))))
	(border-glyph ((t (nil))))
	(buffers-tab ((t (:background "#0C1021" :foreground "#F8F8F8"))))
	(font-lock-builtin-face ((t (:foreground "#F8F8F8"))))
	(font-lock-comment-face ((t (:italic t :foreground "#AEAEAE"))))
	(font-lock-constant-face ((t (:foreground "#D8FA3C"))))
	(font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
	(font-lock-function-name-face ((t (:foreground "#FF6400"))))
	(font-lock-keyword-face ((t (:foreground "#FBDE2D"))))
	(font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
	(font-lock-reference-face ((t (:foreground "SlateBlue"))))

	(font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062"))))
	(font-lock-regexp-grouping-construct ((t (:foreground "red"))))

	(font-lock-string-face ((t (:foreground "#61CE3C"))))
	(font-lock-type-face ((t (:foreground "#8DA6CE"))))
	(font-lock-variable-name-face ((t (:foreground "#FF6400"))))
	(font-lock-warning-face ((t (:bold t :foreground "Pink"))))
	(gui-element ((t (:background "#D4D0C8" :foreground "black"))))
	(region ((t (:background "#253B76"))))
	(mode-line ((t (:background "grey75" :foreground "black"))))
	(highlight ((t (:background "#222222"))))
	(highline-face ((t (:background "SeaGreen"))))
	(italic ((t (nil))))
	(left-margin ((t (nil))))
	(text-cursor ((t (:background "yellow" :foreground "black"))))
	(toolbar ((t (nil))))
	(underline ((nil (:underline nil))))
	(zmacs-region ((t (:background "snow" :foreground "ble")))))))
	(provide 'color-theme-blackboard)

	(defun color-theme-ninja-tortoise ()
	(interactive)
	(color-theme-install
	'(color-theme-ninja-tortoise
	((background-color . "#0f0f0f")
	(background-mode . light)
	(border-color . "#000000")
	(cursor-color . "#7e7e7e")
	(foreground-color . "#a8a8a8")
	(mouse-color . "black"))
	(fringe ((t (:background "#000000"))))
	(mode-line ((t (:foreground "#ffffff" :background "#303030"))))
	(region ((t (:background "#0a3e39")))) ; Alt: "#2b2b2b"
	(highlight ((t (:background "#3b3b3b"))))
	(highline-face ((t (:background "#292929"))))
	(font-lock-builtin-face ((t (:foreground "#f010cc"))))
	(font-lock-comment-face ((t (:foreground "#85b315"))))
	(font-lock-function-name-face ((t (:bold t :foreground "#0083b3")))) ; Alt: #009ac2
	(font-lock-keyword-face ((t (:bold t :foreground "#0ac302")))) ; Alt: #2bff0a
	(font-lock-string-face ((t (:foreground "#ff1f14")))) ; Alt: #ff1b14
	(font-lock-type-face ((t (:bold t :foreground"#ea9700"))))
	(font-lock-variable-name-face ((t (:foreground "#707070")))) ; Alt: #a8a8a8
	(minibuffer-prompt ((t (:foreground "#d1001f" :bold t))))
	(font-lock-warning-face ((t (:foreground "Red" :bold t))))
	)))
	(provide 'color-theme-ninja-tortoise)

	(defface highlight-current-line-face
	'((t (:background "#292929")))
	"Face used to highlight current line."
	:group 'highlight-current-line)

	;;;; Other Customizations
	(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
	(delete-selection-mode t)

	; Enables Line Numbers, need to download linum.el into emacs.d directory
	(require 'linum)
	(linum-mode 1)
	(global-linum-mode 1)
	(setq column-number-mode 1)

	(cua-mode 1)
	(ido-mode 1)
	(ido-everywhere 1)
	;(iswitchb-mode)
	;(highlight-current-line-on 1)
	(highline-mode-on)
	(show-paren-mode 1)
	(setq tab-width 4)
	(setq-default indent-tabs-mode nil)
	(global-set-key "\C-w" 'backward-kill-word)

	; Requires color-theme package
	(color-theme-initialize)
	;(color-theme-renegade)
	;(color-theme-ninja-tortoise)
	(color-theme-tangotango)
	;(color-theme-blackboard)
	;(highlight-current-line-on 1)
	(set-default-font "Liberation Mono:pixelsize=13:foundry=unknown:weight=normal:slant=normal:width=normal:spacing=100:scalable=true")
	(modify-frame-parameters nil '((wait-for-wm . nil)))

	(custom-set-faces
	'(comint-highlight-prompt ((((min-colors 88) (background dark)) (:foreground "cyan1")) (((background dark)) (:foreground "cyan")) (t (:foreground "#20aa00"))))
	'(cursor ((t (:foreground "#000000" :background "#7e7e7e"))))
	'(isearch ((((class color) (min-colors 88) (background light)) (:background "#666666" :foreground "#ffff00")) (((class color) (min-colors 88) (background dark)) (:background "palevioletred2" :foreground "brown4")) (((class color) (min-colors 16)) (:background "magenta4" :foreground "cyan1")) (((class color) (min-colors 8)) (:background "magenta4" :foreground "cyan1")) (t (:inverse-video t))))
	'(isearch-fail ((((class color) (min-colors 88) (background light)) (:background "#ff0000")) (((class color) (min-colors 88) (background dark)) (:background "#ff0000")) (((class color) (min-colors 16)) (:background "red")) (((class color) (min-colors 8)) (:background "red")) (((class color grayscale)) (:foreground "#000000")) (t (:inverse-video t))))
	'(lazy-highlight ((((class color) (min-colors 88) (background light)) (:background "#aa5522")) (((class color) (min-colors 88) (background dark)) (:background "#cccc33")) (((class color) (min-colors 16)) (:background "#cccc33")) (((class color) (min-colors 8)) (:background "cccc33")) (t (:underline t))))
	'(show-paren-match ((((class color) (background light)) (:background "#aa3a00")) (((class color) (background dark)) (:background "steelblue3")) (((background dark)) (:background "grey50")) (t (:background "gray"))))
	'(show-paren-mismatch ((((class color)) (:foreground "white" :background "#7a7a00")) (t (:inverse-video t))))
	'(tooltip ((((class color)) (:inherit variable-pitch :background "#292929" :foreground "white" :height 0.8 :width condensed))))
	'(widget-field ((((type tty)) (:background "yellow3" :foreground "black")) (((class grayscale color) (background light)) (:background "#1a1a1a")) (((class grayscale color) (background dark)) (:background "#1a1a1a")) (t (:slant italic))))
	'(widget-single-line-field ((((type tty)) (:background "green3" :foreground "black")) (((class grayscale color) (background light)) (:background "#1a1a1a")) (((class grayscale color) (background dark)) (:background "dim gray")) (t (:slant italic)))))