;; Based on http://doc.norang.ca/org-mode.html

(require 'org-install)

(add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\)$" . org-mode))

;; Make TAB the yas trigger key in the org-mode-hook and turn on flyspell mode

(add-hook 'org-mode-hook

          (lambda ()

            ;; yasnippet

            (make-variable-buffer-local 'yas/trigger-key)

            (setq yas/trigger-key [tab])

            (define-key yas/keymap [tab] 'yas/next-field-group)

            ;; flyspell mode to spell check everywhere

            (flyspell-mode 1)))

(global-set-key "\C-cl" 'org-store-link)

(global-set-key "\C-ca" 'org-agenda)

(global-set-key "\C-cb" 'org-iswitchb)

(setq org-agenda-files (quote ("~/var/org/refile.org" "~/var/org/todo.org"

                               "~/var/org/courtside.org")))

(setq org-todo-keywords (quote ((sequence "TODO(t)" "STARTED(s!)" "DELEGATED(D!)"  "|" "DONE(d!/!)")

 (sequence "SOMEDAY(S!)" "OPEN(O@)" "|" "CANCELLED(c@/!)" )

 )))

(setq org-todo-keyword-faces (quote (("TODO" :foreground "red" :weight bold)

 ("STARTED" :foreground "blue" :weight bold)

 ("DONE" :foreground "forest green" :weight bold)

 ("WAITING" :foreground "orange" :weight bold)

 ("SOMEDAY" :foreground "magenta" :weight bold)

 ("CANCELLED" :foreground "forest green" :weight bold)

 ("QUOTE" :foreground "red" :weight bold)

 ("QUOTED" :foreground "magenta" :weight bold)

 ("APPROVED" :foreground "forest green" :weight bold)

 ("EXPIRED" :foreground "forest green" :weight bold)

 ("REJECTED" :foreground "forest green" :weight bold)

 ("DELEGATED" :foreground "orange" :weight bold)

 ("OPEN" :foreground "blue" :weight bold))))

(setq org-use-fast-todo-selection t)

(setq org-todo-state-tags-triggers

      (quote (("CANCELLED" ("CANCELLED" . t))

              ("WAITING" ("WAITING" . t) ("NEXT"))

              ("SOMEDAY" ("WAITING" . t))

              (done ("NEXT") ("WAITING"))

              ("TODO" ("WAITING") ("CANCELLED") ("NEXT"))

              ("DONE" ("WAITING") ("CANCELLED") ("NEXT")))))

(setq org-clock-in-switch-to-state "STARTED")

(setq org-default-notes-file "~/var/org/refile.org")

;;;  Load Org Remember Stuff

(require 'remember)

(org-remember-insinuate)

;; Start clock if a remember buffer includes :CLOCK-IN:

(add-hook 'remember-mode-hook 'bh/start-clock-if-needed 'append)

(defun bh/start-clock-if-needed ()

  (save-excursion

    (goto-char (point-min))

    (when (re-search-forward " *:CLOCK-IN: *" nil t)

      (replace-match "")

      (org-clock-in))))

;; I use C-M-r to start org-remember

(global-set-key (kbd "C-M-r") 'org-remember)

;; Keep clocks running

(setq org-remember-clock-out-on-exit nil)

;; C-c C-c stores the note immediately

(setq org-remember-store-without-prompt t)

(setq org-log-done t)

;; I don't use this -- but set it in case I forget to specify a location in a future template

(setq org-remember-default-headline "Tasks")

;; 3 remember templates for TODO tasks, Notes, and Phone calls

(setq org-remember-templates (quote (("todo" ?t "* TODO %?\n  %u\n  %a" nil bottom nil)

                                     ("note" ?n "* %?                                        :NOTE:\n  %u\n  %a" nil bottom nil)

                                     ("phone" ?p "* PHONE %:name - %:company -                :PHONE:\n  Contact Info: %a\n  %u\n  :CLOCK-IN:\n  %?" nil bottom nil)

                                     ("appointment" ?a "* %?\n  %U" "~/var/org/todo.org" "Appointments" nil)

                                     ("org-protocol" ?w "* TODO Review %c%!  :NEXT:\n  %U\n  :PROPERTIES:\n  :Effort: 0:10\n  :END:" nil bottom nil))))

(provide 'ag-org)