emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

core/cli: show run duration in human-readable format

Browse source 
e.g. "Finished in 2h27m11s"

I pray for your soul if you ever see "h".
This commit is contained in:
Henrik Lissner 2021-02-12 21:43:56 -05:00
parent cf5b7adb63
commit 987da645c2
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
core/core-cli.el
View file

@ -494,8 +494,17 @@ Environment variables:
(run-hooks 'doom-cli-pre-hook) (run-hooks 'doom-cli-pre-hook)
(when (apply #'doom-cli-execute command args) (when (apply #'doom-cli-execute command args)
(run-hooks 'doom-cli-post-hook) (run-hooks 'doom-cli-post-hook)
(print! (success "Finished in %.4fs") (print! (success "Finished in %s")
(float-time (time-subtract (current-time) start-time)))))))) (let* ((duration (float-time (time-subtract (current-time) before-init-time)))
(hours (/ (truncate duration) 60 60))
(minutes (- (/ (truncate duration) 60) (* hours 60)))
(seconds (- duration (* hours 60 60) (* minutes 60))))
(string-join
(delq
nil (list (unless (zerop hours) (format "%dh" hours))
(unless (zerop minutes) (format "%dm" minutes))
(format (if (> duration 60) "%ds" "%.4fs")
seconds)))))))))))
;; TODO Not implemented yet ;; TODO Not implemented yet
(doom-cli-command-not-found-error (doom-cli-command-not-found-error
(print! (error "Command 'doom %s' not recognized") (string-join (cdr e) " ")) (print! (error "Command 'doom %s' not recognized") (string-join (cdr e) " "))