procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added minimum load time display option

Browse source 
Makes the minimum load time before use-package displays
a message a customizable option.
This commit is contained in:
Phillip Lord 2013-02-05 21:46:02 +00:00
parent 447004740c
commit aa8d5fab19
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/use-package/use-package.el
View file

@ -276,6 +276,12 @@
:type 'boolean
:group 'use-package)
(defcustom use-package-minimum-reported-time 0.01
"Minimal load time that will be reported"
:type 'number
:group 'use-package
)
(defmacro with-elapsed-timer (text &rest forms)
`(let ((now ,(if use-package-verbose
'(current-time))))
@ -286,7 +292,7 @@
,(when use-package-verbose
`(let ((elapsed
(float-time (time-subtract (current-time) now))))
(if (> elapsed 0.01)
(if (> elapsed use-package-minimum-reported-time)
(message "%s...done (%.3fs)" ,text elapsed)
(message "%s...done" ,text)))))))