currently debugging agenda commands
This commit is contained in:
parent
2166b24723
commit
8269f17746
20
conf.el
20
conf.el
|
@ -523,14 +523,14 @@ Using this scheme, we simply compare the magnitude of the statuscodes"
|
||||||
(message "%s project view in agenda" (if nd/agenda-project-view "Showing" "Hiding")))
|
(message "%s project view in agenda" (if nd/agenda-project-view "Showing" "Hiding")))
|
||||||
|
|
||||||
(defmacro nd/agenda-base-task-command (header skip-fun)
|
(defmacro nd/agenda-base-task-command (header skip-fun)
|
||||||
`(tags-todo "-NA-REFILE/!"
|
`(list tags-todo "-NA-REFILE/!"
|
||||||
((org-agenda-overriding-header ,header)
|
((org-agenda-overriding-header ,header)
|
||||||
(org-agenda-skip-function ,skip-fun)
|
(org-agenda-skip-function ,skip-fun)
|
||||||
(org-agenda-todo-ignore-with-date 'all)
|
(org-agenda-todo-ignore-with-date 'all)
|
||||||
(org-agenda-sorting-strategy '(category-keep)))))
|
(org-agenda-sorting-strategy '(category-keep)))))
|
||||||
|
|
||||||
(defmacro nd/agenda-base-project-command (header skip-fun)
|
(defmacro nd/agenda-base-project-command (header skip-fun)
|
||||||
`(tags-todo "-NA-REFILE/!"
|
`(list tags-todo "-NA-REFILE/!"
|
||||||
((org-agenda-overriding-header ,header)
|
((org-agenda-overriding-header ,header)
|
||||||
(org-agenda-skip-function ,skip-fun)
|
(org-agenda-skip-function ,skip-fun)
|
||||||
(org-agenda-sorting-strategy '(category-keep)))))
|
(org-agenda-sorting-strategy '(category-keep)))))
|
||||||
|
@ -564,14 +564,14 @@ Using this scheme, we simply compare the magnitude of the statuscodes"
|
||||||
|
|
||||||
(setq org-agenda-tags-todo-honor-ignore-options t)
|
(setq org-agenda-tags-todo-honor-ignore-options t)
|
||||||
(setq org-agenda-custom-commands
|
(setq org-agenda-custom-commands
|
||||||
`((" " "Agenda"
|
'((" " "Agenda"
|
||||||
((agenda "" nil)
|
((if t '(agenda "" nil)))
|
||||||
(tags "REFILE"
|
;; (tags "REFILE"
|
||||||
((org-agenda-overriding-header (if nd/agenda-project-view "Tasks to Refile" "Herro"))
|
;; ((org-agenda-overriding-header (if nd/agenda-project-view "Tasks to Refile" "Herro"))
|
||||||
(org-tags-match-list-sublevels nil)))
|
;; (org-tags-match-list-sublevels nil)))
|
||||||
(if nd/agenda-project-view
|
;; (if nd/agenda-project-view
|
||||||
,(macroexpand '(nd/agenda-base-task-command "Atomic Tasks" 'nd/skip-non-atomic-tasks))
|
;; ,(macroexpand '(nd/agenda-base-task-command "Atomic Tasks" 'nd/skip-non-atomic-tasks))
|
||||||
,(macroexpand '(nd/agenda-base-project-command "Active Projects" 'nd/skip-non-active-projects))))
|
;; ,(macroexpand '(nd/agenda-base-project-command "Active Projects" 'nd/skip-non-active-projects))))
|
||||||
;;(nd/agenda-base-task-command "Project next tasks" 'nd/skip-non-next-project-tasks))
|
;;(nd/agenda-base-task-command "Project next tasks" 'nd/skip-non-next-project-tasks))
|
||||||
;;(if nd/agenda-project-view nd/agenda-project-commands nd/agenda-task-commands))
|
;;(if nd/agenda-project-view nd/agenda-project-commands nd/agenda-task-commands))
|
||||||
;; (tags-todo "-NA-REFILE/!"
|
;; (tags-todo "-NA-REFILE/!"
|
||||||
|
|
20
conf.org
20
conf.org
|
@ -717,14 +717,14 @@ tags in the custom commands section but I find this easier to maintain and possi
|
||||||
(message "%s project view in agenda" (if nd/agenda-project-view "Showing" "Hiding")))
|
(message "%s project view in agenda" (if nd/agenda-project-view "Showing" "Hiding")))
|
||||||
|
|
||||||
(defmacro nd/agenda-base-task-command (header skip-fun)
|
(defmacro nd/agenda-base-task-command (header skip-fun)
|
||||||
`(tags-todo "-NA-REFILE/!"
|
`(list tags-todo "-NA-REFILE/!"
|
||||||
((org-agenda-overriding-header ,header)
|
((org-agenda-overriding-header ,header)
|
||||||
(org-agenda-skip-function ,skip-fun)
|
(org-agenda-skip-function ,skip-fun)
|
||||||
(org-agenda-todo-ignore-with-date 'all)
|
(org-agenda-todo-ignore-with-date 'all)
|
||||||
(org-agenda-sorting-strategy '(category-keep)))))
|
(org-agenda-sorting-strategy '(category-keep)))))
|
||||||
|
|
||||||
(defmacro nd/agenda-base-project-command (header skip-fun)
|
(defmacro nd/agenda-base-project-command (header skip-fun)
|
||||||
`(tags-todo "-NA-REFILE/!"
|
`(list tags-todo "-NA-REFILE/!"
|
||||||
((org-agenda-overriding-header ,header)
|
((org-agenda-overriding-header ,header)
|
||||||
(org-agenda-skip-function ,skip-fun)
|
(org-agenda-skip-function ,skip-fun)
|
||||||
(org-agenda-sorting-strategy '(category-keep)))))
|
(org-agenda-sorting-strategy '(category-keep)))))
|
||||||
|
@ -760,14 +760,14 @@ tags in the custom commands section but I find this easier to maintain and possi
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(setq org-agenda-tags-todo-honor-ignore-options t)
|
(setq org-agenda-tags-todo-honor-ignore-options t)
|
||||||
(setq org-agenda-custom-commands
|
(setq org-agenda-custom-commands
|
||||||
`((" " "Agenda"
|
'((" " "Agenda"
|
||||||
((agenda "" nil)
|
((if t '(agenda "" nil)))
|
||||||
(tags "REFILE"
|
;; (tags "REFILE"
|
||||||
((org-agenda-overriding-header (if nd/agenda-project-view "Tasks to Refile" "Herro"))
|
;; ((org-agenda-overriding-header (if nd/agenda-project-view "Tasks to Refile" "Herro"))
|
||||||
(org-tags-match-list-sublevels nil)))
|
;; (org-tags-match-list-sublevels nil)))
|
||||||
(if nd/agenda-project-view
|
;; (if nd/agenda-project-view
|
||||||
,(macroexpand '(nd/agenda-base-task-command "Atomic Tasks" 'nd/skip-non-atomic-tasks))
|
;; ,(macroexpand '(nd/agenda-base-task-command "Atomic Tasks" 'nd/skip-non-atomic-tasks))
|
||||||
,(macroexpand '(nd/agenda-base-project-command "Active Projects" 'nd/skip-non-active-projects))))
|
;; ,(macroexpand '(nd/agenda-base-project-command "Active Projects" 'nd/skip-non-active-projects))))
|
||||||
;;(nd/agenda-base-task-command "Project next tasks" 'nd/skip-non-next-project-tasks))
|
;;(nd/agenda-base-task-command "Project next tasks" 'nd/skip-non-next-project-tasks))
|
||||||
;;(if nd/agenda-project-view nd/agenda-project-commands nd/agenda-task-commands))
|
;;(if nd/agenda-project-view nd/agenda-project-commands nd/agenda-task-commands))
|
||||||
;; (tags-todo "-NA-REFILE/!"
|
;; (tags-todo "-NA-REFILE/!"
|
||||||
|
|
Loading…
Reference in New Issue