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
;; it's time you learn emacs
(global-unset-key [right])
(global-unset-key [left])
(global-unset-key [down])
(global-unset-key [up])

;; server-start (for emacsclient)
(server-start)
;; (add-hook 'after-init-hook 'server-start)
;; (add-hook 'server-done-hook
;;           (lambda ()
;;             (shell-command
;;              "screen -r -X select `cat ~/tmp/emacsclient-caller`")))

;; 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 debugging (let's hope we don't have to use this...)
(setq debug-on-error t)

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

;; emacs 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)
  (setq uniquify-buffer-name-style 'post-forward)
(require 'ansi-color)
(require 'recentf)

                                        ;--------------------
(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 'jde)
                                        ;(require 'emacs-wiki)
(require 'wtf)
(require 'abc-mode)
(require 'tramp)
(setq tramp-default-method "scp")
(setq recentf-auto-cleanup 'never) ;; disable before we start recentf!
(recentf-mode 1)

;; color-theme
(require 'color-theme)
(eval-after-load "color-theme"
  '(progn
     (color-theme-initialize)
                                        ; (color-theme-subtle-hacker)))
                                        ; (color-theme-ir-black)))
                                        ; (color-theme-zenburn)))
                                        ; (color-theme-twilight)))
                                        ; (color-theme-blackboard)))
                                        ; (color-theme-defn)))
                                        ; (color-theme-charcoal-grey)))
     (color-theme-defn-light)))


(require 'yasnippet)
;; (yas/load-directory "~/.emacs.d/snippets/")

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

;; custom defn 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$")))