Commit e551b83a authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

1.1.1: Fix count when no skip specified

parent 4243fbba

timer.lisp

+2 −2
Changes for timer.lisp: 2 added lines, 2 removed lines.
Original line number Diff line number Diff line
@@ -7,7 +7,7 @@ 


(in-package :workout-timer/timer)



(defparameter *version* "1.1.0")

(defparameter *version* "1.1.1")



(defparameter *mixer* nil)
@@ -141,7 +141,7 @@ 
    :with total = (length exercises)

    :with il = (integer-length* total 10)

    :for (exercise . morep) :on (nthcdr (or skip 0) exercises)

    :for count :from (1+ skip) :do

    :for count :from (1+ (or skip 0)) :do

    (format! t "[~v,'0D/~D] ~As!~%" il count total exercise)

    (unless silentp (bell))

    (countdown work-seconds :click (not silentp))