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

doom/compile: fix output macros

Browse source
This commit is contained in:
Henrik Lissner 2017-04-12 21:41:27 -04:00
parent 82447f7e08
commit 39fe6d5f86
1 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

22
core/core-packages.el
View file

@ -477,13 +477,13 @@ If ONLY-RECOMPILE-P is non-nil, only recompile out-of-date files."
(short-name (file-relative-name file doom-emacs-dir))) (short-name (file-relative-name file doom-emacs-dir)))
(cl-incf (cl-incf
(cond ((eq result 'no-byte-compile) (cond ((eq result 'no-byte-compile)
(message! (dark (white "Ignored %s" short-name))) (ansi-message! (dark (white "Ignored %s" short-name)))
total-nocomp) total-nocomp)
((null result) ((null result)
(message! (red "Failed to compile %s" short-name)) (ansi-message! (red "Failed to compile %s" short-name))
total-fail) total-fail)
(t (t
(message! (ansi-green "Compiled %s" short-name)) (ansi-message! (green "Compiled %s" short-name))
total-success)))))) total-success))))))
(dolist (path targets (reverse el-files)) (dolist (path targets (reverse el-files))
(let ((path (expand-file-name path doom-emacs-dir))) (let ((path (expand-file-name path doom-emacs-dir)))
@ -493,15 +493,15 @@ If ONLY-RECOMPILE-P is non-nil, only recompile out-of-date files."
(push path el-files)) (push path el-files))
(t (t
(error "Invalid path: %s" path)))))) (error "Invalid path: %s" path))))))
(message! (ansi-message!
(bold (bold
(ansi-apply (if (zerop total-fail) 'green 'red) (color (if (zerop total-fail) 'green 'red)
"\n---\n%s %s file(s) %s" "\n---\n%s %s file(s) %s"
(if only-recompile-p "Recompiled" "Compiled") (if only-recompile-p "Recompiled" "Compiled")
(format (if el-files "%d/%d" "%d") (format (if el-files "%d/%d" "%d")
total-success total-success
(- (length el-files) total-nocomp)) (- (length el-files) total-nocomp))
(format "(%s not compiled)" total-nocomp)))))) (format "(%s not compiled)" total-nocomp))))))
(defun doom/recompile () (defun doom/recompile ()
"Recompile any compiled *.el files in your Emacs configuration." "Recompile any compiled *.el files in your Emacs configuration."