masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 11:49:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Revert "Fix report"

Browse source
This commit is contained in:
John Wiegley 2018-03-11 21:37:02 -07:00 • committed by GitHub
parent b1429951b1
commit cba5a11368
1 changed files with 18 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

37
lisp/use-package/use-package-core.el
View file

@ -42,7 +42,6 @@
(require 'bytecomp) (require 'bytecomp)
(require 'cl-lib) (require 'cl-lib)
(require 'tabulated-list) (require 'tabulated-list)
(require 'subr-x)
(eval-when-compile (eval-when-compile
(require 'cl) (require 'cl)
@ -967,27 +966,27 @@ If RECURSED is non-nil, recurse into sublists."
(setq use-package-statistics (make-hash-table))) (setq use-package-statistics (make-hash-table)))
(defun use-package-statistics-status (package) (defun use-package-statistics-status (package)
"Return loading configuration status of PACKAGE statistics." "Return loading configuration status of PACKAGE."
(cond ((gethash :config package) "Configured") (cond ((gethash :config statistics) "Configured")
((gethash :init package) "Initialized") ((gethash :init statistics) "Initialized")
((gethash :preface package) "Prefaced") ((gethash :preface statistics) "Prefaced")
((gethash :use-package package) "Declared"))) ((gethash :use-package statistics) "Declared")))
(defun use-package-statistics-last-event (package) (defun use-package-statistics-last-event (package)
"Return the date when PACKAGE's status last changed. "Return the date when package's status last changed.
The date is returned as a string." The date is returned as a string."
(format-time-string "%Y-%m-%d %a %H:%M" (format-time-string "%Y-%m-%d %a %H:%M"
(or (gethash :config package) (or (gethash :config statistics)
(gethash :init package) (gethash :init statistics)
(gethash :preface package) (gethash :preface statistics)
(gethash :use-package package)))) (gethash :use-package statistics))))
(defun use-package-statistics-time (package) (defun use-package-statistics-time (package)
"Return the time is took for PACKAGE to load." "Return the time is took for package to load."
(+ (float-time (gethash :config-secs package 0)) (+ (float-time (gethash :config-secs statistics 0))
(float-time (gethash :init-secs package 0)) (float-time (gethash :init-secs statistics 0))
(float-time (gethash :preface-secs package 0)) (float-time (gethash :preface-secs statistics 0))
(float-time (gethash :use-package-secs package 0)))) (float-time (gethash :use-package-secs statistics 0))))
(defun use-package-statistics-convert (package) (defun use-package-statistics-convert (package)
"Return information about PACKAGE. "Return information about PACKAGE.
@ -999,9 +998,9 @@ The information is formatted in a way suitable for
package package
(vector (vector
(symbol-name package) (symbol-name package)
(use-package-statistics-status statistics) (use-package-statistics-status package)
(use-package-statistics-last-event statistics) (use-package-statistics-last-event package)
(format "%.2f" (use-package-statistics-time statistics)))))) (format "%.2f" (use-package-statistics-time package))))))
(defun use-package-report () (defun use-package-report ()
"Show current statistics gathered about use-package declarations. "Show current statistics gathered about use-package declarations.