emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* PATCH: include in-progress/started todos into daily agenda
@ 2007-09-26 20:50 Max Mikhanosha
  2007-09-27  1:33 ` Carsten Dominik
                   ` (2 more replies)
  0 siblings, 3 replies; 9+ messages in thread
From: Max Mikhanosha @ 2007-09-26 20:50 UTC (permalink / raw)
  To: emacs-orgmode

I had always used the day/weekly/mothly agenda vs the searchable
agenda separately and sometimes missed things because they were in one
list but not another.  For example when looking into a tags based
agenda for :computer, I may have missed some other item that was
scheduled for today but not tagged with computer, and via versa.

The method described in the post titled "Not using GTD" post, where
only the daily agenda is the primary agenda used solves this problem,
but I don't like to schedule/reschedule my items all the time. 

So inspired by the "Not using GTD" post, proposed patch allows
specifying a TODO type that would always be included into daily
agenda on a current day, as if it was scheduled.

So one can just mark items that need to be worked on doing the day as
lets say "INPROGRESS" and they would stay in the daily agenda
alongside/intermixed with the items scheduled for today until you
close them. If you like to postpone the item, you put it as TODO
again, and it would disappear.

Proposed patch is as plain text below, feel free to rewrite/change 
as the method I've used may not have been optimal.

Regards,
  Max

diff -rp -x '*.orig' -x '*.elc' -x '*~' org-5.10a.orig/org.el org-5.10a/org.el
*** org-5.10a.orig/org.el	Wed Sep 26 13:33:20 2007
--- org-5.10a/org.el	Wed Sep 26 16:33:52 2007
*************** When nil, only the days which actually h
*** 2323,2328 ****
--- 2323,2342 ----
    :group 'org-agenda-daily/weekly
    :type 'boolean)
  
+ (defcustom org-agenda-show-inprogress-todos nil
+   "Non-nil means, include the TODO's of the type specified by
+ `org-inprogress-todos' into the daily agenda."
+   :group 'org-agenda-daily/weekly
+   :type 'boolean)
+ 
+ (defcustom org-inprogress-todos "INPROGRESS"
+   "Specifies TODO type that would be automatically included into
+ the daily agenda when `org-agenda-show-inprogress-todos' is set.
+ You can specify more then one value separating them with |, for
+ example INPROGRESS|STARTED"
+   :group 'org-agenda-daily/weekly
+   :type 'string)
+ 
  (defcustom org-agenda-format-date 'org-agenda-format-date-aligned
    "Format string for displaying dates in the agenda.
  Used by the daily/weekly agenda and by the timeline.  This should be
*************** NDAYS defaults to `org-agenda-ndays'."
*** 18056,18062 ****
  		    (- sd (+ (if (< d 0) 7 0) d)))))
  	 (day-numbers (list start))
  	 (inhibit-redisplay (not debug-on-error))
! 	 s e rtn rtnall file date d start-pos end-pos todayp nd)
      (setq org-agenda-redo-command
  	  (list 'org-agenda-list (list 'quote include-all) start-day ndays))
      ;; Make the list of days
--- 18070,18077 ----
  		    (- sd (+ (if (< d 0) 7 0) d)))))
  	 (day-numbers (list start))
  	 (inhibit-redisplay (not debug-on-error))
! 	 s e rtn rtnall file date d start-pos end-pos todayp nd
!          args)
      (setq org-agenda-redo-command
  	  (list 'org-agenda-list (list 'quote include-all) start-day ndays))
      ;; Make the list of days
*************** NDAYS defaults to `org-agenda-ndays'."
*** 18102,18117 ****
  	    (setq end-pos (point))))
        (setq files thefiles
  	    rtnall nil)
        (while (setq file (pop files))
  	(catch 'nextfile
  	  (org-check-agenda-file file)
! 	  (if org-agenda-show-log
! 	      (setq rtn (org-agenda-get-day-entries
! 			 file date
! 			 :deadline :scheduled :timestamp :sexp :closed))
! 	    (setq rtn (org-agenda-get-day-entries
! 		       file date
! 		       :deadline :scheduled :sexp :timestamp)))
  	  (setq rtnall (append rtnall rtn))))
        (if org-agenda-include-diary
  	  (progn
--- 18117,18132 ----
  	    (setq end-pos (point))))
        (setq files thefiles
  	    rtnall nil)
+       (setq args '(:deadline :scheduled :timestamp :sexp))
+       (when org-agenda-show-log
+         (push :closed args)) 
+       (when org-agenda-show-inprogress-todos
+         (push :inprogress args))
        (while (setq file (pop files))
  	(catch 'nextfile
  	  (org-check-agenda-file file)
!           (setq rtn (apply 'org-agenda-get-day-entries
!                            file date args))
  	  (setq rtnall (append rtnall rtn))))
        (if org-agenda-include-diary
  	  (progn
*************** the documentation of `org-diary'."
*** 18606,18611 ****
--- 18621,18632 ----
  	      ;; The way we repeatedly append to `results' makes it O(n^2) :-(
  	      (while (setq arg (pop args))
  		(cond
+ 		 ((and (eq arg :inprogress)
+ 		       (equal date (calendar-current-date)))
+ 		  (let ((org-select-this-todo-keyword
+                          org-inprogress-todos))
+                     (setq rtn (org-agenda-get-todos))
+                     (setq results (append results rtn))))
  		 ((and (eq arg :todo)
  		       (equal date (calendar-current-date)))
  		  (setq rtn (org-agenda-get-todos))

^ permalink raw reply	[flat|nested] 9+ messages in thread

end of thread, other threads:[~2007-10-09 19:52 UTC | newest]

Thread overview: 9+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2007-09-26 20:50 PATCH: include in-progress/started todos into daily agenda Max Mikhanosha
2007-09-27  1:33 ` Carsten Dominik
2007-09-27 14:33 ` Max Mikhanosha
2007-09-27 15:18   ` Carsten Dominik
2007-09-27 16:00     ` Max Mikhanosha
2007-09-27 20:49       ` Bastien
2007-10-09 16:09 ` Carsten Dominik
2007-10-09 19:18   ` Max Mikhanosha
2007-10-09 20:52     ` Bastien

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).