How I load my file

gistfile1.md

There is a checkout of solarized at http://fayr.am/7rre

main.el

; Editors note: most of this probably won't work for you, but you should get the idea.
;;; Dave Fayram's Emacs setup.
;;; ~/.emacs -> (load "~/.emacs.d/main.el)

;;; This was installed by package-install.el.
;;; This provides support for the package system and
;;; interfacing with ELPA, the package archive.
;;; Move this code earlier if you want to reference
;;; packages in your .emacs.
(when
    (load
     (expand-file-name "~/.emacs.d/elpa/package.el"))
  (package-initialize))

(add-to-list 'load-path "~/.emacs.d/manual")
(setq-default indent-tabs-mode nil)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Setup files (used later!)
(defconst my-setup-files
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  '(theme lisp erlang org c markdown scala haskell)) ; Removed CEDET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defun edit-my-preferences ()
  "Edits my local preferences."
  (interactive)
  (find-file 
   (expand-file-name "~/.emacs.d/main.el")))

(defun run-setup (setup-sym)
  "Loads a file in .emacs.d named \"symbol-setup.el\"."
  (let* ((sstr  (symbol-name setup-sym))
	 (fname (concat sstr "-setup.el")))
    (message (concat "Loading setup for " sstr))
    (load (expand-file-name fname "~/.emacs.d/"))))

(dolist (s my-setup-files)
  (run-setup s))

; Some odds and ends that don't fit anywhere else

(define-key global-map "\C-xP" 'edit-my-preferences)
(defadvice zap-to-char (after my-zap-to-char-advice (arg char) activate)
  "Kill up to the ARG'th occurence of CHAR, and leave CHAR.
  The CHAR is replaced and the point is put before CHAR."
  (insert char)
  (forward-char -1))

(defun unfill-paragraph ()
  "Takes a multi-line paragraph and makes it into a single line of text."
  (interactive)
  (let ((fill-column (point-max)))
    (fill-paragraph nil)))

(require 'ido)
(ido-mode t)

(blink-cursor-mode nil)
(setq ispell-program-name "aspell")
(setq ispell-extra-args '("--sug-mode=ultra"))

theme-setup.el

(add-to-list 'load-path "~/.emacs.d/manual/color-theme")
(add-to-list 'load-path "/Users/kirindave/lib/emacs/solarized")
(require 'color-theme)
(require 'color-theme-solarized)

(eval-after-load 'color-theme
  (progn (color-theme-initialize)))
         ; This is my old theme.
	 ;(color-theme-charcoal-black)
	 ;(set-face-background 'region "#555555")))))


(setq my-color-themes (list 'color-theme-solarized-dark 'color-theme-solarized-light))

(defun my-theme-set-default () ; Set the first row
  (interactive)
  (setq theme-current my-color-themes)
  (funcall (car theme-current)))

(defun my-describe-theme () ; Show the current theme
  (interactive)
  (message "%s" (car theme-current)))
                                        ; Set the next theme (fixed by Chris Webber - tanks)
(defun my-theme-cycle ()		
  (interactive)
  (setq theme-current (cdr theme-current))
  (if (null theme-current)
      (setq theme-current my-color-themes))
  (funcall (car theme-current))
  (message "%S" (car theme-current)))

(setq theme-current my-color-themes)
(setq color-theme-is-global t) ; Initialization
(my-theme-set-default)
(define-key global-map "\C-xT" 'my-theme-cycle)