core: display a numerical progression in mode-line
Represents the number of packages to configure.
This commit is contained in:
parent
e1826c9382
commit
8368be3c89
|
@ -486,13 +486,20 @@ border."
|
||||||
`spacemacs--loading-dots-chunk-threshold'."
|
`spacemacs--loading-dots-chunk-threshold'."
|
||||||
(when dotspacemacs-loading-progress-bar
|
(when dotspacemacs-loading-progress-bar
|
||||||
(setq spacemacs-loading-counter (1+ spacemacs-loading-counter))
|
(setq spacemacs-loading-counter (1+ spacemacs-loading-counter))
|
||||||
|
(setq spacemacs-loading-value (1+ spacemacs-loading-value))
|
||||||
(when (>= spacemacs-loading-counter spacemacs-loading-dots-chunk-threshold)
|
(when (>= spacemacs-loading-counter spacemacs-loading-dots-chunk-threshold)
|
||||||
|
(let ((suffix (format "> %s/%s" spacemacs-loading-value
|
||||||
|
(length configuration-layer--packages))))
|
||||||
(setq spacemacs-loading-counter 0)
|
(setq spacemacs-loading-counter 0)
|
||||||
(setq spacemacs-loading-string
|
(setq spacemacs-loading-string
|
||||||
(concat spacemacs-loading-string
|
(make-string
|
||||||
(make-string spacemacs-loading-dots-chunk-size
|
(- (* spacemacs-loading-dots-chunk-size
|
||||||
spacemacs-loading-char)))
|
(floor (/ spacemacs-loading-value
|
||||||
(spacemacs-buffer/set-mode-line spacemacs-loading-string)
|
spacemacs-loading-dots-chunk-threshold)))
|
||||||
|
(length suffix))
|
||||||
|
spacemacs-loading-char))
|
||||||
|
(spacemacs-buffer/set-mode-line (concat spacemacs-loading-string
|
||||||
|
suffix)))
|
||||||
(spacemacs//redisplay))))
|
(spacemacs//redisplay))))
|
||||||
|
|
||||||
(defmacro spacemacs//insert--shortcut (shortcut-char search-label
|
(defmacro spacemacs//insert--shortcut (shortcut-char search-label
|
||||||
|
|
|
@ -39,6 +39,7 @@
|
||||||
(defvar spacemacs-loading-char ?█)
|
(defvar spacemacs-loading-char ?█)
|
||||||
(defvar spacemacs-loading-string "")
|
(defvar spacemacs-loading-string "")
|
||||||
(defvar spacemacs-loading-counter 0)
|
(defvar spacemacs-loading-counter 0)
|
||||||
|
(defvar spacemacs-loading-value 0)
|
||||||
;; (defvar spacemacs-loading-text "Loading")
|
;; (defvar spacemacs-loading-text "Loading")
|
||||||
;; (defvar spacemacs-loading-done-text "Ready!")
|
;; (defvar spacemacs-loading-done-text "Ready!")
|
||||||
(defvar spacemacs-loading-dots-chunk-count 3)
|
(defvar spacemacs-loading-dots-chunk-count 3)
|
||||||
|
|
Loading…
Reference in a new issue