My Emacs Theme :)

colors.el

;; Color stuffs

;; default colors
(when window-system 
  (add-to-list 'default-frame-alist '(background-color . "black")) 
  (add-to-list 'default-frame-alist '(foreground-color . "wheat")))

(defun default-colors ()
  (interactive)
  (set-background-color "black")
  (set-foreground-color "wheat"))

(defun mellow-colors ()
  (interactive)
  (set-background-color "gray9")
  (set-foreground-color "RosyBrown1"))

;; Color configuration
(defun setup-mode-line ()
  (set-face-attribute  'mode-line
                       nil 
                       :foreground "light green"
                       :background "firebrick1" 
                       :box '(:line-width 1 :style released-button))

  (set-face-attribute  'mode-line-inactive
                       nil 
                       :foreground "maroon4"
                       :background "light blue"
                       :box '(:line-width 1 :style released-button)))

(setup-mode-line)

;; font stuff

(defun set-global-font-size (size)
  "Set global font size. Values between 100 and 200 seem to work well."  
  (interactive "sSize? (100-200): ")
  (set-face-attribute 'default nil :height (string-to-int size)))

(provide 'colors)