107 lines
4.5 KiB
Bash
Executable File
107 lines
4.5 KiB
Bash
Executable File
#!/usr/bin/env sh
|
|
:; ( echo "$EMACS" | grep -q "term" ) && EMACS=emacs || EMACS=${EMACS:-emacs} # -*-emacs-lisp-*-
|
|
:; command -v $EMACS >/dev/null || { >&2 echo "Can't find emacs in your PATH"; exit 1; }
|
|
:; VERSION=$($EMACS --version | head -n1)
|
|
:; case "$VERSION" in *\ 2[0-5].[0-9]) echo "Detected Emacs $VERSION"; echo "Doom only supports Emacs 26.1 and newer"; echo; exit 2 ;; esac
|
|
:; DOOMBASE="$(dirname "$0")/.."
|
|
:; [ "$1" = -d ] || [ "$1" = --debug ] && { shift; export DEBUG=1; }
|
|
:; [ "$1" = run ] && { cd "$DOOMBASE"; shift; exec $EMACS -q --no-splash -l bin/doom "$@"; exit 0; }
|
|
:; exec $EMACS --script "$0" -- "$@"
|
|
:; exit 0
|
|
|
|
(let* ((loaddir (file-name-directory (file-truename load-file-name)))
|
|
(emacsdir (getenv "EMACSDIR"))
|
|
(user-emacs-directory (or emacsdir (expand-file-name "../" loaddir)))
|
|
(load-prefer-newer t))
|
|
|
|
(push (expand-file-name "core" user-emacs-directory) load-path)
|
|
(require 'core)
|
|
(require 'core-cli)
|
|
|
|
(defcli! :main
|
|
((help-p ["-h" "--help"] "Same as help command")
|
|
(debug-p ["-d" "--debug"] "Turns on doom-debug-mode (and debug-on-error)")
|
|
(yes-p ["-y" "--yes"] "Auto-accept all confirmation prompts")
|
|
(emacsdir ["--emacsdir" dir] "Use the emacs config at DIR (e.g. ~/.emacs.d)")
|
|
(doomdir ["--doomdir" dir] "Use the private module at DIR (e.g. ~/.doom.d)")
|
|
(localdir ["--localdir" dir] "Use DIR as your local storage directory")
|
|
&optional command &rest args)
|
|
"A command line interface for managing Doom Emacs.
|
|
|
|
Includes package management, diagnostics, unit tests, and byte-compilation.
|
|
|
|
This tool also makes it trivial to launch Emacs out of a different folder or
|
|
with a different private module."
|
|
:bare t
|
|
(when emacsdir
|
|
(setq user-emacs-directory (file-name-as-directory emacsdir))
|
|
(print! (info "EMACSDIR=%s") localdir))
|
|
(when doomdir
|
|
(setenv "DOOMDIR" doomdir)
|
|
(print! (info "DOOMDIR=%s") localdir))
|
|
(when localdir
|
|
(setenv "DOOMLOCALDIR" localdir)
|
|
(print! (info "DOOMLOCALDIR=%s") localdir))
|
|
(when debug-p
|
|
(setenv "DEBUG" "1")
|
|
(setq doom-debug-mode t)
|
|
(print! (info "Debug mode on")))
|
|
(when yes-p
|
|
(setenv "YES" "1")
|
|
(setq doom-auto-accept t)
|
|
(print! (info "Auto-yes on")))
|
|
(when help-p
|
|
(push command args)
|
|
(setq command "help"))
|
|
|
|
;; Reload core in case any of the directories were changed.
|
|
(when (or emacsdir doomdir localdir)
|
|
(load! "core/core.el" user-emacs-directory))
|
|
|
|
(cond ((not noninteractive)
|
|
(print! "Doom launched out of %s (test mode)" (path user-emacs-directory))
|
|
(load! "init.el" user-emacs-directory)
|
|
(doom-run-all-startup-hooks-h))
|
|
|
|
((null command)
|
|
(doom-cli-execute "help"))
|
|
|
|
((condition-case e
|
|
(let ((start-time (current-time)))
|
|
(and (doom-cli-execute command args)
|
|
(print! (success "Finished! (%.4fs)")
|
|
(float-time
|
|
(time-subtract (current-time)
|
|
start-time)))))
|
|
(user-error
|
|
(print! (error "%s\n") (error-message-string e))
|
|
(print! (yellow "See 'doom help %s' for documentation on this command.") (car args))
|
|
(error "")) ; Ensure non-zero exit code
|
|
((debug error)
|
|
(print! (error "There was an unexpected error:"))
|
|
(print-group!
|
|
(print! "%s %s" (bold "Type:") (car e))
|
|
(print! (bold "Message:"))
|
|
(print-group!
|
|
(print! "%s" (get (car e) 'error-message)))
|
|
(print! (bold "Data:"))
|
|
(print-group!
|
|
(if (cdr e)
|
|
(dolist (item (cdr e))
|
|
(print! "%S" item))
|
|
(print! "n/a"))))
|
|
(unless debug-on-error
|
|
(terpri)
|
|
(print!
|
|
(concat "Run the command again with the -d (or --debug) switch to enable debug\n"
|
|
"mode and (hopefully) generate a backtrace from this error:\n"
|
|
"\n %s\n\n"
|
|
"If you file a bug report, please include it!")
|
|
(string-join (append (list (file-name-nondirectory load-file-name) "-d" command)
|
|
args)
|
|
" "))
|
|
(error ""))))))) ; Ensure non-zero exit code
|
|
|
|
(doom-cli-execute :main (cdr (member "--" argv)))
|
|
(setq argv nil))
|