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

Add unicode symbols to package management output

Browse source
This commit is contained in:
Henrik Lissner 2017-12-20 20:07:46 -05:00
parent 4af354c693
commit 4e83cd516c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

13
core/autoload/packages.el
View file

@ -354,14 +354,14 @@ package.el as appropriate."
(dolist (pkg packages) (dolist (pkg packages)
(message! "Installing %s" (car pkg)) (message! "Installing %s" (car pkg))
(doom--condition-case! (doom--condition-case!
(message! " %s%s" (message! "%s%s"
(cond ((and (package-installed-p (car pkg)) (cond ((and (package-installed-p (car pkg))
(not (doom-package-different-backend-p (car pkg)))) (not (doom-package-different-backend-p (car pkg))))
(dark (white "ALREADY INSTALLED"))) (dark (white "⚠ ALREADY INSTALLED")))
((doom-install-package (car pkg) (cdr pkg)) ((doom-install-package (car pkg) (cdr pkg))
(green "DONE")) (green "✓ DONE"))
(t (t
(red "FAILED"))) (red "✕ FAILED")))
(if (plist-member (cdr pkg) :pin) (if (plist-member (cdr pkg) :pin)
(format " [pinned: %s]" (plist-get (cdr pkg) :pin)) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))
""))))) "")))))
@ -404,8 +404,7 @@ package.el as appropriate."
(message! (message!
(let ((result (doom-update-package (car pkg) t))) (let ((result (doom-update-package (car pkg) t)))
(color (if result 'green 'red) (color (if result 'green 'red)
" %s" (if result "✓ DONE" "✕ FAILED"))))))
(if result "DONE" "FAILED"))))))
(message! (bold (green "Finished!"))) (message! (bold (green "Finished!")))
(doom//reload-load-path))))) (doom//reload-load-path)))))
@ -446,7 +445,7 @@ package.el as appropriate."
(let ((result (doom-delete-package pkg t))) (let ((result (doom-delete-package pkg t)))
(color (if result 'green 'red) (color (if result 'green 'red)
"%s %s" "%s %s"
(if result "Removed" "Failed to remove") (if result "✓ Removed" "✕ Failed to remove")
pkg))))) pkg)))))
(message! (bold (green "Finished!"))) (message! (bold (green "Finished!")))

12
core/core-packages.el
View file

@ -572,11 +572,11 @@ This should be run whenever init.el or an autoload file is modified. Running
(message "Deleted old autoloads.el")) (message "Deleted old autoloads.el"))
(dolist (file (reverse targets)) (dolist (file (reverse targets))
(message (cond ((not (doom-packages--read-if-cookies file)) (message (cond ((not (doom-packages--read-if-cookies file))
"Ignoring %s") "⚠ Ignoring %s")
((update-file-autoloads file nil doom-autoload-file) ((update-file-autoloads file nil doom-autoload-file)
"Nothing in %s") "✕ Nothing in %s")
(t (t
"Scanned %s")) "✓ Scanned %s"))
(file-relative-name file doom-emacs-dir))) (file-relative-name file doom-emacs-dir)))
(let ((buf (get-file-buffer doom-autoload-file)) (let ((buf (get-file-buffer doom-autoload-file))
current-sexp) current-sexp)
@ -657,13 +657,13 @@ If RECOMPILE-P is non-nil, only recompile out-of-date files."
(short-name (file-relative-name target doom-emacs-dir))) (short-name (file-relative-name target 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))) (message! (dark (white "⚠ Ignored %s" short-name)))
total-noop) total-noop)
((null result) ((null result)
(message! (red "Failed to compile %s" short-name)) (message! (red "✕ Failed to compile %s" short-name))
total-fail) total-fail)
(t (t
(message! (green "Compiled %s" short-name)) (message! (green "✓ Compiled %s" short-name))
(quiet! (load target t t)) (quiet! (load target t t))
total-ok)))))) total-ok))))))
(message! (message!