pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

This is going back to experimental, needs performance tuning

Browse source
This commit is contained in:
Benson Chu 2019-12-19 16:38:32 -06:00
parent f652903613
commit c667daa1dd
2 changed files with 23 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
config-org-new.org
View file

@ -647,29 +647,6 @@
(:name "Today" :time-grid t
:and (:not (:and (:not (:scheduled today)
:not (:deadline today)))))))))
("P" "Project View"
((tags-todo ,sandbox-tag
((org-agenda-overriding-header "Active Projects")
(org-agenda-skip-function 'my/show-active-projects)
(org-tags-match-list-sublevels 'indented)))
(tags-todo ,sandbox-tag
((org-agenda-overriding-header "Stuck Projects")
(org-tags-match-list-sublevels 'indented)
(org-agenda-skip-function 'my/show-stuck-projects)
(org-agenda-sorting-strategy
'(category-keep))))
(tags-todo ,sandbox-tag
((org-agenda-overriding-header "Delayed projects")
(org-agenda-skip-function 'my/show-delayed-projects)))
(tags-todo ,(concat sandbox-tag "-PEOPLE/!HOLD")
((org-agenda-overriding-header "Projects on hold")))
(tags-todo ,(concat sandbox-tag "+PEOPLE/!HOLD")
((org-agenda-overriding-header "People on hold")))
(tags-todo ,(concat sandbox-tag "/!FUTURE")
((org-agenda-overriding-header "Someday projects")
(org-agenda-sorting-strategy '(tag-up))))
(tags-todo ,(concat sandbox-tag "/!ETERNAL")
((org-agenda-overriding-header "Eternal Projects")))))
("p" . "Prod")
("pa" "All" ,(production-agenda prod-tag))
("pw" "work" ,(production-agenda "+work"))

23
lisp/experimental-agenda-views.el
View file

@ -64,6 +64,29 @@
(:name "Today" :time-grid t
:and (:not (:and (:not (:scheduled today)
:not (:deadline today))))))))))))
("P" "Project View"
((tags-todo ,sandbox-tag
((org-agenda-overriding-header "Active Projects")
(org-agenda-skip-function 'my/show-active-projects)
(org-tags-match-list-sublevels 'indented)))
(tags-todo ,sandbox-tag
((org-agenda-overriding-header "Stuck Projects")
(org-tags-match-list-sublevels 'indented)
(org-agenda-skip-function 'my/show-stuck-projects)
(org-agenda-sorting-strategy
'(category-keep))))
(tags-todo ,sandbox-tag
((org-agenda-overriding-header "Delayed projects")
(org-agenda-skip-function 'my/show-delayed-projects)))
(tags-todo ,(concat sandbox-tag "-PEOPLE/!HOLD")
((org-agenda-overriding-header "Projects on hold")))
(tags-todo ,(concat sandbox-tag "+PEOPLE/!HOLD")
((org-agenda-overriding-header "People on hold")))
(tags-todo ,(concat sandbox-tag "/!FUTURE")
((org-agenda-overriding-header "Someday projects")
(org-agenda-sorting-strategy '(tag-up))))
(tags-todo ,(concat sandbox-tag "/!ETERNAL")
((org-agenda-overriding-header "Eternal Projects")))))
(provide 'experimental-agenda-views)
;;; experimental-agenda-views.el ends here