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