We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 4420a82 commit 936c57dCopy full SHA for 936c57d
src/progress/indeterminate.clj
@@ -124,7 +124,8 @@
124
bg-colour :default
125
attributes [:default]
126
space-after-indicator? true}}]
127
- (let [delay-in-ms (long (Math/round (double delay-in-ms)))] ; Coerce delay-in-ms to a long (especially if it's a Clojure ratio)
+ (let [delay-in-ms (long (Math/round (double delay-in-ms))) ; Coerce delay-in-ms to a long (especially if it's a Clojure ratio)
128
+ frame-count (count frames)]
129
; Setup logic
130
(ansi/save-cursor!)
131
(ansi/hide-cursor!)
@@ -141,7 +142,7 @@
141
142
(ansi/restore-cursor!)
143
(print-pending-messages)
144
(when (active?)
- (recur (mod (inc i) (count frames))))))
145
+ (recur (int (mod (inc i) frame-count))))))
146
; Clean up logic
147
148
(jansi/erase-line!)
0 commit comments