tim.el

 (when window-system
  (color-theme-blackboard)
  (when (equal system-type 'darwin)
    (setq ispell-program-name "~/Homebrew/bin/aspell")
    (dolist (dir '("/usr/local/bin" "/usr/X11/bin"
                   "~/Homebrew/sbin" "~/Homebrew/bin"
                   "~/Library/Python/2.6/bin" "~/.gem/ruby/1.8/bin"
                   "~/bin"))
      (let ((path (expand-file-name dir)))
        (setenv "PATH" (concat (format "%s:" path) (getenv "PATH")))
        (setq exec-path (push path exec-path))))))

;; load-path
(mapcar (lambda (d) (add-to-list 'load-path
                            (expand-file-name d "~/.emacs.d")))
        '("rudel"))

;; rudel
(require 'rudel-loaddefs)
(setq rudel-configured-sessions
      `((:name "local" :backend obby
               :host "127.0.0.1"
               :username "tim@emacs" :color "pink"
               :encryption t :port 6522
               :global-password "" :user-password "")))

;; chicken scheme
(setq scheme-program-name "csi")

;; erlang
(require 'erlang-start)

;; lfe
(autoload 'lfe-mode "lfe-mode" "Load lfe-mode")
(add-hook 'lfe-mode-hook (function paredit-mode))
(add-to-list 'auto-mode-alist '("\\.lfe$" . lfe-mode))

;; common code mode hooks
(dolist (x '(clojure scheme emacs-lisp lisp ruby sh nxml erlang lfe))
  (add-hook
   (intern (concat (symbol-name x) "-mode-hook"))
   (lambda ()
     (highlight-80+-mode +1)
     (whitespace-mode))))

;; lisp mode hooks
(dolist (x '(clojure scheme emacs-lisp lisp lfe slime-repl))
  (add-hook
   (intern (concat (symbol-name x) "-mode-hook"))
   (lambda ()
     (paredit-mode))))

;; misc settings

(setq ring-bell-function 'ignore)
(setq debug-on-error nil)
;; (setq delete-by-moving-to-trash nil)

;; FIXME - add these keys below
;; (global-set-key [] `comment-or-uncomment-region)
;; (global-set-key [] `shrink-window)
;; (global-set-key [] `enlange-window)
;; (global-set-key [] `shrink-window-horizontally)
;; (global-set-key [] `enlange-window-horizontally)

;; (global-set-key [home] `beginning-of-buffer)
;; (global-set-key [end] `end-of-buffer)
(global-set-key (kbd "C-m") 'newline-and-indent)

;; pulse

(require 'pulse nil t)
(require 'pulse-advice nil t)
(setq pulse-iterations 5)

;; eshell functions

(defun eshell/rsync-to-swing ()
  (interactive)
  (dolist (x '(".emacs.d" ".gitconfig" ".gitignore" ".hg" ".mvn" ".ant"
               "src/sa-safe"))
    (start-process (format "rsyncing %s" x) "*Messages*"
                   "rsync" "-vua" "--delete" "--delete-excluded"
                   "--exclude=target,build,*.elc,*.class"
                   (expand-file-name (format "~/%s" x))
                   "swing.sa2s.us:")))

;; eshell aliases

(defalias 'eshell/e 'find-file)