completed skip functions and toggle state
This commit is contained in:
petrucci4prez
parent
1702b022af
commit
3aad920ff1
131
conf.el
131
conf.el
|
|
@ -324,8 +324,9 @@
|
||||||
(setq org-agenda-dim-blocked-tasks nil)
|
(setq org-agenda-dim-blocked-tasks nil)
|
||||||
(setq org-agenda-compact-blocks t)
|
(setq org-agenda-compact-blocks t)
|
||||||
|
|
||||||
(setq org-agenda-span 'day)
|
(evil-define-key 'motion org-agenda-mode-map "T" 'nd/toggle-project-toplevel-display)
|
||||||
|
|
||||||
|
(setq org-agenda-span 'day)
|
||||||
(setq org-agenda-time-grid (quote ((daily today remove-match)
|
(setq org-agenda-time-grid (quote ((daily today remove-match)
|
||||||
#("----------------" 0 16 (org-heading t))
|
#("----------------" 0 16 (org-heading t))
|
||||||
(0900 1100 1300 1500 1700))))
|
(0900 1100 1300 1500 1700))))
|
||||||
|
|
@ -435,6 +436,7 @@ function is not meant to be called independently."
|
||||||
20: held
|
20: held
|
||||||
30: waiting
|
30: waiting
|
||||||
40: active
|
40: active
|
||||||
|
50: invalid???
|
||||||
|
|
||||||
This function works on an assumed order of precendence:
|
This function works on an assumed order of precendence:
|
||||||
- we start by assuming all projects as complete (eg only DONE and CANCELLED)
|
- we start by assuming all projects as complete (eg only DONE and CANCELLED)
|
||||||
|
|
@ -460,11 +462,11 @@ Using this scheme, we simply compare the magnitude of the statuscodes"
|
||||||
((equal keyword "TODO") (nd/descend-into-project))
|
((equal keyword "TODO") (nd/descend-into-project))
|
||||||
;; NOTE: all projects are assumed to only have TODO, HOLD, CANCELLED, or DONE, hence the three possible statuscodes
|
;; NOTE: all projects are assumed to only have TODO, HOLD, CANCELLED, or DONE, hence the three possible statuscodes
|
||||||
(t 0))
|
(t 0))
|
||||||
(cond ((equal keyword "TODO") 10)
|
(cond ((equal keyword "HOLD") 20)
|
||||||
((equal keyword "HOLD") 20)
|
|
||||||
((equal keyword "WAITING") 30)
|
((equal keyword "WAITING") 30)
|
||||||
((equal keyword "NEXT") 40)
|
((equal keyword "NEXT") 40)
|
||||||
((nd/is-scheduled-heading-p) 40)
|
((and (equal keyword "TODO") (nd/is-scheduled-heading-p)) 40)
|
||||||
|
((equal keyword "TODO") 10)
|
||||||
(t 0)))))
|
(t 0)))))
|
||||||
(if (> cur-state project-state)
|
(if (> cur-state project-state)
|
||||||
(setq project-state cur-state)))))
|
(setq project-state cur-state)))))
|
||||||
|
|
@ -481,6 +483,7 @@ Using this scheme, we simply compare the magnitude of the statuscodes"
|
||||||
((= statuscode (nd/descend-into-project)) keyword)))))
|
((= statuscode (nd/descend-into-project)) keyword)))))
|
||||||
|
|
||||||
;; NOTE: use save-restriction and widen if we ever actually use narrowing
|
;; NOTE: use save-restriction and widen if we ever actually use narrowing
|
||||||
|
;; tasks
|
||||||
(defun nd/skip-non-atomic-tasks ()
|
(defun nd/skip-non-atomic-tasks ()
|
||||||
(if (not (nd/is-atomic-task-p))
|
(if (not (nd/is-atomic-task-p))
|
||||||
(save-excursion (or (outline-next-heading) (point-max)))))
|
(save-excursion (or (outline-next-heading) (point-max)))))
|
||||||
|
|
@ -497,95 +500,65 @@ Using this scheme, we simply compare the magnitude of the statuscodes"
|
||||||
(if (not (equal (nd/is-project-task-p) "HOLD"))
|
(if (not (equal (nd/is-project-task-p) "HOLD"))
|
||||||
(save-excursion (or (outline-next-heading) (point-max)))))
|
(save-excursion (or (outline-next-heading) (point-max)))))
|
||||||
|
|
||||||
(defun nd/skip-non-stuck-projects ()
|
;; projects
|
||||||
(if (not (nd/is-project-status-p 10))
|
(defun nd/skip-projects-without-statuscode (statuscode)
|
||||||
|
(if (not (nd/is-project-status-p statuscode))
|
||||||
(save-excursion (or (outline-next-heading) (point-max)))))
|
(save-excursion (or (outline-next-heading) (point-max)))))
|
||||||
|
|
||||||
(defun nd/skip-non-held-projects ()
|
;; top-level projects
|
||||||
(if (not (nd/is-project-status-p 20))
|
(defun nd/skip-subprojects-without-statuscode (statuscode)
|
||||||
|
(if (or (nd/heading-has-parent) (not (nd/is-project-status-p statuscode)))
|
||||||
(save-excursion (or (outline-next-heading) (point-max)))))
|
(save-excursion (or (outline-next-heading) (point-max)))))
|
||||||
|
|
||||||
(defun nd/skip-non-waiting-projects ()
|
(defvar nd/agenda-limit-project-toplevel t
|
||||||
(if (not (nd/is-project-status-p 30))
|
"used to filter projects by all levels or top-level only")
|
||||||
(save-excursion (or (outline-next-heading) (point-max)))))
|
|
||||||
|
|
||||||
(defun nd/skip-non-active-projects ()
|
(defun nd/toggle-project-toplevel-display ()
|
||||||
(if (not (nd/is-project-status-p 40))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max)))))
|
|
||||||
|
|
||||||
(defvar nd/agenda-project-view t)
|
|
||||||
|
|
||||||
(defun nd/toggle-project-display ()
|
|
||||||
(interactive)
|
(interactive)
|
||||||
(setq nd/agenda-project-view (not nd/agenda-project-view))
|
(setq nd/agenda-limit-project-toplevel (not nd/agenda-limit-project-toplevel))
|
||||||
(when (equal major-mode 'org-agenda-mode)
|
(when (equal major-mode 'org-agenda-mode)
|
||||||
(org-agenda-redo))
|
(org-agenda-redo))
|
||||||
(message "%s project view in agenda" (if nd/agenda-project-view "Showing" "Hiding")))
|
(message "Showing %s project view in agenda" (if nd/agenda-limit-project-toplevel "toplevel" "complete")))
|
||||||
|
|
||||||
(defmacro nd/agenda-base-task-command (header skip-fun)
|
(defmacro nd/agenda-base-task-command (keyword skip-fun)
|
||||||
`(list tags-todo "-NA-REFILE/!"
|
"shorter syntax to define task agenda commands"
|
||||||
((org-agenda-overriding-header ,header)
|
`(tags-todo
|
||||||
(org-agenda-skip-function ,skip-fun)
|
"-NA-REFILE/!"
|
||||||
(org-agenda-todo-ignore-with-date 'all)
|
((org-agenda-overriding-header (concat ,keyword " Tasks"))
|
||||||
(org-agenda-sorting-strategy '(category-keep)))))
|
(org-agenda-skip-function ,skip-fun)
|
||||||
|
(org-agenda-todo-ignore-with-date 'all)
|
||||||
(defmacro nd/agenda-base-project-command (header skip-fun)
|
(org-agenda-sorting-strategy '(category-keep)))))
|
||||||
`(list tags-todo "-NA-REFILE/!"
|
|
||||||
((org-agenda-overriding-header ,header)
|
|
||||||
(org-agenda-skip-function ,skip-fun)
|
|
||||||
(org-agenda-sorting-strategy '(category-keep)))))
|
|
||||||
|
|
||||||
;; (defmacro nd/agenda-task-commands ()
|
(defmacro nd/agenda-base-project-command (keyword statuscode)
|
||||||
;; (apply #'values '((macroexpand '(nd/agenda-base-task-command "Project Next Tasks" 'nd/skip-non-next-project-task))
|
"shorter syntax to define project agenda commands"
|
||||||
;; (macroexpand '(nd/agenda-base-task-command "Atomic tasks" 'nd/skip-non-atomic-tasks)))))
|
`(tags-todo
|
||||||
|
"-NA-REFILE-ATOMIC/!"
|
||||||
;; (defvar nd/agenda-project-commands
|
((org-agenda-overriding-header (concat
|
||||||
;; (quote
|
(and nd/agenda-limit-project-toplevel "Toplevel ")
|
||||||
;; ((tags-todo "-NA-REFILE/!"
|
,keyword
|
||||||
;; ((org-agenda-overriding-header "Stuck Projects")
|
" Projects"))
|
||||||
;; (org-agenda-skip-function 'nd/skip-non-stuck-projects)
|
(org-agenda-skip-function (if nd/agenda-limit-project-toplevel
|
||||||
;; (org-agenda-sorting-strategy
|
'(nd/skip-subprojects-without-statuscode ,statuscode)
|
||||||
;; '(category-keep))))
|
'(nd/skip-projects-without-statuscode ,statuscode)))
|
||||||
;; (tags-todo "-NA-REFILE/!"
|
(org-agenda-sorting-strategy '(category-keep)))))
|
||||||
;; ((org-agenda-overriding-header "Held Projects")
|
|
||||||
;; (org-agenda-skip-function 'nd/skip-non-held-projects)
|
|
||||||
;; (org-agenda-sorting-strategy
|
|
||||||
;; '(category-keep))))
|
|
||||||
;; (tags-todo "-NA-REFILE/!"
|
|
||||||
;; ((org-agenda-overriding-header "Waiting Projects")
|
|
||||||
;; (org-agenda-skip-function 'nd/skip-non-waiting-projects)
|
|
||||||
;; (org-agenda-sorting-strategy
|
|
||||||
;; '(category-keep))))
|
|
||||||
;; (tags-todo "-NA-REFILE/!"
|
|
||||||
;; ((org-agenda-overriding-header "Active
|
|
||||||
;; (org-agenda-skip-function 'nd/skip-non-active-projects)
|
|
||||||
;; (org-agenda-sorting-strategy
|
|
||||||
;; '(category-keep)))))))
|
|
||||||
|
|
||||||
(setq org-agenda-tags-todo-honor-ignore-options t)
|
(setq org-agenda-tags-todo-honor-ignore-options t)
|
||||||
(setq testy 'tags)
|
|
||||||
(setq org-agenda-custom-commands
|
(setq org-agenda-custom-commands
|
||||||
`((" " "Agenda"
|
`(("t" "Task view"
|
||||||
((agenda "" nil)
|
((agenda "" nil)
|
||||||
(,testy "REFILE"
|
,(macroexpand '(nd/agenda-base-task-command "Next Project" 'nd/skip-non-next-project-tasks))
|
||||||
((org-agenda-overriding-header (if nd/agenda-project-view "Tasks to Refile" "Herro"))
|
,(macroexpand '(nd/agenda-base-task-command "Waiting Project" 'nd/skip-non-waiting-project-tasks))
|
||||||
(org-tags-match-list-sublevels nil))))
|
,(macroexpand '(nd/agenda-base-task-command "Atomic" 'nd/skip-non-atomic-tasks))
|
||||||
;; (if nd/agenda-project-view
|
,(macroexpand '(nd/agenda-base-task-command "Held Project" 'nd/skip-non-held-project-tasks))))
|
||||||
;; ,(macroexpand '(nd/agenda-base-task-command "Atomic Tasks" 'nd/skip-non-atomic-tasks))
|
("o" "Project Overview"
|
||||||
;; ,(macroexpand '(nd/agenda-base-project-command "Active Projects" 'nd/skip-non-active-projects))))
|
(,(macroexpand '(nd/agenda-base-project-command "Stuck" 10))
|
||||||
;;(nd/agenda-base-task-command "Project next tasks" 'nd/skip-non-next-project-tasks))
|
,(macroexpand '(nd/agenda-base-project-command "Waiting" 20))
|
||||||
;;(if nd/agenda-project-view nd/agenda-project-commands nd/agenda-task-commands))
|
,(macroexpand '(nd/agenda-base-project-command "Active" 40))
|
||||||
;; (tags-todo "-NA-REFILE/!"
|
,(macroexpand '(nd/agenda-base-project-command "Held" 30))))
|
||||||
;; ((org-agenda-overriding-header "Projects")
|
("r" "Refile and errors"
|
||||||
;; (org-agenda-skip-function 'nd/skip-non-projects)
|
((tags "REFILE"
|
||||||
;; (org-tags-match-list-sublevels 'indented)
|
((org-agenda-overriding-header "Tasks to Refile"))
|
||||||
;; (org-agenda-sorting-strategy
|
(org-tags-match-list-sublevels nil))))))
|
||||||
;; '(category-keep))))
|
|
||||||
;; (tags "-NA-REFILE/"
|
|
||||||
;; ((org-agenda-overriding-header "Tasks to Archive")
|
|
||||||
;; (org-agenda-skip-function 'nd/skip-non-archivable-tasks)
|
|
||||||
;; (org-tags-match-list-sublevels nil))))
|
|
||||||
nil)))
|
|
||||||
|
|
||||||
(use-package org-bullets
|
(use-package org-bullets
|
||||||
:ensure t
|
:ensure t
|
||||||
|
|
|
||||||
139
conf.org
139
conf.org
|
|
@ -499,18 +499,20 @@ TODO: add meeting template as scheduled+action item thing
|
||||||
(setq org-agenda-dim-blocked-tasks nil)
|
(setq org-agenda-dim-blocked-tasks nil)
|
||||||
(setq org-agenda-compact-blocks t)
|
(setq org-agenda-compact-blocks t)
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
*** keymap
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
(evil-define-key 'motion org-agenda-mode-map "T" 'nd/toggle-project-toplevel-display)
|
||||||
|
#+END_SRC
|
||||||
*** views
|
*** views
|
||||||
**** show only today
|
**** calendar display
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(setq org-agenda-span 'day)
|
(setq org-agenda-span 'day)
|
||||||
#+End_src
|
|
||||||
**** display time grid
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
|
||||||
(setq org-agenda-time-grid (quote ((daily today remove-match)
|
(setq org-agenda-time-grid (quote ((daily today remove-match)
|
||||||
#("----------------" 0 16 (org-heading t))
|
#("----------------" 0 16 (org-heading t))
|
||||||
(0900 1100 1300 1500 1700))))
|
(0900 1100 1300 1500 1700))))
|
||||||
#+END_SRC
|
#+End_src
|
||||||
**** right align tags
|
**** right align tags
|
||||||
|
the agenda does not do this by default...it's annoying
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(add-hook 'org-finalize-agenda-hook 'place-agenda-tags)
|
(add-hook 'org-finalize-agenda-hook 'place-agenda-tags)
|
||||||
(defun place-agenda-tags ()
|
(defun place-agenda-tags ()
|
||||||
|
|
@ -622,6 +624,7 @@ These are the building blocks for skip functions.
|
||||||
20: held
|
20: held
|
||||||
30: waiting
|
30: waiting
|
||||||
40: active
|
40: active
|
||||||
|
50: invalid???
|
||||||
|
|
||||||
This function works on an assumed order of precendence:
|
This function works on an assumed order of precendence:
|
||||||
- we start by assuming all projects as complete (eg only DONE and CANCELLED)
|
- we start by assuming all projects as complete (eg only DONE and CANCELLED)
|
||||||
|
|
@ -647,11 +650,11 @@ These are the building blocks for skip functions.
|
||||||
((equal keyword "TODO") (nd/descend-into-project))
|
((equal keyword "TODO") (nd/descend-into-project))
|
||||||
;; NOTE: all projects are assumed to only have TODO, HOLD, CANCELLED, or DONE, hence the three possible statuscodes
|
;; NOTE: all projects are assumed to only have TODO, HOLD, CANCELLED, or DONE, hence the three possible statuscodes
|
||||||
(t 0))
|
(t 0))
|
||||||
(cond ((equal keyword "TODO") 10)
|
(cond ((equal keyword "HOLD") 20)
|
||||||
((equal keyword "HOLD") 20)
|
|
||||||
((equal keyword "WAITING") 30)
|
((equal keyword "WAITING") 30)
|
||||||
((equal keyword "NEXT") 40)
|
((equal keyword "NEXT") 40)
|
||||||
((nd/is-scheduled-heading-p) 40)
|
((and (equal keyword "TODO") (nd/is-scheduled-heading-p)) 40)
|
||||||
|
((equal keyword "TODO") 10)
|
||||||
(t 0)))))
|
(t 0)))))
|
||||||
(if (> cur-state project-state)
|
(if (> cur-state project-state)
|
||||||
(setq project-state cur-state)))))
|
(setq project-state cur-state)))))
|
||||||
|
|
@ -672,6 +675,7 @@ These are the primary means we use to sort through tasks. Note that we could do
|
||||||
tags in the custom commands section but I find this easier to maintain and possibly faster.
|
tags in the custom commands section but I find this easier to maintain and possibly faster.
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
;; NOTE: use save-restriction and widen if we ever actually use narrowing
|
;; NOTE: use save-restriction and widen if we ever actually use narrowing
|
||||||
|
;; tasks
|
||||||
(defun nd/skip-non-atomic-tasks ()
|
(defun nd/skip-non-atomic-tasks ()
|
||||||
(if (not (nd/is-atomic-task-p))
|
(if (not (nd/is-atomic-task-p))
|
||||||
(save-excursion (or (outline-next-heading) (point-max)))))
|
(save-excursion (or (outline-next-heading) (point-max)))))
|
||||||
|
|
@ -688,99 +692,70 @@ tags in the custom commands section but I find this easier to maintain and possi
|
||||||
(if (not (equal (nd/is-project-task-p) "HOLD"))
|
(if (not (equal (nd/is-project-task-p) "HOLD"))
|
||||||
(save-excursion (or (outline-next-heading) (point-max)))))
|
(save-excursion (or (outline-next-heading) (point-max)))))
|
||||||
|
|
||||||
(defun nd/skip-non-stuck-projects ()
|
;; projects
|
||||||
(if (not (nd/is-project-status-p 10))
|
(defun nd/skip-projects-without-statuscode (statuscode)
|
||||||
|
(if (not (nd/is-project-status-p statuscode))
|
||||||
(save-excursion (or (outline-next-heading) (point-max)))))
|
(save-excursion (or (outline-next-heading) (point-max)))))
|
||||||
|
|
||||||
(defun nd/skip-non-held-projects ()
|
;; top-level projects
|
||||||
(if (not (nd/is-project-status-p 20))
|
(defun nd/skip-subprojects-without-statuscode (statuscode)
|
||||||
|
(if (or (nd/heading-has-parent) (not (nd/is-project-status-p statuscode)))
|
||||||
(save-excursion (or (outline-next-heading) (point-max)))))
|
(save-excursion (or (outline-next-heading) (point-max)))))
|
||||||
|
|
||||||
(defun nd/skip-non-waiting-projects ()
|
|
||||||
(if (not (nd/is-project-status-p 30))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max)))))
|
|
||||||
|
|
||||||
(defun nd/skip-non-active-projects ()
|
|
||||||
(if (not (nd/is-project-status-p 40))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max)))))
|
|
||||||
|
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
*** interactive view functions
|
*** interactive view functions
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(defvar nd/agenda-project-view t)
|
(defvar nd/agenda-limit-project-toplevel t
|
||||||
|
"used to filter projects by all levels or top-level only")
|
||||||
|
|
||||||
(defun nd/toggle-project-display ()
|
(defun nd/toggle-project-toplevel-display ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(setq nd/agenda-project-view (not nd/agenda-project-view))
|
(setq nd/agenda-limit-project-toplevel (not nd/agenda-limit-project-toplevel))
|
||||||
(when (equal major-mode 'org-agenda-mode)
|
(when (equal major-mode 'org-agenda-mode)
|
||||||
(org-agenda-redo))
|
(org-agenda-redo))
|
||||||
(message "%s project view in agenda" (if nd/agenda-project-view "Showing" "Hiding")))
|
(message "Showing %s project view in agenda" (if nd/agenda-limit-project-toplevel "toplevel" "complete")))
|
||||||
|
|
||||||
(defmacro nd/agenda-base-task-command (header skip-fun)
|
(defmacro nd/agenda-base-task-command (keyword skip-fun)
|
||||||
`(list tags-todo "-NA-REFILE/!"
|
"shorter syntax to define task agenda commands"
|
||||||
((org-agenda-overriding-header ,header)
|
`(tags-todo
|
||||||
(org-agenda-skip-function ,skip-fun)
|
"-NA-REFILE/!"
|
||||||
(org-agenda-todo-ignore-with-date 'all)
|
((org-agenda-overriding-header (concat ,keyword " Tasks"))
|
||||||
(org-agenda-sorting-strategy '(category-keep)))))
|
(org-agenda-skip-function ,skip-fun)
|
||||||
|
(org-agenda-todo-ignore-with-date 'all)
|
||||||
(defmacro nd/agenda-base-project-command (header skip-fun)
|
(org-agenda-sorting-strategy '(category-keep)))))
|
||||||
`(list tags-todo "-NA-REFILE/!"
|
|
||||||
((org-agenda-overriding-header ,header)
|
|
||||||
(org-agenda-skip-function ,skip-fun)
|
|
||||||
(org-agenda-sorting-strategy '(category-keep)))))
|
|
||||||
|
|
||||||
;; (defmacro nd/agenda-task-commands ()
|
(defmacro nd/agenda-base-project-command (keyword statuscode)
|
||||||
;; (apply #'values '((macroexpand '(nd/agenda-base-task-command "Project Next Tasks" 'nd/skip-non-next-project-task))
|
"shorter syntax to define project agenda commands"
|
||||||
;; (macroexpand '(nd/agenda-base-task-command "Atomic tasks" 'nd/skip-non-atomic-tasks)))))
|
`(tags-todo
|
||||||
|
"-NA-REFILE-ATOMIC/!"
|
||||||
|
((org-agenda-overriding-header (concat
|
||||||
|
(and nd/agenda-limit-project-toplevel "Toplevel ")
|
||||||
|
,keyword
|
||||||
|
" Projects"))
|
||||||
|
(org-agenda-skip-function (if nd/agenda-limit-project-toplevel
|
||||||
|
'(nd/skip-subprojects-without-statuscode ,statuscode)
|
||||||
|
'(nd/skip-projects-without-statuscode ,statuscode)))
|
||||||
|
(org-agenda-sorting-strategy '(category-keep)))))
|
||||||
|
|
||||||
;; (defvar nd/agenda-project-commands
|
|
||||||
;; (quote
|
|
||||||
;; ((tags-todo "-NA-REFILE/!"
|
|
||||||
;; ((org-agenda-overriding-header "Stuck Projects")
|
|
||||||
;; (org-agenda-skip-function 'nd/skip-non-stuck-projects)
|
|
||||||
;; (org-agenda-sorting-strategy
|
|
||||||
;; '(category-keep))))
|
|
||||||
;; (tags-todo "-NA-REFILE/!"
|
|
||||||
;; ((org-agenda-overriding-header "Held Projects")
|
|
||||||
;; (org-agenda-skip-function 'nd/skip-non-held-projects)
|
|
||||||
;; (org-agenda-sorting-strategy
|
|
||||||
;; '(category-keep))))
|
|
||||||
;; (tags-todo "-NA-REFILE/!"
|
|
||||||
;; ((org-agenda-overriding-header "Waiting Projects")
|
|
||||||
;; (org-agenda-skip-function 'nd/skip-non-waiting-projects)
|
|
||||||
;; (org-agenda-sorting-strategy
|
|
||||||
;; '(category-keep))))
|
|
||||||
;; (tags-todo "-NA-REFILE/!"
|
|
||||||
;; ((org-agenda-overriding-header "Active
|
|
||||||
;; (org-agenda-skip-function 'nd/skip-non-active-projects)
|
|
||||||
;; (org-agenda-sorting-strategy
|
|
||||||
;; '(category-keep)))))))
|
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
*** custom commands
|
*** custom commands
|
||||||
#+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"
|
`(("t" "Task view"
|
||||||
((agenda "" nil)
|
((agenda "" nil)
|
||||||
(tags "REFILE"
|
,(macroexpand '(nd/agenda-base-task-command "Next Project" 'nd/skip-non-next-project-tasks))
|
||||||
((org-agenda-overriding-header (if nd/agenda-project-view "Tasks to Refile" "Herro"))
|
,(macroexpand '(nd/agenda-base-task-command "Waiting Project" 'nd/skip-non-waiting-project-tasks))
|
||||||
(org-tags-match-list-sublevels nil))))
|
,(macroexpand '(nd/agenda-base-task-command "Atomic" 'nd/skip-non-atomic-tasks))
|
||||||
;; (if nd/agenda-project-view
|
,(macroexpand '(nd/agenda-base-task-command "Held Project" 'nd/skip-non-held-project-tasks))))
|
||||||
;; ,(macroexpand '(nd/agenda-base-task-command "Atomic Tasks" 'nd/skip-non-atomic-tasks))
|
("o" "Project Overview"
|
||||||
;; ,(macroexpand '(nd/agenda-base-project-command "Active Projects" 'nd/skip-non-active-projects))))
|
(,(macroexpand '(nd/agenda-base-project-command "Stuck" 10))
|
||||||
;;(nd/agenda-base-task-command "Project next tasks" 'nd/skip-non-next-project-tasks))
|
,(macroexpand '(nd/agenda-base-project-command "Waiting" 20))
|
||||||
;;(if nd/agenda-project-view nd/agenda-project-commands nd/agenda-task-commands))
|
,(macroexpand '(nd/agenda-base-project-command "Active" 40))
|
||||||
;; (tags-todo "-NA-REFILE/!"
|
,(macroexpand '(nd/agenda-base-project-command "Held" 30))))
|
||||||
;; ((org-agenda-overriding-header "Projects")
|
("r" "Refile and errors"
|
||||||
;; (org-agenda-skip-function 'nd/skip-non-projects)
|
((tags "REFILE"
|
||||||
;; (org-tags-match-list-sublevels 'indented)
|
((org-agenda-overriding-header "Tasks to Refile"))
|
||||||
;; (org-agenda-sorting-strategy
|
(org-tags-match-list-sublevels nil))))))
|
||||||
;; '(category-keep))))
|
|
||||||
;; (tags "-NA-REFILE/"
|
|
||||||
;; ((org-agenda-overriding-header "Tasks to Archive")
|
|
||||||
;; (org-agenda-skip-function 'nd/skip-non-archivable-tasks)
|
|
||||||
;; (org-tags-match-list-sublevels nil))))
|
|
||||||
nil)))
|
|
||||||
|
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
** ui
|
** ui
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue