add support for active-range, fixes #15

org-time-string-to-absolute already supports it, it just wasn't added
in this or block
This commit is contained in:
Cody Goodman 2018-12-04 21:53:53 -06:00
parent 50fab59fec
commit 36fd99f2e3

View file

@ -308,7 +308,7 @@ like one returned by `date-to-day'."
(string (date-to-day (concat target-date " 00:00"))) (string (date-to-day (concat target-date " 00:00")))
(integer target-date)))) (integer target-date))))
(pcase (org-element-property :type date-element) (pcase (org-element-property :type date-element)
((or 'active 'inactive) ((or 'active 'inactive 'active-range)
(funcall comparator (funcall comparator
(org-time-string-to-absolute (org-time-string-to-absolute
(org-element-timestamp-interpreter date-element 'ignore)) (org-element-timestamp-interpreter date-element 'ignore))