(add-to-list 'load-path "~/.emacs.d/vendor/")
(setq load-path (append load-path '("~/elisp/")))
;; (setq load-path (append load-path '("~/lisp/ess/lisp")))

;; Should emacs be started with --dameon 
;; Originally this was thought to be from 
;; https://chrome.google.com/extensions/detail/ljobjlafonikaiipfkggjbhkghgicgoh
(require 'edit-server)
(edit-server-start)


;; This was recommended in place of webdav
(setq org-mobile-directory "~/Dropbox/MobileOrg")


;; http://code.google.com/p/wave-client-for-emacs/
;; (add-to-list 'load-path "~/sandbox/wave-client-for-emacs/lisp")
;; (require 'wave-list)
;; (setq wave-client-connection-method 'browser-channel)
;; (setq wave-client-user "jasonwalsh")
;; (wave-list-mode)
;; (setq wave-client-domain "wave.google.com")
;; (setq wave-client-domain "wavesandbox.com")

(ido-mode)

;; (setq load-path (append load-path '("~/sandbox/stgit/contrib")))
;; (require 'stgit)

(require 'package)
(add-to-list 'package-archives
             '("marmalade" . 
               "http://marmalade-repo.org/packages/") t)


; http://code.google.com/p/yasnippet/
(add-to-list 'load-path
             "~/.emacs.d/plugins/yasnippet")
(require 'yasnippet) ;; not yasnippet-bundle
(yas/initialize)
(yas/load-directory "~/.emacs.d/plugins/yasnippet/snippets")


(setq org-clock-persist 'history)
(org-clock-persistence-insinuate)

(setq org-ditaa-jar-path "~/lib/ditaa0_9.jar")

 (add-hook 'org-babel-after-execute-hook 'org-display-inline-images)

 (setq org-babel-load-languages (quote ((emacs-lisp . t)
                                        (dot . t)
                                        (ditaa . t)
                                        (R . t)
                                        (python . t)
                                        (ruby . t)
                                        (gnuplot . t)
                                        (clojure . t)
                                        (sh . t))))

(setq org-confirm-babel-evaluate nil)

;; http://github.com/defunkt/mustache.git
(add-to-list 'load-path "~/sandbox/mustache/contrib")
(require 'mustache-mode)
(setq auto-mode-alist (cons '("\\.tpl$" . tpl-mode) auto-mode-alist))
(autoload 'tpl-mode "tpl-mode" "Major mode for editing CTemplate files." t)

; haml-mode
(add-to-list 'load-path "~/sandbox/haml/extra/")
(require 'haml-mode)
(require 'sass-mode)


;; http://wiki.github.com/bard/mozrepl/emacs-integration
(setq load-path (append load-path '("~/sandbox/mozrepl/chrome/content")))
(autoload 'moz-minor-mode "moz" "Mozilla Minor and Inferior Mozilla Modes" t)

(add-hook 'js2-mode-hook 'js2-custom-setup)
(defun js2-custom-setup ()
  (moz-minor-mode 1))

;; /Users/jwalsh/sandbox/js2-mode-read-only/build/js2-emacs23.elc
;; (setq load-path (append load-path '("~/sandbox/mozrepl/chrome/content")))
(add-hook 'js2-mode-hook 'whitespace-mode)

; (require 'ess-site)

; (require 'git)
; (require 'sr-speedbar)

;; http://github.com/tsgates/git-emacs
(setq load-path (append load-path '("~/sandbox/git-emacs")))
(require 'git-emacs)

(setq user-mail-address "jwalsh@classmates.com")
(setq user-login-name "jwalsh")

;; This should now be included in 23
;(autoload 'js2-mode' "js2" nil t)
; (add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))

(setq-default indent-tabs-mode nil)

(setq auto-mode-alist
      (cons '("\\.\\(xml\\|vm\\|jsp\\|jspf\\|xhtml\\|html\\)\\'" . nxml-mode)
            auto-mode-alist))


(defun jw/daily-status 
  ()
  "Grab the daily status created from cron for updates"
  ())

(defun jw-add-timestamp ()
  (when (looking-at-p "\\.org ")
    (forward-char 5)
    (insert (format-time-string "%Y%m%d %H:%M:%S"))
    (insert "\n\n")
    (previous-line)
    (message "Added timestamp")))

(add-hook 'find-file-hook 'jw-add-timestamp)

(setq org-directory "~/sandbox/site/status/")
(setq org-default-notes-file "~/sandbox/site/status/.notes.org")

 (setq org-default-notes-file (concat org-directory "/notes.org"))
(define-key global-map "\C-cc" 'org-capture)


;; (setq remember-annotation-functions '(org-remember-annotation))
;; (setq remember-handler-functions '(org-remember-handler))
;; (add-hook 'remember-mode-hook 'org-remember-apply-template)

;; Updates from http://steve.yegge.googlepages.com/effective-emacs
;;; 1.  Swap the caps-lock key
;;; 2.  Invoke M-x without the Alt key
(global-set-key "\C-x\C-m" 'execute-extended-command)
(global-set-key "\C-c\C-m" 'execute-extended-command)
;;; 3. Prefer backward-kill-word over Backspace
(global-set-key "\C-w" 'backward-kill-word)
(global-set-key "\C-x\C-k" 'kill-region)
(global-set-key "\C-c\C-k" 'kill-region)
;;; 4. Incremental search for Navigation
;;; 5. 
;;; 6.
;;; 7. Lose the UI
;;; 8.
;;; 9. Master Regular Expressions
(defalias 'qrr 'query-replace-regexp)

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(c-basic-offset 2)
 '(display-battery-mode t)
 '(display-time-mode t)
 '(font-use-system-font t)
 '(inhibit-startup-echo-area-message "jwalsh")
 '(inhibit-startup-screen t)
 '(initial-buffer-choice "~/")
 '(initial-scratch-message nil)
 '(js-indent-level 2)
 '(js2-basic-offset 2)
 '(org-mobile-directory "http://wal.sh/notes")
 '(tab-width 2))

(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'dired-find-alternate-file 'disabled nil)


(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(default ((t (:inherit nil :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 83 :width normal :foundry "unknown" :family "Inconsolata")))))
(put 'narrow-to-region 'disabled nil)
(put 'set-goal-column 'disabled nil)