Finished tacc-running? replacement TODO

tacc.el

@@ -49,7 +49,7 @@
 
 ;;; Code:
 
-;; TODOS: tacc-running? needs to be replaced by tacc-session? and tacc-live? depending on context
+;; TODOS: 
 ;;
 ;; ERROR: timer shutdown seems to leave things in a wrong state and buffer doesn't die properly
 ;;         Check on the logic of push-current, needs predicates rather than lazy if conditions
@@ -291,18 +291,18 @@ registered" sym-name)
 
 ;; 05.2 State checks
 
-
 (defun tacc-buffer ()
   "Gets the tacc-timer buffer if there is one"
   (get-buffer tacc-buffer-name))
 
-(defun tacc-live-state? (state)
+(defun tacc-live-state? ()
-  "Checks if the state supplied indicates a live timer"
+  "Checks if tacc-info's state indicates a live timer"
-  (cond ((eq state 'pause) nil)
+  (let ((state (alist-get 'state tacc-info)))
-        ((eq state 'stop) nil)
+    (cond ((eq state 'pause) nil)
-        ((eq state 'work) t)
+          ((eq state 'stop) nil)
-        ((eq state 'break) t)
+          ((eq state 'work) t)
-        ('t (signal 'tacc-error-illegal-buffer-state state))))
+          ((eq state 'break) t)
+          ('t (signal 'tacc-error-illegal-buffer-state state)))))
 
 (defun tacc-live? ()
   "Checks if there is a live timer running"