TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

redisplay startup info summary when re-centering and refreshing spacemacs buffer

This commit is contained in:
deb0ch 2016-08-25 15:10:45 +02:00 committed by Eivind Fonn
parent df255da69a
commit 7dfa038107
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
core/core-configuration-layer.el
View File

@ -1914,15 +1914,21 @@ to select one."
(configuration-layer//insert-lazy-install-form
layer-name (car x) (cdr x))))))
(defvar configuration-layer--spacemacs-startup-time nil
"Spacemacs full startup duration.")
(defun configuration-layer/display-summary (start-time)
"Display a summary of loading time."
(let ((elapsed (float-time (time-subtract (current-time) emacs-start-time)))
(stats (configuration-layer/configured-packages-stats
(unless configuration-layer--spacemacs-startup-time
(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)))
(spacemacs-buffer/insert-page-break)
(spacemacs-buffer/append
(format "\n%s packages loaded in %.3fs (e:%s r:%s l:%s b:%s)\n"
(cadr (assq 'total stats))
elapsed
configuration-layer--spacemacs-startup-time
(cadr (assq 'elpa stats))
(cadr (assq 'recipe stats))
(cadr (assq 'local stats))

3
core/core-spacemacs-buffer.el
View File

@ -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//inject-version))
(spacemacs-buffer//insert-buttons)
(unless (bound-and-true-p spacemacs-initialized)
(spacemacs-buffer/insert-page-break))
(spacemacs//redisplay))))
(defun spacemacs-buffer/display-info-box ()
@ -887,6 +885,7 @@ already exist, and switch to it."
;; non-nil if emacs-startup-hook was run
(if (bound-and-true-p spacemacs-initialized)
(progn
(configuration-layer/display-summary emacs-start-time)
(when dotspacemacs-startup-lists
(spacemacs-buffer/insert-startupify-lists))
(spacemacs-buffer//insert-footer)