diff options
Diffstat (limited to 'org-urgency.el')
| -rw-r--r-- | org-urgency.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/org-urgency.el b/org-urgency.el index 3ac79f7..68c0bf0 100644 --- a/org-urgency.el +++ b/org-urgency.el @@ -173,6 +173,18 @@ When N is 1, the urgency from this function is equal to (coeff (- maximum remaining))) (* n coeff))) +(org-urgency-define timestamped-today? () + "Urgency N when H somehow appears today." + (when-let* ((stamp (thread-first + (get 'org-marker) + (org-entry-get "TIMESTAMP"))) + (date (thread-first + (org-parse-time-string stamp) + (encode-time) + (time-to-days))) + (today? (= date (org-today)))) + n)) + (org-urgency-define tag? (tag) "Urgency N when H has tag TAG." (when (member tag (get 'tags)) |