creates a structure representing progress

(-> (progress) :state deref) => (contains {:total 100, :current 0, :label ""})

converts a progress percentage to a string

(progress-bar-string 50 100 (:bar +progress-defaults+)) => "===================== 50/100 "

calculates the estimated time left for the task

(progress-eta 100 90 90) => 10

converts a progress to a spinner string

(progress-spinner-string 9 20) => “-”

creates a string representation of the current progress

(progress-string (-> @(:state (progress)) (update :update-time + 10) (update :current + 9)) +progress-defaults+) => “===== 9/100 101s -”

demo for how progress should work

(progress-test)

updates the progress meter

(progress-update (progress) 10)

replaces the center of the background with text

(replace-center “=================” " hello ") => “===== hello =====”