Function: spinner-make-progress-bar

spinner-make-progress-bar is a byte-compiled function defined in spinner.el.

Signature

(spinner-make-progress-bar WIDTH &optional CHAR)

Documentation

Return a vector of strings of the given WIDTH.

The vector is a valid spinner type and is similar to the progress-bar spinner, except without the surrounding brackets. CHAR is the character to use for the moving bar (defaults to =).

Source Code

;; Defined in ~/.emacs.d/elpa/spinner-1.7.4/spinner.el
(defun spinner-make-progress-bar (width &optional char)
  "Return a vector of strings of the given WIDTH.
The vector is a valid spinner type and is similar to the
`progress-bar' spinner, except without the surrounding brackets.
CHAR is the character to use for the moving bar (defaults to =)."
  (let ((whole-string (concat (make-string (1- width) ?\s)
                              (make-string 4 (or char ?=))
                              (make-string width ?\s))))
    (apply #'vector (mapcar (lambda (n) (substring whole-string n (+ n width)))
                            (number-sequence (+ width 3) 0 -1)))))