Re: [Orgmode] PATCH: include in-progress/started todos into daily agenda
Hi Max, after thinking this through, I believe it is more consistent not to implement your patch, because for my feeling it changes the logic of agenda and todo lists in a slightly confusing way. Instead, I will try to invite you to keep your INPROGRESS items scheduled, by implementing the following change (proposed by John): In 5.12 there will be a new variable `org-agenda-scheduled-leaders' that determines the leading string of a scheduled item in the agenda display. If you customize (setq org-agenda-scheduled-leaders '(Start: Cont: )) then your INPROGRESS item will look like this: Work: Start: TODO This task is scheduled for today Work: Cont: INPROGRESS task was scheduled in past, not DONE. Maybe less distressing than Sched: 15x ? Many thanks for your input, great that you produced a patch, sorry for not using it. - Carsten On Sep 26, 2007, at 22:50, Max Mikhanosha wrote: 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.elWed 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
Re: [Orgmode] PATCH: include in-progress/started todos into daily agenda
Hi Dominik, Carsten Dominik wrote: In 5.12 there will be a new variable `org-agenda-scheduled-leaders' that determines the leading string of a scheduled item in the agenda display. If you customize (setq org-agenda-scheduled-leaders '(Start: Cont: )) then your INPROGRESS item will look like this: Work: Start: TODO This task is scheduled for today Work: Cont: INPROGRESS task was scheduled in past, not DONE. Maybe less distressing than Sched: 15x ? The above will probably work for me, I have to try it for a few days. To me the INPROGRESS thing is also about efficiency, as if I lets say have to put something aside, I just flip it back into TODO state with 1 t from agenda, but if I have it scheduled, to unschedule it I have to go to the item and remove the SCHEDULED line. Someone recently asked on a list for a command to unschedule a TODO, I would like to join this request. Many thanks for your input, great that you produced a patch, sorry for not using it. Its no problem, I'm posting posting patches mostly to generate discussion / give back to the google it first community (ppl who solve most of their problems by googling it and finding someone already posted a fix/patch/idea for it on some mailing list). Regards, Max On Sep 26, 2007, at 22:50, Max Mikhanosha wrote: 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.elWed 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 !
[Orgmode] PATCH: include in-progress/started todos into daily agenda
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.elWed 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
Re: [Orgmode] PATCH: include in-progress/started todos into daily agenda
Hi Max, thanks for this. Before looking deeper into it: Have you considered a block agenda as an alternative? That will list the TODO matches in a separate list, but in the *same* agenda buffer. - Carsten On Sep 26, 2007, at 22:50, Max Mikhanosha wrote: 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.elWed 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
