jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WIP: Add timestamp key, change arg

Browse source
This commit is contained in:
Adam Porter 2023-03-15 03:42:02 -05:00
parent 77a4fdb7be
commit 7b3bb25fd2
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
taxy-org-ql-view.el
View file

@ -296,7 +296,12 @@ Returns in format \"%Y-%m-%d\"."
(org-with-point-at (org-element-property :org-hd-marker item) (org-with-point-at (org-element-property :org-hd-marker item)
(concat "Category: " (org-get-category)))) (concat "Category: " (org-get-category))))
(defun taxy-org-ql--latest-timestamp-in (regexp element) (taxy-org-ql-view-define-key timestamp (&key (age 'latest) (format "%Y-%m"))
"FIXME: Docstring"
(when-let (ts (taxy-org-ql--latest-timestamp-in item))
(ts-format format ts)))
(cl-defun taxy-org-ql--latest-timestamp-in (element &optional (regexp org-element--timestamp-regexp))
"Return the latest timestamp matching REGEXP in ELEMENT. "Return the latest timestamp matching REGEXP in ELEMENT.
Searches in ELEMENT's buffer." Searches in ELEMENT's buffer."
(org-with-point-at (org-element-property :org-hd-marker element) (org-with-point-at (org-element-property :org-hd-marker element)
@ -311,12 +316,12 @@ Searches in ELEMENT's buffer."
(taxy-org-ql-view-define-key ts-year () (taxy-org-ql-view-define-key ts-year ()
"Return the year of ITEM's latest timestamp." "Return the year of ITEM's latest timestamp."
(when-let ((latest-ts (taxy-org-ql--latest-timestamp-in org-element--timestamp-regexp item))) (when-let ((latest-ts (taxy-org-ql--latest-timestamp-in item)))
(ts-format "%Y" latest-ts))) (ts-format "%Y" latest-ts)))
(taxy-org-ql-view-define-key ts-month () (taxy-org-ql-view-define-key ts-month ()
"Return the month of ITEM's latest timestamp." "Return the month of ITEM's latest timestamp."
(when-let ((latest-ts (taxy-org-ql--latest-timestamp-in org-element--timestamp-regexp item))) (when-let ((latest-ts (taxy-org-ql--latest-timestamp-in item)))
(ts-format "%Y-%m (%B)" latest-ts))) (ts-format "%Y-%m (%B)" latest-ts)))
(taxy-org-ql-view-define-key deadline (&rest args) (taxy-org-ql-view-define-key deadline (&rest args)