Fix 'doom run' #1724
This commit is contained in:
parent
f90cf1f974
commit
081f09aac8
1 changed files with 38 additions and 36 deletions
12
bin/doom
12
bin/doom
|
@ -81,15 +81,17 @@
|
||||||
(error "%s does not exist" user-emacs-directory))
|
(error "%s does not exist" user-emacs-directory))
|
||||||
|
|
||||||
;; Bootstrap Doom
|
;; Bootstrap Doom
|
||||||
|
(if (not noninteractive)
|
||||||
|
(progn
|
||||||
|
(load (expand-file-name "init.el" user-emacs-directory)
|
||||||
|
nil 'nomessage)
|
||||||
|
(doom-run-all-startup-hooks-h))
|
||||||
(load (expand-file-name "core/core.el" user-emacs-directory)
|
(load (expand-file-name "core/core.el" user-emacs-directory)
|
||||||
nil 'nomessage)
|
nil 'nomessage)
|
||||||
|
|
||||||
(doom-initialize 'force-p)
|
(doom-initialize 'force-p)
|
||||||
(doom-initialize-modules)
|
(doom-initialize-modules)
|
||||||
|
|
||||||
(cond ((not noninteractive)
|
(cond ((and (not (cdr args))
|
||||||
(doom-run-all-startup-hooks-h))
|
|
||||||
((and (not (cdr args))
|
|
||||||
(member (car args) '("help" "h")))
|
(member (car args) '("help" "h")))
|
||||||
(usage))
|
(usage))
|
||||||
((not args)
|
((not args)
|
||||||
|
@ -117,4 +119,4 @@
|
||||||
"Emacs outputs to standard error, so you'll need to redirect stderr to\n"
|
"Emacs outputs to standard error, so you'll need to redirect stderr to\n"
|
||||||
"stdout to pipe this to a file or clipboard!\n\n"
|
"stdout to pipe this to a file or clipboard!\n\n"
|
||||||
" e.g. doom -d install 2>&1 | clipboard-program"))
|
" e.g. doom -d install 2>&1 | clipboard-program"))
|
||||||
(signal 'doom-error e))))))))
|
(signal 'doom-error e)))))))))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue