progressbar

Easy progress bars in Clojure.

Installation

progressbar artifacts are published on Clojars:

Add progressbar to your project.clj:

   [progressbar "0.0.2"]

Usage

progressbar transparently wraps any mapable object to print feedback to standard out as items in the seq are processed.

user> (require '[progressbar.core :refer [progressbar]])
user> (doall (map identity (progressbar (range 10) :print-every 2)))
[====) # this is animated from [) to [====) using \r
(0 1 2 3 4 5 6 7 8 9)

The default progressbar looks like this:

[===)

and will grow infinitely large. By default, it will print an = for every 10 items in the seq that are processed.

Note that if the input seq implements clojure.lang.Counted, the default progressbar will be bounded, like:

[===        ]

Options

:print-every

The number of items each `=` represents

:progress-seq

A custom progress seq. An element from this seq will be printed every time an element from the wrapped seq is processed, unless the element from the progress seq is `nil`.

:count

If given, the progress bar will be bounded, indicating how close to completion we are

:width

If a count is given, this controls how wide the progress bar will be.

Extension

progressbar uses a protocol to determine what kind of progress seq to use. We have extended progressbar.progress-seq.ProgressSeq to return an "unbounded" (ie, like [===)) progress seq for java.lang.Object and a "bounded" progress seq (ie, like [=== ]) for any class that implements clojure.lang.Counted.

progressbar.progress-seq.ProgressSeq can be extended to new arbitrary types in order to make progress seq selection automatic. For example, an HTTP response could return its response bytes as a seq-able type representing a stream of bytes, and progressbar.progress-seq.ProgressSeq could be extended to that type to return a bounded seq whose count is set from the Content-Length header of the HTTP response.

Custom progress seqs

Clients can pass a seq to progressbar as :progress-seq. The given seq will be used as progress output:

user> (doall (map identity (progressbar (range 10)
                                        :progress-seq [nil "two\n" nil "four\n" nil "six\n" nil "eight\n" nil "ten\n"])))
two
four
six
eight
ten
(0 1 2 3 4 5 6 7 8 9)

user> (doall (map identity (progressbar (range 10 20)
                                        :progress-seq (iterate inc 0))))
0
1
2
3
4
5
6
7
8
9
(10 11 12 13 14 15 16 17 18 19)

Warning: if the progress seq is shorter than the seq you are processing, some elements from the seq you are processing may not be processed!

TODO

• extend ProgressSeq to native java types

License

Copyright © 2013 Travis Vachon

Distributed under the Eclipse Public License, the same as Clojure.