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

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

@ -766,12 +766,12 @@ 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)))
((and (pred functionp) fun) fun) ((and (pred functionp) fun) fun)
(arg (user-error "Invalid argument to :skip-matches: %s" arg)))) (arg (user-error "Invalid argument to :skip-matches: %s" arg))))
(work-hours (or (plist-get params :work-hours) (work-hours (or (plist-get params :work-hours)
"8:00")) "8:00"))
date-range) date-range)
@ -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)))