ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added headline tester for created timestamps and incorporate into agenda

This commit is contained in:
ndwarshuis 2018-12-23 11:01:55 -05:00
parent 45ef7a7e6b
commit 1daec3cce6
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
conf.org
View File

@ -1861,6 +1861,10 @@ to REF-TIME. Returns nil if no timestamp is found."
(> (- timestamp (float-time)) ref-time) (> (- timestamp (float-time)) ref-time)
(<= (- timestamp (float-time)) ref-time))) (<= (- timestamp (float-time)) ref-time)))
timestamp))) timestamp)))
(defun nd/is-created-heading-p ()
"Return heading's CREATED property timestamp or nil."
(nd/get-date-property "CREATED"))
(defun nd/is-ia-timestamped-heading-p () (defun nd/is-ia-timestamped-heading-p ()
"Get active timestamp of current heading." "Get active timestamp of current heading."
@ -2229,12 +2233,12 @@ Skip functions for headings which may or may not be todo-items.
****** tasks ****** tasks
A few functions apply to both atomic tasks and project tasks the same. A few functions apply to both atomic tasks and project tasks the same.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun nd/skip-non-ia-timestamped-tasks () (defun nd/skip-non-created-tasks ()
"Skip tasks that do not have an inactive timestamp." "Skip tasks that do not have CREATED timestamp properties."
(save-excursion (save-excursion
(widen) (widen)
(if (not (and (nd/is-task-p) (if (not (and (nd/is-task-p)
(not (nd/is-ia-timestamped-heading-p)))) (not (nd/is-created-heading-p))))
(nd/skip-heading)))) (nd/skip-heading))))
#+END_SRC #+END_SRC
****** atomic tasks ****** atomic tasks
@ -2593,7 +2597,7 @@ These agenda commands are the center of the gtd workflow. Some are slower than d
''nd/skip-non-done-unclosed-todoitems) ''nd/skip-non-done-unclosed-todoitems)
,(nd/agenda-base-task-cmd (concat task-match) ,(nd/agenda-base-task-cmd (concat task-match)
"Missing Creation Timestamp" "Missing Creation Timestamp"
''nd/skip-non-ia-timestamped-tasks))) ''nd/skip-non-created-tasks)))
("A" ("A"