ADD routine blocks in agenda view
This commit is contained in:
parent
3daa036c04
commit
da2d7611e2
30
etc/conf.org
30
etc/conf.org
|
@ -1933,12 +1933,16 @@ Also here are the properties for repeated tasks and a few others (see comments i
|
||||||
;; defines a goal
|
;; defines a goal
|
||||||
"GOAL"
|
"GOAL"
|
||||||
|
|
||||||
|
"X-ROUTINE"
|
||||||
|
;; for sorting routines in the agenda
|
||||||
|
|
||||||
;; date of header creation
|
;; date of header creation
|
||||||
"CREATED"))
|
"CREATED"))
|
||||||
|
|
||||||
(setq org-global-properties
|
(setq org-global-properties
|
||||||
'(("PARENT_TYPE_ALL" . "periodical iterator")
|
'(("PARENT_TYPE_ALL" . "periodical iterator")
|
||||||
("Effort_ALL" . "0:05 0:15 0:30 1:00 1:30 2:00 3:00 4:00 5:00 6:00"))
|
("Effort_ALL" . "0:05 0:15 0:30 1:00 1:30 2:00 3:00 4:00 5:00 6:00")
|
||||||
|
("X-ROUTINE" . "morning evening"))
|
||||||
|
|
||||||
org-use-property-inheritance
|
org-use-property-inheritance
|
||||||
'("PARENT_TYPE" "TIME_SHIFT"))
|
'("PARENT_TYPE" "TIME_SHIFT"))
|
||||||
|
@ -2880,7 +2884,7 @@ This is meant to be used in `org-super-agenda-groups'. For each item,
|
||||||
the returned function will navigate from the agenda buffer to the
|
the returned function will navigate from the agenda buffer to the
|
||||||
original org entry before executing BODY."
|
original org entry before executing BODY."
|
||||||
`(lambda (item)
|
`(lambda (item)
|
||||||
(let ((marker (get-text-property 1 'org-marker item)))
|
(-when-let (marker (get-text-property 1 'org-marker item))
|
||||||
(with-current-buffer (marker-buffer marker)
|
(with-current-buffer (marker-buffer marker)
|
||||||
(goto-char marker)
|
(goto-char marker)
|
||||||
,@body))))
|
,@body))))
|
||||||
|
@ -2910,10 +2914,24 @@ original org entry before executing BODY."
|
||||||
org-agenda-custom-commands
|
org-agenda-custom-commands
|
||||||
`(("a"
|
`(("a"
|
||||||
"Calendar View"
|
"Calendar View"
|
||||||
((agenda "" ((org-agenda-skip-function
|
((agenda
|
||||||
'(org-x-skip-headings-with-tags
|
""
|
||||||
'("NA" "%maybe" "REFILE")))
|
((org-agenda-skip-function
|
||||||
(org-agenda-include-diary t)))))
|
'(org-x-skip-headings-with-tags
|
||||||
|
'("NA" "%maybe" "REFILE")))
|
||||||
|
(org-agenda-include-diary t)
|
||||||
|
(org-super-agenda-groups
|
||||||
|
`((:name "Morning routine"
|
||||||
|
:pred ,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(equal "morning" (org-entry-get nil "X-ROUTINE")))
|
||||||
|
:order 0)
|
||||||
|
(:name "Evening routine"
|
||||||
|
:pred ,(nd/org-x-mk-super-agenda-pred
|
||||||
|
(equal "evening" (org-entry-get nil "X-ROUTINE")))
|
||||||
|
:order 3)
|
||||||
|
(:name "Calendar"
|
||||||
|
:time-grid t
|
||||||
|
:order 1)))))))
|
||||||
|
|
||||||
("t"
|
("t"
|
||||||
"Task View"
|
"Task View"
|
||||||
|
|
Loading…
Reference in New Issue