(require 'org-install)

; initialize these to empty lists so config files we reference can use 'add-to-list',
; rather than replacing the whole list and possibly trampling on another config file.
(setq org-agenda-files ())
(setq org-capture-templates ())
(setq org-tag-faces ())

(load-user-file "org-mode.local.el")

(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(add-to-list 'auto-mode-alist `(,(expand-file-name "~/org/") . org-mode))

(define-key mode-specific-map [?a] 'org-agenda)

(eval-after-load "org"
  '(progn
     (define-prefix-command 'org-todo-state-map)

     (define-key org-mode-map "\C-cx" 'org-todo-state-map)

     (define-key org-todo-state-map "x" #'(lambda nil (interactive) (org-todo "CANCELLED")))
     (define-key org-todo-state-map "d" #'(lambda nil (interactive) (org-todo "DONE")))
     (define-key org-todo-state-map "f" #'(lambda nil (interactive) (org-todo "DEFERRED")))
     (define-key org-todo-state-map "l" #'(lambda nil (interactive) (org-todo "DELEGATED")))
     (define-key org-todo-state-map "s" #'(lambda nil (interactive) (org-todo "STARTED")))
     (define-key org-todo-state-map "w" #'(lambda nil (interactive) (org-todo "WAITING")))))

(define-key global-map "\C-cc" 'org-capture)

(custom-set-variables
 '(org-agenda-custom-commands
   '(("h" "Home agenda"
      ((agenda "")
       (alltodo ""
		((org-agenda-skip-function '(org-agenda-skip-if nil '(scheduled deadline)))
		 (org-agenda-overriding-header "Eventual TODO items:"))))
      ((org-agenda-tag-filter-preset '("+home"))))
     ("j" "Work agenda"
      ((agenda "")
       (alltodo ""
		((org-agenda-skip-function '(org-agenda-skip-if nil '(scheduled deadline)))
		 (org-agenda-overriding-header "Eventual TODO items:"))))
      ((org-agenda-tag-filter-preset '("-home"))))
     ("w" todo "WAITING" nil)
     ("W" agenda "" ((org-agenda-ndays 21)))
     ("A" agenda ""
      ((org-agenda-skip-function
	(lambda nil
	  (org-agenda-skip-entry-if
	   (quote notregexp)
	   "\\=.*\\[#!\\]")))
       (org-agenda-ndays 1)
       (org-agenda-overriding-header "Today's Priority #A tasks: ")))
     ("u" alltodo ""
      ((org-agenda-skip-function
	(lambda nil
	  (org-agenda-skip-entry-if
	   (quote scheduled)
	   (quote deadline)
	   (quote regexp)
	   "
]+>"))
       (org-agenda-overriding-header "Unscheduled TODO entries: "))))))
 '(org-agenda-dim-blocked-tasks 'invisible)
 '(org-agenda-ndays 14)
 '(org-agenda-show-all-dates t)
 '(org-agenda-skip-deadline-if-done t)
 '(org-agenda-skip-deadline-prewarning-if-scheduled t)
 '(org-agenda-skip-scheduled-if-done t)
 '(org-agenda-start-on-weekday nil)
 '(org-deadline-warning-days 14)
 '(org-enforce-todo-dependencies t)
 '(org-fast-tag-selection-single-key (quote expert))
 '(org-return-follows-link t)
 '(org-reverse-note-order t))