redisplay startup info summary when re-centering and refreshing spacemacs buffer
This commit is contained in:
parent
df255da69a
commit
7dfa038107
|
@ -1914,15 +1914,21 @@ to select one."
|
||||||
(configuration-layer//insert-lazy-install-form
|
(configuration-layer//insert-lazy-install-form
|
||||||
layer-name (car x) (cdr x))))))
|
layer-name (car x) (cdr x))))))
|
||||||
|
|
||||||
|
(defvar configuration-layer--spacemacs-startup-time nil
|
||||||
|
"Spacemacs full startup duration.")
|
||||||
|
|
||||||
(defun configuration-layer/display-summary (start-time)
|
(defun configuration-layer/display-summary (start-time)
|
||||||
"Display a summary of loading time."
|
"Display a summary of loading time."
|
||||||
(let ((elapsed (float-time (time-subtract (current-time) emacs-start-time)))
|
(unless configuration-layer--spacemacs-startup-time
|
||||||
(stats (configuration-layer/configured-packages-stats
|
(setq configuration-layer--spacemacs-startup-time
|
||||||
|
(float-time (time-subtract (current-time) emacs-start-time))))
|
||||||
|
(let ((stats (configuration-layer/configured-packages-stats
|
||||||
configuration-layer--used-packages)))
|
configuration-layer--used-packages)))
|
||||||
|
(spacemacs-buffer/insert-page-break)
|
||||||
(spacemacs-buffer/append
|
(spacemacs-buffer/append
|
||||||
(format "\n%s packages loaded in %.3fs (e:%s r:%s l:%s b:%s)\n"
|
(format "\n%s packages loaded in %.3fs (e:%s r:%s l:%s b:%s)\n"
|
||||||
(cadr (assq 'total stats))
|
(cadr (assq 'total stats))
|
||||||
elapsed
|
configuration-layer--spacemacs-startup-time
|
||||||
(cadr (assq 'elpa stats))
|
(cadr (assq 'elpa stats))
|
||||||
(cadr (assq 'recipe stats))
|
(cadr (assq 'recipe stats))
|
||||||
(cadr (assq 'local stats))
|
(cadr (assq 'local stats))
|
||||||
|
|
|
@ -106,8 +106,6 @@ Cate special text banner can de reachable via `998', `cat' or `random*'.
|
||||||
(spacemacs-buffer/insert-ascii-banner-centered banner))
|
(spacemacs-buffer/insert-ascii-banner-centered banner))
|
||||||
(spacemacs-buffer//inject-version))
|
(spacemacs-buffer//inject-version))
|
||||||
(spacemacs-buffer//insert-buttons)
|
(spacemacs-buffer//insert-buttons)
|
||||||
(unless (bound-and-true-p spacemacs-initialized)
|
|
||||||
(spacemacs-buffer/insert-page-break))
|
|
||||||
(spacemacs//redisplay))))
|
(spacemacs//redisplay))))
|
||||||
|
|
||||||
(defun spacemacs-buffer/display-info-box ()
|
(defun spacemacs-buffer/display-info-box ()
|
||||||
|
@ -887,6 +885,7 @@ already exist, and switch to it."
|
||||||
;; non-nil if emacs-startup-hook was run
|
;; non-nil if emacs-startup-hook was run
|
||||||
(if (bound-and-true-p spacemacs-initialized)
|
(if (bound-and-true-p spacemacs-initialized)
|
||||||
(progn
|
(progn
|
||||||
|
(configuration-layer/display-summary emacs-start-time)
|
||||||
(when dotspacemacs-startup-lists
|
(when dotspacemacs-startup-lists
|
||||||
(spacemacs-buffer/insert-startupify-lists))
|
(spacemacs-buffer/insert-startupify-lists))
|
||||||
(spacemacs-buffer//insert-footer)
|
(spacemacs-buffer//insert-footer)
|
||||||
|
|
Loading…
Reference in a new issue