Re: TODO state tracking in org-mode

[Bernt Hansen <bernt@norang.ca>]

Manish <mailtomanish.sharma@gmail.com> writes:

> It would be even better if you could also share your remember
> templates setup and OS and version information.

Here's a bunch of org-related settings.

OS version is Linux (Debian unstable = sid)

GNU Emacs 22.1.1 (i486-pc-linux-gnu, X toolkit, Xaw3d scroll bars) of 2007-12-15 on noname, modified by Debian
Org-mode version 5.23a++

My remember templates are pretty straight forward and taken from a
previous post on the list.  Here's a whole pile of settings from my
.emacs file...

(add-hook 'remember-mode-hook 'my-start-clock-if-needed)
(defun my-start-clock-if-needed ()
  (save-excursion
    (goto-char (point-min))
    (when (re-search-forward ":CLOCK-IN:" nil t)
       (replace-match "")
       (org-clock-in))))

(defun my-org-todo ()
  (interactive)
  (org-narrow-to-subtree)
  (org-show-todo-tree nil)
  (widen))

;; A bunch of key bindings for convenience
;;
(global-set-key (kbd "C-<f5>") 'compile)
(global-set-key (kbd "<f5>") 'my-org-todo)
(global-set-key (kbd "<f6>") 'org-toggle-archive-tag)
(global-set-key (kbd "<f7>") 'set-truncate-lines)
(global-set-key (kbd "C-<f8>") (lambda () (interactive) (find-file "~/org/todo.org")))
(global-set-key (kbd "<f8>") 'org-cycle-agenda-files)
(global-set-key (kbd "S-<f8>") (lambda () (interactive) (switch-to-buffer "*terminal*")))
(global-set-key (kbd "<f9> b") 'bbdb)
(global-set-key (kbd "<f9> c") 'calendar)
(global-set-key (kbd "<f9> f") 'boxquote-insert-file)
(global-set-key (kbd "<f9> g") 'gnus)
(global-set-key (kbd "<f9> M-g") 'gnus-unplugged)
(global-set-key (kbd "<f9> o") 'org-occur)
(global-set-key (kbd "<f9> p") 'my-phone-call)
(global-set-key (kbd "<f9> r") 'boxquote-region)
(global-set-key (kbd "<f9> u") (lambda () (interactive) (untabify (point-min) (point-max))))
(global-set-key (kbd "<f9> v") 'visible-mode)
(global-set-key (kbd "C-<f9>") 'previous-buffer)
(global-set-key (kbd "C-M-<f9>") 'org-narrow-to-subtree)
(global-set-key (kbd "C-M-<f10>") 'widen)
(global-set-key (kbd "C-<f10>") 'next-buffer)
(global-set-key (kbd "<f12>") 'org-agenda)
(global-set-key (kbd "C-<f12>") 'org-clock-goto)
(global-set-key (kbd "C-M-r") 'org-remember)

(require 'remember)
;
(add-hook 'remember-mode-hook 'org-remember-apply-template)
;
(setq my-phone-remember-templates
      (quote (("client1" ?c "* Phone Call - %:name - %:company           :phone:\n  :CLOCK-IN:%?" "~/org/client1.org" "Tasks")
	      ("client2" ?d "* Phone Call - %:name - %:company           :phone:\n  :CLOCK-IN:%?" "~/org/client2.org" "Tasks")
	      ("norang" ?n "* Phone Call - %:name - %:company           :phone:\n  :CLOCK-IN:%?" "~/org/norang.org" "Tasks")
	      ("phone call" ?p "* Phone Call - %? -            :phone:\n  :CLOCK-IN:" "~/org/todo.org" "Tasks"))))

(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.
 '(org-agenda-custom-commands (quote (("W" "Waiting Tasks" tags "/!WAITING" nil) ("n" "Next Tasks" tags "/!NEXT" nil) ("N" "Next Tasks - No Specified Duration" tags "Effort={^$}/!NEXT" nil) ("h" "Next Home Tasks" tags "@home/!NEXT" nil) ("w" "Next Work Tasks" tags "@work/!NEXT" nil) ("E" "Errands To Run" tags "@errand/!-DONE-CANCELLED" nil) ("S" "Stuff To Do Someday" tags "/!SOMEDAY" nil) ("x" "New Tasks" tags-todo "newtask" nil) ("o" "Ongoing Tasks" tags "/!ONGOING" nil))))
 '(org-agenda-files (quote ("~/org/todo.org" "~/org/client1.org" "~/org/client2.org" "~/org/norang.org" "~/org/petproject.org" "~/org/specproj.org")))
 '(org-agenda-show-all-dates t)
 '(org-agenda-skip-deadline-if-done t)
 '(org-agenda-skip-scheduled-if-done t)
 '(org-agenda-start-on-weekday nil)
 '(org-deadline-warning-days 14)
 '(org-fast-tag-selection-single-key (quote expert))
 '(org-remember-store-without-prompt t)
 '(org-remember-templates (quote (("todo" 116 "* TODO %?
  %u" "~/org/todo.org" "Tasks") ("client1" 99 "* TODO %?
  %u" "~/org/client1.org" "Tasks") ("client2" 100 "* TODO %?
  %u" "~/org/client2.org" "Tasks") ("norang" 110 "* TODO %?
  %u" "~/org/norang.org" "Tasks") ("petproject" 98 "* TODO %?
  %u" "~/org/petproject.org" "Tasks"))))
 '(org-reverse-note-order t)
 '(org-stuck-projects (quote ("LEVEL=2-notaproject-phone/!-DONE-CANCELLED-ONGOING-SOMEDAY-WAITING" ("NEXT") nil "")))
 '(outline-regexp "\\(?:\\*+\\|=+ \\)")
 '(remember-annotation-functions (quote (org-remember-annotation)))
 '(remember-handler-functions (quote (org-remember-handler)))
 '(safe-local-variable-values (quote ((org-drawers quote ("PROPERTIES" "HIDE"))))))
(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.
 )

-Bernt