Function: combobulate-display-indicator

combobulate-display-indicator is a natively compiled function defined in combobulate-misc.el.

Signature

(combobulate-display-indicator CURRENT-LEVEL TOTAL &optional ACTIVE-FACE DIMMED-FACE ACTIVE-INDICATOR DIMMED-INDICATOR)

Documentation

Indicate CURRENT-LEVEL within a TOTAL number of pips.

Source Code

;; Defined in /nix/store/b5fvrwzi3zvkabyzx0in6gw1cj963z46-emacs-packages-deps/share/emacs/site-lisp/combobulate-misc.el
(defun combobulate-display-indicator (current-level total &optional active-face dimmed-face active-indicator dimmed-indicator)
  "Indicate CURRENT-LEVEL within a TOTAL number of pips."
  (concat
   "("
   (mapconcat
    (lambda (level)
      (let ((current (= level current-level)))
        (propertize (if current
                        (or active-indicator (substring combobulate-proffer-indicators 1 2))
                      (or dimmed-indicator (substring combobulate-proffer-indicators 0 1)))
                    'face
                    (cond
                     (current (or active-face 'combobulate-active-indicator-face))
                     (t (or dimmed-face 'combobulate-dimmed-indicator-face))))))
    (number-sequence 0 (1- total)) " ")
   ")"))