diff --git a/core/core-packages.el b/core/core-packages.el index ae3e2192d..d207996e9 100644 --- a/core/core-packages.el +++ b/core/core-packages.el @@ -566,9 +566,7 @@ loads MODULE SUBMODULE's packages.el file." t))) (defun doom-packages--async-run (fn) - (let* ((default-directory doom-emacs-dir) - (compilation-filter-hook - (list (lambda () (ansi-color-apply-on-region compilation-filter-start (point)))))) + (let* ((default-directory doom-emacs-dir)) (compile (format "%s --quick --batch -l core/core.el -f %s" (executable-find "emacs") (symbol-name fn))) diff --git a/core/core-ui.el b/core/core-ui.el index 14dc67585..89b205404 100644 --- a/core/core-ui.el +++ b/core/core-ui.el @@ -506,6 +506,10 @@ confirmation." t)) (setq confirm-kill-emacs #'doom-quit-p) +(defun doom|ansi-color-apply () + "TODO" + (ansi-color-apply-on-region compilation-filter-start (point))) + (defun doom|no-fringes-in-minibuffer () "Disable fringes in the minibuffer window." (set-window-fringes (minibuffer-window) 0 0 nil)) @@ -567,6 +571,8 @@ windows, switch to `doom-fallback-buffer'. Otherwise, delegate to original (add-hook 'kill-buffer-query-functions #'doom|protect-visible-buffers) ;; Renames major-modes [pedantry intensifies] (add-hook 'after-change-major-mode-hook #'doom|set-mode-name) + ;; Ensure ansi codes in compilation buffers are replaced + (add-hook 'compilation-filter-hook #'doom|ansi-color-apply) ;; (run-hooks 'doom-init-ui-hook))