add incubator filtering
This commit is contained in:
parent
b742356b3f
commit
45b6a3a690
94
conf.el
94
conf.el
|
@ -57,11 +57,11 @@
|
|||
(spaceline-spacemacs-theme)
|
||||
(setq spaceline-buffer-size-p nil))
|
||||
|
||||
(use-package dashboard
|
||||
:ensure t
|
||||
:config
|
||||
(dashboard-setup-startup-hook)
|
||||
(setq dashboard-banner-logo-title "Emacs"))
|
||||
;; (use-package dashboard
|
||||
;; :ensure t
|
||||
;; :config
|
||||
;; (dashboard-setup-startup-hook)
|
||||
;; (setq dashboard-banner-logo-title "Emacs"))
|
||||
;; (setq dashboard-items '((recents . 10))))
|
||||
|
||||
(global-set-key (kbd "C-h a") 'apropos)
|
||||
|
@ -281,7 +281,7 @@
|
|||
|
||||
(add-hook 'org-agenda-mode-hook
|
||||
(lambda ()
|
||||
(local-set-key (kbd "C-c C-c") '(message org-tags-alist))))
|
||||
(local-set-key (kbd "C-c C-c") 'org-agenda-set-tags)))
|
||||
|
||||
(setq org-todo-keywords
|
||||
'((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
|
||||
|
@ -295,29 +295,24 @@
|
|||
("HOLD" :foreground "violet" :weight bold)
|
||||
("CANC" :foreground "deep sky blue" :weight bold))))
|
||||
|
||||
(defun nd/filter-tags-prefix (prefix tags-list)
|
||||
(defun nd/filter-list-prefix (prefix str-list)
|
||||
"Return a subset of tags-list whose first character matches prefix.'
|
||||
tags-list defaults to org-tag-alist if not given"
|
||||
(seq-filter (lambda (tag)
|
||||
(and (stringp tag)
|
||||
(string-prefix-p prefix tag)))
|
||||
tags-list))
|
||||
tags-list defaults to org-tag-alist if not given"
|
||||
(seq-filter (lambda (i)
|
||||
(and (stringp i)
|
||||
(string-prefix-p prefix i)))
|
||||
str-list))
|
||||
|
||||
(defun nd/add-tag-face (fg-name prefix)
|
||||
"Adds list of cons cells to org-tag-faces with foreground set to fg-name.
|
||||
Start and end specify the positions in org-tag-alist which define the tags
|
||||
to which the faces are applied"
|
||||
(dolist (tag (nd/filter-tags-prefix prefix (mapcar #'car org-tag-alist)))
|
||||
Start and end specify the positions in org-tag-alist which define the tags
|
||||
to which the faces are applied"
|
||||
(dolist (tag (nd/filter-list-prefix prefix (mapcar #'car org-tag-alist)))
|
||||
(push `(,tag . (:foreground ,fg-name)) org-tag-faces)))
|
||||
|
||||
;; for some reason, org-mode doesn't like it if the org-tags-alist
|
||||
;; has special chars before it is loaded (overrides keybindings)
|
||||
;; this somewhat convoluted hook works tho...
|
||||
(defun nd/set-org-tag-alist-and-faces ()
|
||||
(progn
|
||||
;; dirty hack to keep org agenda happy
|
||||
;; (setq org-tag-alist '((:newline)))
|
||||
(setq org-tag-alist
|
||||
;; for some reason, most special chars don't really
|
||||
;; work in org-tag-alist, only #, @, %, and _
|
||||
(setq org-tag-alist
|
||||
'((:startgroup)
|
||||
("@errand" . ?e)
|
||||
("@home" . ?h)
|
||||
|
@ -329,9 +324,9 @@ to which the faces are applied"
|
|||
("#tcult" . ?T)
|
||||
("#phone" . ?O)
|
||||
|
||||
("$note" . ?n)
|
||||
("$inc" . ?i)
|
||||
("$subdiv" . ?s)
|
||||
("%note" . ?n)
|
||||
("%inc" . ?i)
|
||||
("%subdiv" . ?s)
|
||||
|
||||
(:startgroup)
|
||||
("_env" . ?E)
|
||||
|
@ -344,14 +339,12 @@ to which the faces are applied"
|
|||
("_soc" . ?S)
|
||||
(:endgroup)))
|
||||
|
||||
(setq org-tag-faces '())
|
||||
(setq org-tag-faces '())
|
||||
|
||||
(nd/add-tag-face "PaleGreen" "@")
|
||||
(nd/add-tag-face "SkyBlue" "#")
|
||||
(nd/add-tag-face "PaleGoldenrod" "$")
|
||||
(nd/add-tag-face "violet" "_")))
|
||||
|
||||
(add-hook 'org-mode-hook 'nd/set-org-tag-alist-and-faces)
|
||||
(nd/add-tag-face "PaleGreen" "@")
|
||||
(nd/add-tag-face "SkyBlue" "#")
|
||||
(nd/add-tag-face "PaleGoldenrod" "%")
|
||||
(nd/add-tag-face "violet" "_")
|
||||
|
||||
(add-to-list 'org-default-properties "PARENT_TYPE")
|
||||
(add-to-list 'org-default-properties "OWNER")
|
||||
|
@ -475,8 +468,11 @@ If the future flag is set, returns timestamp if it is in the future
|
|||
|
||||
(defun nd/heading-has-context-p ()
|
||||
(let ((tags (org-get-tags-at)))
|
||||
(or (> (length (nd/filter-tags-prefix "#" tags)) 0)
|
||||
(> (length (nd/filter-tags-prefix "@" tags)) 0))))
|
||||
(or (> (length (nd/filter-list-prefix "#" tags)) 0)
|
||||
(> (length (nd/filter-list-prefix "@" tags)) 0))))
|
||||
|
||||
(defun nd/heading-has-tag-p (tag)
|
||||
(member tag (org-get-tags-at)))
|
||||
|
||||
(defun nd/heading-has-children (heading-test)
|
||||
"returns t if heading has subheadings that return t when assessed with
|
||||
|
@ -687,6 +683,17 @@ test-fun return true"
|
|||
(if (not (and keyword ,test-fun))
|
||||
(nd/skip-heading)))))
|
||||
|
||||
(defun nd/skip-headings-with-tags (pos-tags-list &optional neg-tags-list)
|
||||
"Skips headings that have tags in pos-tags-list and also skips
|
||||
tags that do not have tags in neg-tags-list"
|
||||
(save-restriction
|
||||
(widen)
|
||||
(let ((header-tags (org-get-tags-at)))
|
||||
(if (and (or (not pos-tags-list)
|
||||
(intersection pos-tags-list header-tags :test 'equal))
|
||||
(not (intersection neg-tags-list header-tags :test 'equal)))
|
||||
(nd/skip-heading)))))
|
||||
|
||||
(defun nd/skip-non-stale-headings ()
|
||||
(save-restriction
|
||||
(widen)
|
||||
|
@ -867,16 +874,14 @@ test-fun return true"
|
|||
(org-agenda-skip-function '(nd/skip-projects-without-statuscode ,statuscode))
|
||||
(org-agenda-sorting-strategy '(category-keep)))))
|
||||
|
||||
(setq org-agenda-tag-filter-preset (list "-%inc"))
|
||||
|
||||
(let ((task-match "-NA-REFILE-PARENT_TYPE=\"periodical\"/")
|
||||
(project-match "-NA-REFILE-PARENT_TYPE=\"periodical\"-PARENT_TYPE=\"iterator\"/")
|
||||
(let ((task-match "-NA-REFILE-%inc-PARENT_TYPE=\"periodical\"/")
|
||||
(project-match "-NA-REFILE-%inc-PARENT_TYPE=\"periodical\"-PARENT_TYPE=\"iterator\"/")
|
||||
(periodical-match "-NA-REFILE+PARENT_TYPE=\"periodical\"-PARENT_TYPE=\"iterator\"/")
|
||||
(iterator-match "-NA-REFILE-PARENT_TYPE=\"periodical\"+PARENT_TYPE=\"iterator\"/"))
|
||||
(setq org-agenda-custom-commands
|
||||
`(("t"
|
||||
"Task View"
|
||||
((agenda "" nil)
|
||||
((agenda "" (org-agenda-skip-function '(nd/skip-headings-with-tags '("%inc"))))
|
||||
,(nd/agenda-base-task-command task-match "Next Project Tasks" ''(nd/skip-non-keyword-project-tasks "NEXT"))
|
||||
,(nd/agenda-base-task-command task-match "Waiting Project Tasks" ''(nd/skip-non-keyword-project-tasks "WAIT"))
|
||||
,(nd/agenda-base-task-command project-match "Atomic Tasks" ''nd/skip-non-atomic-tasks)
|
||||
|
@ -900,6 +905,13 @@ test-fun return true"
|
|||
,(nd/agenda-base-project-command iterator-match "Active Iterators" :active)
|
||||
,(nd/agenda-base-project-command iterator-match "Waiting Iterators" :waiting)
|
||||
,(nd/agenda-base-project-command iterator-match "Held Iterators" :held)))
|
||||
("I"
|
||||
"Incubator View"
|
||||
((agenda "" ((org-agenda-span 7)
|
||||
(org-agenda-time-grid nil)
|
||||
(org-agenda-entry-types '(:deadline :timestamp))))
|
||||
,(nd/agenda-base-task-command "-NA-REFILE+%inc/" "Incubated Tasks" ''nd/skip-non-atomic-tasks)
|
||||
,(nd/agenda-base-project-command "-NA-REFILE+%inc/" "Incubated Projects" :held)))
|
||||
("r"
|
||||
"Refile and Critical Errors"
|
||||
((tags "REFILE"
|
||||
|
@ -923,7 +935,7 @@ test-fun return true"
|
|||
,(nd/agenda-base-project-command iterator-match "Archivable Iterators" :archivable)
|
||||
,(nd/agenda-base-project-command project-match "Archivable Projects" :archivable))))))
|
||||
|
||||
(setq org-agenda-start-on-weekday 1)
|
||||
(setq org-agenda-start-on-weekday 0)
|
||||
(setq org-agenda-span 'day)
|
||||
(setq org-agenda-time-grid (quote ((daily today remove-match)
|
||||
#("----------------" 0 16 (org-heading t))
|
||||
|
|
88
conf.org
88
conf.org
|
@ -94,11 +94,11 @@ NOTE: this only works if we start term after gui, and term has light bg. not big
|
|||
#+END_SRC
|
||||
** dashboard
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package dashboard
|
||||
:ensure t
|
||||
:config
|
||||
(dashboard-setup-startup-hook)
|
||||
(setq dashboard-banner-logo-title "Emacs"))
|
||||
;; (use-package dashboard
|
||||
;; :ensure t
|
||||
;; :config
|
||||
;; (dashboard-setup-startup-hook)
|
||||
;; (setq dashboard-banner-logo-title "Emacs"))
|
||||
;; (setq dashboard-items '((recents . 10))))
|
||||
#+END_SRC
|
||||
* keybindings
|
||||
|
@ -430,7 +430,7 @@ the fonts in org headings bug me, make them smaller and less invasive
|
|||
|
||||
(add-hook 'org-agenda-mode-hook
|
||||
(lambda ()
|
||||
(local-set-key (kbd "C-c C-c") '(message org-tags-alist))))
|
||||
(local-set-key (kbd "C-c C-c") 'org-agenda-set-tags)))
|
||||
#+END_SRC
|
||||
** todo states
|
||||
*** sequences
|
||||
|
@ -457,31 +457,26 @@ Any tag that is not part of these groups (eg some filetags in the few cases I us
|
|||
There are several types of tags I use:
|
||||
- location: a GTD contexts; these start with "@"
|
||||
- tools: also a GTD contexts; these start with "#"
|
||||
- attribute: useful flags for filtering; these start with "."
|
||||
- attribute: useful flags for filtering; these start with "%"
|
||||
- life areas: key areas of life which define priorities and goals; these start with "_"
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun nd/filter-tags-prefix (prefix tags-list)
|
||||
(defun nd/filter-list-prefix (prefix str-list)
|
||||
"Return a subset of tags-list whose first character matches prefix.'
|
||||
tags-list defaults to org-tag-alist if not given"
|
||||
(seq-filter (lambda (tag)
|
||||
(and (stringp tag)
|
||||
(string-prefix-p prefix tag)))
|
||||
tags-list))
|
||||
(seq-filter (lambda (i)
|
||||
(and (stringp i)
|
||||
(string-prefix-p prefix i)))
|
||||
str-list))
|
||||
|
||||
(defun nd/add-tag-face (fg-name prefix)
|
||||
"Adds list of cons cells to org-tag-faces with foreground set to fg-name.
|
||||
Start and end specify the positions in org-tag-alist which define the tags
|
||||
to which the faces are applied"
|
||||
(dolist (tag (nd/filter-tags-prefix prefix (mapcar #'car org-tag-alist)))
|
||||
(dolist (tag (nd/filter-list-prefix prefix (mapcar #'car org-tag-alist)))
|
||||
(push `(,tag . (:foreground ,fg-name)) org-tag-faces)))
|
||||
|
||||
;; for some reason, org-mode doesn't like it if the org-tags-alist
|
||||
;; has special chars before it is loaded (overrides keybindings)
|
||||
;; this somewhat convoluted hook works tho...
|
||||
(defun nd/set-org-tag-alist-and-faces ()
|
||||
(progn
|
||||
;; dirty hack to keep org agenda happy
|
||||
;; (setq org-tag-alist '((:newline)))
|
||||
;; for some reason, most special chars don't really
|
||||
;; work in org-tag-alist, only #, @, %, and _
|
||||
(setq org-tag-alist
|
||||
'((:startgroup)
|
||||
("@errand" . ?e)
|
||||
|
@ -494,9 +489,9 @@ There are several types of tags I use:
|
|||
("#tcult" . ?T)
|
||||
("#phone" . ?O)
|
||||
|
||||
("$note" . ?n)
|
||||
("$inc" . ?i)
|
||||
("$subdiv" . ?s)
|
||||
("%note" . ?n)
|
||||
("%inc" . ?i)
|
||||
("%subdiv" . ?s)
|
||||
|
||||
(:startgroup)
|
||||
("_env" . ?E)
|
||||
|
@ -513,10 +508,9 @@ There are several types of tags I use:
|
|||
|
||||
(nd/add-tag-face "PaleGreen" "@")
|
||||
(nd/add-tag-face "SkyBlue" "#")
|
||||
(nd/add-tag-face "PaleGoldenrod" "$")
|
||||
(nd/add-tag-face "violet" "_")))
|
||||
(nd/add-tag-face "PaleGoldenrod" "%")
|
||||
(nd/add-tag-face "violet" "_")
|
||||
|
||||
(add-hook 'org-mode-hook 'nd/set-org-tag-alist-and-faces)
|
||||
#+END_SRC
|
||||
** properties
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
|
@ -670,8 +664,11 @@ Returns t is heading matches a certian set of properties
|
|||
|
||||
(defun nd/heading-has-context-p ()
|
||||
(let ((tags (org-get-tags-at)))
|
||||
(or (> (length (nd/filter-tags-prefix "#" tags)) 0)
|
||||
(> (length (nd/filter-tags-prefix "@" tags)) 0))))
|
||||
(or (> (length (nd/filter-list-prefix "#" tags)) 0)
|
||||
(> (length (nd/filter-list-prefix "@" tags)) 0))))
|
||||
|
||||
(defun nd/heading-has-tag-p (tag)
|
||||
(member tag (org-get-tags-at)))
|
||||
#+END_SRC
|
||||
**** relational testing
|
||||
Returns t if heading has certain relationship to other headings
|
||||
|
@ -893,10 +890,11 @@ Subunits for skip functions. Not meant to be used or called from the custom comm
|
|||
(if (not (and keyword ,test-fun))
|
||||
(nd/skip-heading)))))
|
||||
#+END_SRC
|
||||
**** stale headings
|
||||
For archiving headings with old timestamps
|
||||
**** headings
|
||||
Skip functions for headings which may or may
|
||||
not be todo-items
|
||||
|
||||
Note that these are not always todo items
|
||||
Note in the case of stale headings that
|
||||
I only care about those that are not part
|
||||
of projects (projects will get taken care
|
||||
of when the entire project is finished)
|
||||
|
@ -904,6 +902,17 @@ and those that are not DONE/CANC (as
|
|||
those appear in the regular archive
|
||||
section)
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun nd/skip-headings-with-tags (pos-tags-list &optional neg-tags-list)
|
||||
"Skips headings that have tags in pos-tags-list and also skips
|
||||
tags that do not have tags in neg-tags-list"
|
||||
(save-restriction
|
||||
(widen)
|
||||
(let ((header-tags (org-get-tags-at)))
|
||||
(if (and (or (not pos-tags-list)
|
||||
(intersection pos-tags-list header-tags :test 'equal))
|
||||
(not (intersection neg-tags-list header-tags :test 'equal)))
|
||||
(nd/skip-heading)))))
|
||||
|
||||
(defun nd/skip-non-stale-headings ()
|
||||
(save-restriction
|
||||
(widen)
|
||||
|
@ -1128,16 +1137,14 @@ Note that this is used for "normal" projects as well as iterators
|
|||
(org-agenda-skip-function '(nd/skip-projects-without-statuscode ,statuscode))
|
||||
(org-agenda-sorting-strategy '(category-keep)))))
|
||||
|
||||
(setq org-agenda-tag-filter-preset (list "-%inc"))
|
||||
|
||||
(let ((task-match "-NA-REFILE-PARENT_TYPE=\"periodical\"/")
|
||||
(project-match "-NA-REFILE-PARENT_TYPE=\"periodical\"-PARENT_TYPE=\"iterator\"/")
|
||||
(let ((task-match "-NA-REFILE-%inc-PARENT_TYPE=\"periodical\"/")
|
||||
(project-match "-NA-REFILE-%inc-PARENT_TYPE=\"periodical\"-PARENT_TYPE=\"iterator\"/")
|
||||
(periodical-match "-NA-REFILE+PARENT_TYPE=\"periodical\"-PARENT_TYPE=\"iterator\"/")
|
||||
(iterator-match "-NA-REFILE-PARENT_TYPE=\"periodical\"+PARENT_TYPE=\"iterator\"/"))
|
||||
(setq org-agenda-custom-commands
|
||||
`(("t"
|
||||
"Task View"
|
||||
((agenda "" nil)
|
||||
((agenda "" (org-agenda-skip-function '(nd/skip-headings-with-tags '("%inc"))))
|
||||
,(nd/agenda-base-task-command task-match "Next Project Tasks" ''(nd/skip-non-keyword-project-tasks "NEXT"))
|
||||
,(nd/agenda-base-task-command task-match "Waiting Project Tasks" ''(nd/skip-non-keyword-project-tasks "WAIT"))
|
||||
,(nd/agenda-base-task-command project-match "Atomic Tasks" ''nd/skip-non-atomic-tasks)
|
||||
|
@ -1161,6 +1168,13 @@ Note that this is used for "normal" projects as well as iterators
|
|||
,(nd/agenda-base-project-command iterator-match "Active Iterators" :active)
|
||||
,(nd/agenda-base-project-command iterator-match "Waiting Iterators" :waiting)
|
||||
,(nd/agenda-base-project-command iterator-match "Held Iterators" :held)))
|
||||
("I"
|
||||
"Incubator View"
|
||||
((agenda "" ((org-agenda-span 7)
|
||||
(org-agenda-time-grid nil)
|
||||
(org-agenda-entry-types '(:deadline :timestamp))))
|
||||
,(nd/agenda-base-task-command "-NA-REFILE+%inc/" "Incubated Tasks" ''nd/skip-non-atomic-tasks)
|
||||
,(nd/agenda-base-project-command "-NA-REFILE+%inc/" "Incubated Projects" :held)))
|
||||
("r"
|
||||
"Refile and Critical Errors"
|
||||
((tags "REFILE"
|
||||
|
@ -1188,7 +1202,7 @@ Note that this is used for "normal" projects as well as iterators
|
|||
*** views
|
||||
**** calendar display
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq org-agenda-start-on-weekday 1)
|
||||
(setq org-agenda-start-on-weekday 0)
|
||||
(setq org-agenda-span 'day)
|
||||
(setq org-agenda-time-grid (quote ((daily today remove-match)
|
||||
#("----------------" 0 16 (org-heading t))
|
||||
|
|
Loading…
Reference in New Issue