9bea168cc1
- Use message library instead of reinventing the wheel - Fix -d/--debug support for `bin/doom doctor` - Add indent and autofill support to print! and format! - Add doom-message-backend for forcing format! to use a specific backend - Phase out anaphoric when! macro in doctor scripts, it was hardly used
109 lines
4.9 KiB
Bash
Executable File
109 lines
4.9 KiB
Bash
Executable File
#!/usr/bin/env bash
|
|
":"; [[ $EMACS = *"term"* ]] && EMACS=emacs || EMACS=${EMACS:-emacs} # -*-emacs-lisp-*-
|
|
":"; command -v $EMACS >/dev/null || { >&2 echo "Emacs isn't installed"; exit 1; }
|
|
":"; VERSION=$($EMACS --version | head -n1)
|
|
":"; [[ $VERSION == *\ 2[0-2].[0-1].[0-9] ]] && { echo "You're running $VERSION"; echo "That version is too old to run Doom. Check your PATH"; echo; exit 2; }
|
|
":"; DOOMBASE=$(dirname "${BASH_SOURCE:-${(%):-%x}}")/..
|
|
":"; [[ $1 == -d || $1 == --debug ]] && { shift; export DEBUG=1; }
|
|
":"; [[ $1 == doc || $1 == doctor ]] && { cd "$DOOMBASE"; shift; exec $EMACS --script bin/doom-doctor "$@"; exit 0; }
|
|
":"; [[ $1 == run ]] && { cd "$DOOMBASE"; shift; exec $EMACS -q --no-splash -l bin/doom "$@"; exit 0; }
|
|
":"; exec $EMACS --script "$0" -- $@
|
|
":"; exit 0
|
|
|
|
(defun usage ()
|
|
(with-temp-buffer
|
|
(insert (format! "%s %s [COMMAND] [ARGS...]\n"
|
|
(bold "Usage:")
|
|
(file-name-nondirectory load-file-name))
|
|
"\n"
|
|
"A command line interface for managing Doom Emacs; including\n"
|
|
"package management, diagnostics, unit tests, and byte-compilation.\n"
|
|
"\n"
|
|
"This tool also makes it trivial to launch Emacs out of a different\n"
|
|
"folder or with a different private module.\n"
|
|
"\n"
|
|
(format! (bold "Example:\n"))
|
|
" doom install\n"
|
|
" doom help update\n"
|
|
" doom compile :core lang/php lang/python\n"
|
|
" doom run\n"
|
|
" doom run -nw file.txt file2.el\n"
|
|
" doom run -p ~/.other.doom.d -e ~/.other.emacs.d -nw file.txt\n"
|
|
"\n"
|
|
(format! (bold "Options:\n"))
|
|
" -h --help\t\tSame as help command\n"
|
|
" -d --debug\t\tTurns on doom-debug-mode (and debug-on-error)\n"
|
|
" -e --emacsd DIR\tUse the emacs config at DIR (e.g. ~/.emacs.d)\n"
|
|
" -i --insecure\t\tDisable TLS/SSL validation (not recommended)\n"
|
|
" -p --private DIR\tUse the private module at DIR (e.g. ~/.doom.d)\n"
|
|
" -y --yes\t\tAuto-accept all confirmation prompts\n\n")
|
|
(princ (buffer-string)))
|
|
(doom--dispatch-help))
|
|
|
|
;;
|
|
(let ((args (cdr (cdr (cdr command-line-args))))
|
|
(emacs-dir (or (getenv "EMACSDIR")
|
|
(expand-file-name "../" (file-name-directory (file-truename load-file-name))))))
|
|
;; Parse options
|
|
(while (ignore-errors (string-prefix-p "-" (car args)))
|
|
(pcase (pop args)
|
|
((or "-h" "--help")
|
|
(push "help" args))
|
|
((or "-d" "--debug")
|
|
(setenv "DEBUG" "1")
|
|
(message "Debug mode on"))
|
|
((or "-i" "--insecure")
|
|
(setenv "INSECURE" "1")
|
|
(message "Insecure mode on"))
|
|
((or "-p" "--private")
|
|
(setq doom-private-dir (expand-file-name (concat (pop args) "/")))
|
|
(setenv "DOOMDIR" doom-private-dir)
|
|
(message "DOOMDIR changed to %s" doom-private-dir)
|
|
(or (file-directory-p doom-private-dir)
|
|
(message "Warning: %s does not exist"
|
|
(abbreviate-file-name doom-private-dir))))
|
|
((or "-e" "--emacsd")
|
|
(setq emacs-dir (expand-file-name (concat (pop args) "/")))
|
|
(message "Emacs directory changed to %s" emacs-dir))
|
|
((or "-y" "--yes")
|
|
(setenv "YES" "1")
|
|
(message "Auto-yes mode on"))))
|
|
|
|
(or (file-directory-p emacs-dir)
|
|
(error "%s does not exist" emacs-dir))
|
|
|
|
;; Bootstrap Doom
|
|
(load (expand-file-name "init" emacs-dir)
|
|
nil 'nomessage)
|
|
|
|
(cond ((not noninteractive)
|
|
(doom|run-all-startup-hooks))
|
|
((and (not (cdr args))
|
|
(member (car args) '("help" "h")))
|
|
(usage))
|
|
((not args)
|
|
(message "No command detected, aborting!\n\nRun %s help for documentation."
|
|
(file-name-nondirectory load-file-name)))
|
|
((let ((default-directory emacs-dir))
|
|
(setq argv nil
|
|
noninteractive 'doom)
|
|
(condition-case e
|
|
(doom-dispatch (car args) (cdr args))
|
|
(user-error
|
|
(signal (car e) (cdr e)))
|
|
((debug error)
|
|
(message "--------------------------------------------------\n")
|
|
(message "There was an unexpected error:")
|
|
(message " %s (%s)" (get (car e) 'error-message) (car e))
|
|
(dolist (item (cdr e))
|
|
(message " %s" item))
|
|
(unless debug-on-error
|
|
(message
|
|
(concat "\nRun the command again with the -d (or --debug) option to enable debug\n"
|
|
"mode and, hopefully, generate a stack trace. If you decide to file a bug\n"
|
|
"report, please include it!\n\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"
|
|
" e.g. doom -d install 2>&1 | clipboard-program"))
|
|
(signal 'doom-error e))))))))
|