contrapunctus
/
chronometrist
Archived
1
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

fix(details): set history variables

This commit is contained in:
contrapunctus 2021-07-01 07:23:24 +05:30
parent c5d4c33057
commit f7f2349004
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
elisp/chronometrist.el
View File

@ -2163,7 +2163,8 @@ TABLE must be a hash table similar to `chronometrist-events'."
((pred stringp)
(format "%s" chronometrist-details-range))
(`(,begin . ,end)
(format "%s,%s" begin end))))))
(format "%s,%s" begin end)))
'chronometrist-details-range-history)))
(pcase input
('nil (setq-local chronometrist-details-range nil))
(`(,date)
@ -2205,7 +2206,7 @@ FILTER must be a filter specifier as described by
(let* ((input (read-from-minibuffer
(concat "Filter (blank, a list of keywords, "
"a plist, or a predicate): ")
nil nil nil nil
nil nil nil 'chronometrist-details-filter-history
(pcase chronometrist-details-filter
('nil "")
((pred consp) (format "%S" chronometrist-details-filter)))))

5
elisp/chronometrist.org
View File

@ -3418,7 +3418,8 @@ TABLE must be a hash table similar to `chronometrist-events'."
((pred stringp)
(format "%s" chronometrist-details-range))
(`(,begin . ,end)
(format "%s,%s" begin end))))))
(format "%s,%s" begin end)))
'chronometrist-details-range-history)))
(pcase input
('nil (setq-local chronometrist-details-range nil))
(`(,date)
@ -3469,7 +3470,7 @@ FILTER must be a filter specifier as described by
(let* ((input (read-from-minibuffer
(concat "Filter (blank, a list of keywords, "
"a plist, or a predicate): ")
nil nil nil nil
nil nil nil 'chronometrist-details-filter-history
(pcase chronometrist-details-filter
('nil "")
((pred consp) (format "%S" chronometrist-details-filter)))))