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

Merge pull request from DamienCassou/fix-report-again

Browse source 
Fix report again after revert
GitHub-reference: https://github.com/jwiegley/use-package/issues/647
This commit is contained in:
John Wiegley 2018-03-12 23:35:01 -07:00 • committed by GitHub
commit 742cf27b0e
1 changed files with 24 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -43,6 +43,12 @@
(require 'cl-lib)
(require 'tabulated-list)
(if (and (eq emacs-major-version 24) (eq emacs-minor-version 3))
(defsubst hash-table-keys (hash-table)
"Return a list of keys in HASH-TABLE."
(cl-loop for k being the hash-keys of hash-table collect k))
(require 'subr-x))
(eval-when-compile
(require 'cl)
(require 'regexp-opt))
@ -966,27 +972,27 @@ If RECURSED is non-nil, recurse into sublists."
(setq use-package-statistics (make-hash-table)))
(defun use-package-statistics-status (package)
"Return loading configuration status of PACKAGE."
(cond ((gethash :config statistics) "Configured")
((gethash :init statistics) "Initialized")
((gethash :preface statistics) "Prefaced")
((gethash :use-package statistics) "Declared")))
"Return loading configuration status of PACKAGE statistics."
(cond ((gethash :config package) "Configured")
((gethash :init package) "Initialized")
((gethash :preface package) "Prefaced")
((gethash :use-package package) "Declared")))
(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."
(format-time-string "%Y-%m-%d %a %H:%M"
(or (gethash :config statistics)
(gethash :init statistics)
(gethash :preface statistics)
(gethash :use-package statistics))))
(or (gethash :config package)
(gethash :init package)
(gethash :preface package)
(gethash :use-package package))))
(defun use-package-statistics-time (package)
"Return the time is took for package to load."
(+ (float-time (gethash :config-secs statistics 0))
(float-time (gethash :init-secs statistics 0))
(float-time (gethash :preface-secs statistics 0))
(float-time (gethash :use-package-secs statistics 0))))
"Return the time is took for PACKAGE to load."
(+ (float-time (gethash :config-secs package 0))
(float-time (gethash :init-secs package 0))
(float-time (gethash :preface-secs package 0))
(float-time (gethash :use-package-secs package 0))))
(defun use-package-statistics-convert (package)
"Return information about PACKAGE.
@ -998,9 +1004,9 @@ The information is formatted in a way suitable for
package
(vector
(symbol-name package)
(use-package-statistics-status package)
(use-package-statistics-last-event package)
(format "%.2f" (use-package-statistics-time package))))))
(use-package-statistics-status statistics)
(use-package-statistics-last-event statistics)
(format "%.2f" (use-package-statistics-time statistics))))))
(defun use-package-report ()
"Show current statistics gathered about use-package declarations.