currently debugging agenda commands

This commit is contained in:
petrucci4prez 2018-04-05 15:39:04 -04:00
parent 2166b24723
commit 8269f17746
2 changed files with 20 additions and 20 deletions

20
conf.el
View File

@ -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/!"

View File

@ -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/!"