From 6cfd90a10673858273d3cff8535ca5ad6606c527 Mon Sep 17 00:00:00 2001 From: Brady McDonough Date: Sat, 5 Aug 2023 12:38:28 -0600 Subject: [PATCH] Clearing installer warnings --- tacc.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/tacc.el b/tacc.el index a432070..79fa307 100644 --- a/tacc.el +++ b/tacc.el @@ -328,15 +328,14 @@ registered" sym-name) nil)) (defun tacc-invariant () - "Returns t if tacc is in a legal state for mutating tacc-info, signal an error otherwise -Note, if there is no tacc-buffer then you shouldn't be touching tacc-info" + "Returns t when state indicates tacc-info can be mutated. Signals error if not" (if (bufferp (tacc-buffer)) (if (tacc-live?) (if (tacc-live-state?) t ;; Timer running without reason in logic (signal 'tacc-error-illegal-buffer-state tacc-timer)) - (if (tacc-session-state?) + (if (tacc-session-state? (alist-get 'state tacc-info)) t ;; Buffer is live without reason in logic (signal 'tacc-error-illegal-buffer-state (tacc-buffer)))) @@ -390,7 +389,7 @@ Note, if there is no tacc-buffer then you shouldn't be touching tacc-info" "Redraws the timer buffer and returns the calculated countdown seconds" (let* ((cycle (alist-get 'cycle tacc-info)) (work-ts (alist-get 'work-ts tacc-info)) - (break-ts (alist-gete 'break-ts tacc-info)) + (break-ts (alist-get 'break-ts tacc-info)) (est (tacc-est-ts state cycle work-ts break-ts)) (countdown (time-subtract est now))) (tacc-timer-buffer-update state est countdown now)