exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use more speaking name for skip date function in workload report

Browse Source
This commit is contained in:
Daniel Borchmann 2024-10-03 17:47:38 +02:00
parent 62d4f62af4
commit d63cba9756
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
site-lisp/db-org.el
View File

@ -766,7 +766,7 @@ PARAMS is a property list of the following parameters:
(org-ql-match (or (plist-get params :org-ql-match) (org-ql-match (or (plist-get params :org-ql-match)
'(todo))) '(todo)))
(timestamp-format "%Y-%m-%d %a %H:%M") (timestamp-format "%Y-%m-%d %a %H:%M")
(skipper (pcase (plist-get params :skip-matches) (skip-date-p (pcase (plist-get params :skip-matches)
((pred null) #'(lambda (_) nil)) ((pred null) #'(lambda (_) nil))
((and (pred stringp) arg) ((and (pred stringp) arg)
#'(lambda (x) (string-match arg x))) #'(lambda (x) (string-match arg x)))
@ -798,7 +798,7 @@ PARAMS is a property list of the following parameters:
(format "+%s" increment) (format "+%s" increment)
nil current) nil current)
current-formatted (format-time-string timestamp-format current)) current-formatted (format-time-string timestamp-format current))
(unless (funcall skipper current-formatted) (unless (funcall skip-date-p current-formatted)
(push current-formatted date-range)))) (push current-formatted date-range))))
(setq date-range (nreverse (cdr date-range))) (setq date-range (nreverse (cdr date-range)))