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

Change doom-{interactive,debug}-mode suffix to -p

Browse source 
Because these are not really modes.

Also makes `doom-debug-mode` an actual (global) minor mode.
This commit is contained in:
Henrik Lissner 2020-05-25 02:58:07 -04:00
parent 4f46140226
commit 3a38fc633c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
20 changed files with 50 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

4
core/cli/autoloads.el
View file

@ -91,10 +91,10 @@ one wants that.")
(defun doom-cli--byte-compile-file (file)
(condition-case-unless-debug e
(let ((byte-compile-warnings (if doom-debug-mode byte-compile-warnings))
(let ((byte-compile-warnings (if doom-debug-p byte-compile-warnings))
(byte-compile-dynamic-docstrings t))
(when (byte-compile-file file)
(unless doom-interactive-mode
(unless doom-interactive-p
(add-hook 'doom-cli-post-success-execute-hook #'doom-cli--warn-refresh-session-h))
(load (byte-compile-dest-file file) nil t)))
(error

4
core/cli/byte-compile.el
View file

@ -92,7 +92,7 @@ If RECOMPILE-P is non-nil, only recompile out-of-date files."
;; fully loaded. Which usually aren't so in an noninteractive session.
(let ((load-prefer-newer t)
(noninteractive t)
doom-interactive-mode)
doom-interactive-p)
(doom-initialize 'force)
(quiet! (doom-initialize-packages))))
@ -180,7 +180,7 @@ module. This does not include your byte-compiled, third party packages.'"
(print-group!
(cl-loop with default-directory = doom-emacs-dir
with success = 0
with esc = (if doom-debug-mode "" "\033[1A")
with esc = (if doom-debug-p "" "\033[1A")
for path
in (append (doom-glob doom-emacs-dir "*.elc")
(doom-files-in doom-private-dir :match "\\.elc$" :depth 1)

2
core/cli/doctor.el
View file

@ -79,7 +79,7 @@ in."
(print! (start "Checking Doom Emacs..."))
(condition-case-unless-debug ex
(print-group!
(let ((doom-interactive-mode 'doctor))
(let ((doom-interactive-p 'doctor))
(doom-initialize 'force)
(doom-initialize-modules))

2
core/cli/env.el
View file

@ -95,7 +95,7 @@ default, on Linux, this is '$SHELL -ic /usr/bin/env'. Variables in
"Generating")
(path env-file))
(print-group!
(when doom-interactive-mode
(when doom-interactive-p
(user-error "'doom env' must be run on the command line, not an interactive session"))
(goto-char (point-min))
(insert

4
core/cli/packages.el
View file

@ -106,7 +106,7 @@ list remains lean."
nil (mapcar (doom-rpartial #'gethash straight--repo-cache)
(mapcar #'symbol-name straight-recipe-repositories)))
(recipe package type local-repo)
(let ((esc (unless doom-debug-mode "\033[1A"))
(let ((esc (unless doom-debug-p "\033[1A"))
(ref (straight-vc-get-commit type local-repo))
newref output)
(print! (start "\033[KUpdating recipes for %s...%s") package esc)
@ -207,7 +207,7 @@ declaration) or dependency thereof that hasn't already been."
(packages-to-rebuild (make-hash-table :test 'equal))
(repos-to-rebuild (make-hash-table :test 'equal))
(total (length recipes))
(esc (unless doom-debug-mode "\033[1A"))
(esc (unless doom-debug-p "\033[1A"))
(i 0)
errors)
(when recipes