From 7b3bb25fd2226a104681bbc2a3d8510e3a136919 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Wed, 15 Mar 2023 03:42:02 -0500 Subject: [PATCH] WIP: Add timestamp key, change arg --- taxy-org-ql-view.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/taxy-org-ql-view.el b/taxy-org-ql-view.el index 409bf28..a6c0f2e 100644 --- a/taxy-org-ql-view.el +++ b/taxy-org-ql-view.el @@ -296,7 +296,12 @@ Returns in format \"%Y-%m-%d\"." (org-with-point-at (org-element-property :org-hd-marker item) (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. Searches in ELEMENT's buffer." (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 () "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))) (taxy-org-ql-view-define-key ts-month () "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))) (taxy-org-ql-view-define-key deadline (&rest args)