|
|
|
@ -26,7 +26,7 @@
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
|
|
(declare-function chronometrist-last "chronometrist-queries")
|
|
|
|
|
(declare-function chronometrist-last "chronometrist")
|
|
|
|
|
|
|
|
|
|
(defvar chronometrist-goal--timers-list nil)
|
|
|
|
|
|
|
|
|
@ -241,12 +241,7 @@ SCHEMA should be a vector (see `tabulated-list-format')."
|
|
|
|
|
(remove-hook 'chronometrist-after-out-functions #'chronometrist-goal-stop-alert-timers))
|
|
|
|
|
|
|
|
|
|
(define-minor-mode chronometrist-goal-minor-mode
|
|
|
|
|
"Toggle `chronometrist-goal-minor-mode'.
|
|
|
|
|
With a prefix argument ARG, enable
|
|
|
|
|
`chronometrist-goal-minor-mode' if ARG is positive, and disable
|
|
|
|
|
it otherwise. If called from Lisp, enable the mode if ARG is
|
|
|
|
|
omitted or nil."
|
|
|
|
|
nil nil nil
|
|
|
|
|
nil nil nil nil
|
|
|
|
|
;; when being enabled/disabled, `chronometrist-goal-minor-mode' will already be t/nil here
|
|
|
|
|
(if chronometrist-goal-minor-mode (chronometrist-goal-setup) (chronometrist-goal-teardown)))
|
|
|
|
|
|
|
|
|
|