ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FIX datetime typos

This commit is contained in:
Nathan Dwarshuis 2022-06-19 14:21:56 -04:00
parent 1b46baf90c
commit ce76d10b65
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
local/lib/org-x/org-x-dag.el
View File

@ -428,6 +428,10 @@ relative shift in days from ABS."
(defun org-x-dag-pts-is-long-p (pts) (defun org-x-dag-pts-is-long-p (pts)
(org-ml-time-is-long (plist-get pts :datetime))) (org-ml-time-is-long (plist-get pts :datetime)))
(defun org-x-dag-pts-to-epoch (pts)
(->> (plist-get pts :datetime)
(org-x-dag-datetime-to-epoch)))
;; allocation ;; allocation
(pcase-defmacro regexp (capture regexp) (pcase-defmacro regexp (capture regexp)
@ -3238,7 +3242,7 @@ FUTURE-LIMIT in a list."
(`(:iter-empty :empty-active ,_) :empty) (`(:iter-empty :empty-active ,_) :empty)
(`(:iter-nonempty :nonempty-active ,data) (`(:iter-nonempty :nonempty-active ,data)
(-let* (((&plist :dead d :leading-sched-dt s) data) (-let* (((&plist :dead d :leading-sched-dt s) data)
(d* (-some->> d (org-x-dag-datetime-to-epoch))) (d* (-some->> d (org-x-dag-pts-to-epoch)))
(s* (-some->> s (org-x-dag-datetime-to-epoch)))) (s* (-some->> s (org-x-dag-datetime-to-epoch))))
(-if-let (epoch (if (and d* s*) (min d* s*) (or s* d*))) (-if-let (epoch (if (and d* s*) (min d* s*) (or s* d*)))
(if (< (+ (float-time) org-x-iterator-active-future-offset) (if (< (+ (float-time) org-x-iterator-active-future-offset)