fix(details): set history variables
This commit is contained in:
parent
c5d4c33057
commit
f7f2349004
|
@ -2163,7 +2163,8 @@ TABLE must be a hash table similar to `chronometrist-events'."
|
||||||
((pred stringp)
|
((pred stringp)
|
||||||
(format "%s" chronometrist-details-range))
|
(format "%s" chronometrist-details-range))
|
||||||
(`(,begin . ,end)
|
(`(,begin . ,end)
|
||||||
(format "%s,%s" begin end))))))
|
(format "%s,%s" begin end)))
|
||||||
|
'chronometrist-details-range-history)))
|
||||||
(pcase input
|
(pcase input
|
||||||
('nil (setq-local chronometrist-details-range nil))
|
('nil (setq-local chronometrist-details-range nil))
|
||||||
(`(,date)
|
(`(,date)
|
||||||
|
@ -2205,7 +2206,7 @@ FILTER must be a filter specifier as described by
|
||||||
(let* ((input (read-from-minibuffer
|
(let* ((input (read-from-minibuffer
|
||||||
(concat "Filter (blank, a list of keywords, "
|
(concat "Filter (blank, a list of keywords, "
|
||||||
"a plist, or a predicate): ")
|
"a plist, or a predicate): ")
|
||||||
nil nil nil nil
|
nil nil nil 'chronometrist-details-filter-history
|
||||||
(pcase chronometrist-details-filter
|
(pcase chronometrist-details-filter
|
||||||
('nil "")
|
('nil "")
|
||||||
((pred consp) (format "%S" chronometrist-details-filter)))))
|
((pred consp) (format "%S" chronometrist-details-filter)))))
|
||||||
|
|
|
@ -3418,7 +3418,8 @@ TABLE must be a hash table similar to `chronometrist-events'."
|
||||||
((pred stringp)
|
((pred stringp)
|
||||||
(format "%s" chronometrist-details-range))
|
(format "%s" chronometrist-details-range))
|
||||||
(`(,begin . ,end)
|
(`(,begin . ,end)
|
||||||
(format "%s,%s" begin end))))))
|
(format "%s,%s" begin end)))
|
||||||
|
'chronometrist-details-range-history)))
|
||||||
(pcase input
|
(pcase input
|
||||||
('nil (setq-local chronometrist-details-range nil))
|
('nil (setq-local chronometrist-details-range nil))
|
||||||
(`(,date)
|
(`(,date)
|
||||||
|
@ -3469,7 +3470,7 @@ FILTER must be a filter specifier as described by
|
||||||
(let* ((input (read-from-minibuffer
|
(let* ((input (read-from-minibuffer
|
||||||
(concat "Filter (blank, a list of keywords, "
|
(concat "Filter (blank, a list of keywords, "
|
||||||
"a plist, or a predicate): ")
|
"a plist, or a predicate): ")
|
||||||
nil nil nil nil
|
nil nil nil 'chronometrist-details-filter-history
|
||||||
(pcase chronometrist-details-filter
|
(pcase chronometrist-details-filter
|
||||||
('nil "")
|
('nil "")
|
||||||
((pred consp) (format "%S" chronometrist-details-filter)))))
|
((pred consp) (format "%S" chronometrist-details-filter)))))
|
||||||
|
|
Reference in New Issue