init.el

;; load paths
(setq dotfiles-dir (file-name-directory
		    (or (buffer-file-name) load-file-name)))

(add-to-list 'load-path dotfiles-dir)

(if (fboundp 'normal-top-level-add-subdirs-to-load-path)
    (let* ((my-lisp-dir "~/.emacs.d/elpa-to-submit")
	   (default-directory my-lisp-dir))
      (setq load-path (cons my-lisp-dir load-path))
      (normal-top-level-add-subdirs-to-load-path)))

;; exec-path
(add-to-list 'exec-path "~/bin")
(add-to-list 'exec-path "/usr/local/bin")
(add-to-list 'exec-path "/opt/local/bin")

;; there are no free rides, kiddo
(global-unset-key [right])
(global-unset-key [left])
(global-unset-key [down])
(global-unset-key [up])

;; server
(server-start)

;; env variables
(setq autoload-file (concat dotfiles-dir "loaddefs.el"))
(setq package-user-dir (concat dotfiles-dir "elpa"))
(setq custom-file (concat dotfiles-dir "custom.el"))

;; debug
;; (setq debug-on-error t)

;; set meta to overlap super on Linux
(if (eq system-type 'gnu/linux)
    (setq x-super-keysym 'meta))

;; cosmetics
(setq inhibit-splash-screen t)
(ansi-color-for-comint-mode-on)

;; package.el
(when
    (load
     (expand-file-name "~/.emacs.d/elpa/package.el"))
  (package-initialize))
(add-to-list 'package-archives '("technomancy" . "http://repo.technomancy.us/emacs/") t)

;; auto-save
(defvar user-temporary-file-directory
  (concat temporary-file-directory user-login-name "/"))
(make-directory user-temporary-file-directory t)
(setq backup-by-copying t)
(setq backup-directory-alist
      `(("." . ,user-temporary-file-directory)
        (,tramp-file-name-regexp nil)))
(setq auto-save-list-file-prefix
      (concat user-temporary-file-directory ".auto-saves-"))
(setq auto-save-file-name-transforms
      `((".*" ,user-temporary-file-directory t)))

;; we need these every session
(require 'cl)
(require 'saveplace)
(require 'ffap)
(require 'uniquify)
(require 'ansi-color)
(require 'recentf)

;; optional requires, but fun!
(require 'flyspell)
                                        ; (require 'gnus)
(require 'pastie)
(require 'scpaste)
                                        ; (require 'textmate)
                                        ; (textmate-mode)
(require 'php-mode)
(require 'php-repl)
(require 'shellfm)
(require 'eproject)
(require 'w3m-load)
(require 'magit)
(require 'twitter)
(require 'tagging)
(require 'yasnippet)
                                        ; (require 'jde)
                                        ; (require 'emacs-wiki)
                                        ; (require 'wtf)
                                        ; (require 'abc-mode)
(require 'tramp)
(require 'trace)
(setq tramp-default-method "ssh")
(setq recentf-auto-cleanup 'never) ;; disable before we start recentf!
(custom-set-variables '(tramp-verbose 4)) 
(recentf-mode 1)

;; color-theme
(require 'color-theme)
(eval-after-load "color-theme"
  '(progn
     (color-theme-initialize)
     (color-theme-blackboard)))

;; auto-complete
(add-to-list 'load-path "/home/defn/.emacs.d/elpa-to-submit/autocomplete")
(require 'auto-complete-config)
(add-to-list 'ac-dictionary-directories "/home/defn/.emacs.d/elpa-to-submit/autocomplete/ac-dict")
(ac-config-default)

;; rsense
;; (setq rsense-home "$RSENSE_HOME")
;; (add-to-list 'load-path (concat rsense-home "/etc"))
;; (require 'rsense)

;; rudel
(add-to-list 'load-path "~/src/rudel/")
(add-to-list 'load-path "~/src/rudel/jupiter/")
(add-to-list 'load-path "~/src/rudel/obby/")
(require 'rudel-mode)
(require 'rudel-obby)
(load-file "~/src/rudel/rudel-loaddefs.el")
(global-rudel-minor-mode 1)

;; defn's requires
(require 'defn-ruby)
(require 'defn-registers)
(require 'defn-misc)
(require 'defn-defuns)
(require 'defn-shellfm)
(require 'defn-bindings)
(require 'defn-clojure)
(require 'defn-markdown)
                                        ; (require 'defn-gnus)
(require 'defn-org)
(require 'defn-eshell)
(require 'defn-php)


;; autoloads
(regen-autoloads)
(load custom-file 'noerror)

;; You can keep system- or user-specific customizations here
(setq system-specific-config (concat dotfiles-dir system-name ".el")
      user-specific-config (concat dotfiles-dir user-login-name ".el")
      user-specific-dir (concat dotfiles-dir user-login-name))
(add-to-list 'load-path user-specific-dir)

(if (file-exists-p system-specific-config) (load system-specific-config))
(if (file-exists-p user-specific-config) (load user-specific-config))
(if (file-exists-p user-specific-dir)
  (mapc #'load (directory-files user-specific-dir nil ".*el$")))