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

cli: don't repeat "Executing..." line on restart

Browse source
This commit is contained in:
Henrik Lissner 2021-05-24 17:32:46 -04:00
parent 7ec9221957
commit df3c221c73
2 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
core/core-cli.el
View file

@ -132,14 +132,15 @@ Environment variables:
(doom-cli-execute "help") (doom-cli-execute "help")
(let ((start-time (current-time))) (let ((start-time (current-time)))
(run-hooks 'doom-cli-pre-hook) (run-hooks 'doom-cli-pre-hook)
(print! (start "Executing 'doom %s' %s") (unless (getenv "__DOOMRESTART")
(string-join (print! (start "Executing 'doom %s' %s")
(cons (or (ignore-errors (string-join
(doom-cli-name (doom-cli-get command))) (cons (or (ignore-errors
command) (doom-cli-name (doom-cli-get command)))
args) command)
" ") args)
(format-time-string "%Y-%m-%d %H:%M:%S")) " ")
(format-time-string "%Y-%m-%d %H:%M:%S")))
(print-group! (print-group!
(when-let (result (apply #'doom-cli-execute command args)) (when-let (result (apply #'doom-cli-execute command args))
(run-hooks 'doom-cli-post-hook) (run-hooks 'doom-cli-post-hook)

2
modules/config/literate/autoload.el
View file

@ -77,7 +77,7 @@ byte-compiled from.")
(with-temp-file cache) (with-temp-file cache)
(if doom-interactive-p t (if doom-interactive-p t
(message "Restarting..." ) (message "Restarting..." )
(throw 'exit "__NOTANGLE=1 $@")))))) (throw 'exit "__DOOMRESTART=1 __NOTANGLE=1 $@"))))))
;;;###autoload ;;;###autoload
(defalias '+literate/reload #'doom/reload) (defalias '+literate/reload #'doom/reload)