API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 7th, 2019
67
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 268.66 KB | None | 0 0
raw download clone embed print report
  1. "hlissner/emacs-snippets" :files ("*")))
  2.   (let (quelpa-upgrade-p) (quelpa recipe))
  3.   (condition-case e (let (quelpa-upgrade-p) (quelpa recipe)) ((debug error) (doom--delete-package-files name) (signal (car e) (cdr e))))
  4.   (if recipe (condition-case e (let (quelpa-upgrade-p) (quelpa recipe)) ((debug error) (doom--delete-package-files name) (signal (car e) (cdr e)))) (package-install name))
  5.   (let* ((recipe (and t (plist-get plist :recipe)))) (if recipe (condition-case e (let (quelpa-upgrade-p) (quelpa recipe)) ((debug error) (doom--delete-package-files name) (signal (car e) (cdr e)))) (package-install name)))
  6.   (let* ((inhibit-message (not doom-debug-mode)) (plist (or plist (cdr (assq name doom-packages))))) (let* ((recipe (and t (plist-get plist :recipe)))) (if recipe (condition-case e (let (quelpa-upgrade-p) (quelpa recipe)) ((debug error) (doom--delete-package-files name) (signal (car e) (cdr e)))) (package-install name))) (if (not (package-installed-p name)) (doom--delete-package-files name) (let* ((p (if (and nil (not (eq nil 'eq))) (assoc name doom-packages nil) (assq name doom-packages))) (v plist)) (if p (setcdr p v) (setq doom-packages (cons (setq p (cons name v)) doom-packages)))) name))
  7.   doom-install-package(emacs-snippets (:recipe (emacs-snippets :fetcher github :repo "hlissner/emacs-snippets" :files ("*"))))
  8.   (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success)
  9.   (or (and (doom-package-installed-p (car pkg)) (not (doom-package-different-backend-p (car pkg))) (not (doom-package-different-recipe-p (car pkg))) 'already-installed) (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success) 'failure)
  10.   (let ((result (or (and (doom-package-installed-p (car pkg)) (not (doom-package-different-backend-p (car pkg))) (not (doom-package-different-recipe-p (car pkg))) 'already-installed) (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success) 'failure)) (pin-label (and (plist-member (cdr pkg) :pin) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (terpri)))
  11.   (progn (let ((result (or (and (doom-package-installed-p (car pkg)) (not (doom-package-different-backend-p (car pkg))) (not (doom-package-different-recipe-p (car pkg))) 'already-installed) (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success) 'failure)) (pin-label (and (plist-member (cdr pkg) :pin) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (terpri))))
  12.   (condition-case e (progn (let ((result (or (and (doom-package-installed-p (car pkg)) (not (doom-package-different-backend-p (car pkg))) (not (doom-package-different-recipe-p (car pkg))) 'already-installed) (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success) 'failure)) (pin-label (and (plist-member (cdr pkg) :pin) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (terpri)))) ((debug quote user-error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  NOTICE: %s")) e)))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  NOTICE: %s")) e)))) (terpri))) ((debug quote file-error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FILE ERROR: %s")) (error-message-string e))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FILE ERROR: %s")) (error-message-string e))))) (terpri)) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "  Trying again...")))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "  Trying again...")))) (terpri)) (cond (noninteractive (let ((old-fn (symbol-function 'write-region))) (let* ((vnew (function (lambda (&rest _)))) (vnew (function (lambda (file) (load file nil t)))) (vnew (function (lambda (&rest _)))) (vnew (function (lambda (start end filename &optional append visit lockname mustbenew) (if visit nil (setq visit 'no-message)) (funcall old-fn start end filename append visit lockname mustbenew)))) (old (symbol-function 'write-region)) (old (symbol-function 'message)) (old (symbol-function 'load-file)) (standard-output vnew)) (unwind-protect (progn (fset 'write-region vnew) (fset 'message vnew) (fset 'load-file vnew) (doom-refresh-packages-maybe t)) (fset 'write-region old) (fset 'message old) (fset 'load-file old))))) ((or doom-debug-mode debug-on-error debug-on-quit) (doom-refresh-packages-maybe t)) ((let ((inhibit-message t) (save-silently t)) (doom-refresh-packages-maybe t) (message "")))) (let ((result (or (and (doom-package-installed-p (car pkg)) (not (doom-package-different-backend-p (car pkg))) (not (doom-package-different-recipe-p (car pkg))) 'already-installed) (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success) 'failure)) (pin-label (and (plist-member (cdr pkg) :pin) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (terpri)))) ((debug quote error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FATAL ERROR: %s\n  Run again with the -d flag for details")) e)))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FATAL ERROR: %s\n  Run again with the -d flag for details")) e)))) (terpri))))
  13.   (while --dolist-tail-- (setq pkg (car --dolist-tail--)) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "Installing %s" (car pkg))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "Installing %s" (car pkg))))) (terpri)) (condition-case e (progn (let ((result (or (and (doom-package-installed-p (car pkg)) (not (doom-package-different-backend-p (car pkg))) (not (doom-package-different-recipe-p (car pkg))) 'already-installed) (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success) 'failure)) (pin-label (and (plist-member (cdr pkg) :pin) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (terpri)))) ((debug quote user-error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  NOTICE: %s")) e)))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  NOTICE: %s")) e)))) (terpri))) ((debug quote file-error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FILE ERROR: %s")) (error-message-string e))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FILE ERROR: %s")) (error-message-string e))))) (terpri)) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "  Trying again...")))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "  Trying again...")))) (terpri)) (cond (noninteractive (let ((old-fn (symbol-function 'write-region))) (let* ((vnew (function (lambda (&rest _)))) (vnew (function (lambda (file) (load file nil t)))) (vnew (function (lambda (&rest _)))) (vnew (function (lambda (start end filename &optional append visit lockname mustbenew) (if visit nil (setq visit 'no-message)) (funcall old-fn start end filename append visit lockname mustbenew)))) (old (symbol-function 'write-region)) (old (symbol-function 'message)) (old (symbol-function 'load-file)) (standard-output vnew)) (unwind-protect (progn (fset 'write-region vnew) (fset 'message vnew) (fset 'load-file vnew) (doom-refresh-packages-maybe t)) (fset 'write-region old) (fset 'message old) (fset 'load-file old))))) ((or doom-debug-mode debug-on-error debug-on-quit) (doom-refresh-packages-maybe t)) ((let ((inhibit-message t) (save-silently t)) (doom-refresh-packages-maybe t) (message "")))) (let ((result (or (and (doom-package-installed-p (car pkg)) (not (doom-package-different-backend-p (car pkg))) (not (doom-package-different-recipe-p (car pkg))) 'already-installed) (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success) 'failure)) (pin-label (and (plist-member (cdr pkg) :pin) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (terpri)))) ((debug quote error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FATAL ERROR: %s\n  Run again with the -d flag for details")) e)))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FATAL ERROR: %s\n  Run again with the -d flag for details")) e)))) (terpri)))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  14.   (let ((--dolist-tail-- packages) pkg) (while --dolist-tail-- (setq pkg (car --dolist-tail--)) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "Installing %s" (car pkg))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "Installing %s" (car pkg))))) (terpri)) (condition-case e (progn (let ((result (or (and (doom-package-installed-p (car pkg)) (not (doom-package-different-backend-p (car pkg))) (not (doom-package-different-recipe-p (car pkg))) 'already-installed) (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success) 'failure)) (pin-label (and (plist-member (cdr pkg) :pin) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (terpri)))) ((debug quote user-error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  NOTICE: %s")) e)))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  NOTICE: %s")) e)))) (terpri))) ((debug quote file-error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FILE ERROR: %s")) (error-message-string e))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FILE ERROR: %s")) (error-message-string e))))) (terpri)) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "  Trying again...")))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "  Trying again...")))) (terpri)) (cond (noninteractive (let ((old-fn (symbol-function 'write-region))) (let* ((vnew (function (lambda (&rest _)))) (vnew (function (lambda (file) (load file nil t)))) (vnew (function (lambda (&rest _)))) (vnew (function (lambda (start end filename &optional append visit lockname mustbenew) (if visit nil (setq visit 'no-message)) (funcall old-fn start end filename append visit lockname mustbenew)))) (old (symbol-function 'write-region)) (old (symbol-function 'message)) (old (symbol-function 'load-file)) (standard-output vnew)) (unwind-protect (progn (fset 'write-region vnew) (fset 'message vnew) (fset 'load-file vnew) (doom-refresh-packages-maybe t)) (fset 'write-region old) (fset 'message old) (fset 'load-file old))))) ((or doom-debug-mode debug-on-error debug-on-quit) (doom-refresh-packages-maybe t)) ((let ((inhibit-message t) (save-silently t)) (doom-refresh-packages-maybe t) (message "")))) (let ((result (or (and (doom-package-installed-p (car pkg)) (not (doom-package-different-backend-p (car pkg))) (not (doom-package-different-recipe-p (car pkg))) 'already-installed) (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success) 'failure)) (pin-label (and (plist-member (cdr pkg) :pin) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (terpri)))) ((debug quote error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FATAL ERROR: %s\n  Run again with the -d flag for details")) e)))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FATAL ERROR: %s\n  Run again with the -d flag for details")) e)))) (terpri)))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  15.   (let (success) (doom-refresh-packages-maybe doom-debug-mode) (let ((--dolist-tail-- packages) pkg) (while --dolist-tail-- (setq pkg (car --dolist-tail--)) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "Installing %s" (car pkg))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "Installing %s" (car pkg))))) (terpri)) (condition-case e (progn (let ((result (or (and (doom-package-installed-p (car pkg)) (not (doom-package-different-backend-p (car pkg))) (not (doom-package-different-recipe-p (car pkg))) 'already-installed) (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success) 'failure)) (pin-label (and (plist-member (cdr pkg) :pin) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (terpri)))) ((debug quote user-error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  NOTICE: %s")) e)))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  NOTICE: %s")) e)))) (terpri))) ((debug quote file-error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FILE ERROR: %s")) (error-message-string e))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FILE ERROR: %s")) (error-message-string e))))) (terpri)) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "  Trying again...")))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "  Trying again...")))) (terpri)) (cond (noninteractive (let ((old-fn (symbol-function 'write-region))) (let* ((vnew (function (lambda (&rest _)))) (vnew (function (lambda (file) (load file nil t)))) (vnew (function (lambda (&rest _)))) (vnew (function (lambda (start end filename &optional append visit lockname mustbenew) (if visit nil (setq visit 'no-message)) (funcall old-fn start end filename append visit lockname mustbenew)))) (old (symbol-function 'write-region)) (old (symbol-function 'message)) (old (symbol-function 'load-file)) (standard-output vnew)) (unwind-protect (progn (fset 'write-region vnew) (fset 'message vnew) (fset 'load-file vnew) (doom-refresh-packages-maybe t)) (fset 'write-region old) (fset 'message old) (fset 'load-file old))))) ((or doom-debug-mode debug-on-error debug-on-quit) (doom-refresh-packages-maybe t)) ((let ((inhibit-message t) (save-silently t)) (doom-refresh-packages-maybe t) (message "")))) (let ((result (or (and (doom-package-installed-p (car pkg)) (not (doom-package-different-backend-p (car pkg))) (not (doom-package-different-recipe-p (car pkg))) 'already-installed) (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success) 'failure)) (pin-label (and (plist-member (cdr pkg) :pin) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (terpri)))) ((debug quote error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FATAL ERROR: %s\n  Run again with the -d flag for details")) e)))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FATAL ERROR: %s\n  Run again with the -d flag for details")) e)))) (terpri)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-green-- "Finished!")))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-green-- "Finished!")))))) (terpri)) (if success (progn (set-file-times doom-packages-dir) (doom-delete-autoloads-file doom-package-autoload-file))) success)
  16.   (cond ((not packages) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-green-- "No packages to install!"))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-green-- "No packages to install!"))))) (terpri)) nil) ((not (or auto-accept-p (y-or-n-p (format "%s packages will be installed:\n\n%s\n\nProceed?" (length packages) (mapconcat (function (lambda (pkg) (format "+ %s (%s)" (car pkg) (cond ((doom-package-different-recipe-p (car pkg)) "new recipe") ((doom-package-different-backend-p (car pkg)) (if (plist-get (cdr pkg) :recipe) "ELPA->QUELPA" "QUELPA->ELPA")) ((plist-get (cdr pkg) :recipe) "QUELPA") ("ELPA"))))) (cl-sort (cl-copy-list packages) (function string-lessp) :key (function car)) "\n"))))) (user-error "Aborted!")) ((let (success) (doom-refresh-packages-maybe doom-debug-mode) (let ((--dolist-tail-- packages) pkg) (while --dolist-tail-- (setq pkg (car --dolist-tail--)) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "Installing %s" (car pkg))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "Installing %s" (car pkg))))) (terpri)) (condition-case e (progn (let ((result (or (and (doom-package-installed-p (car pkg)) (not (doom-package-different-backend-p (car pkg))) (not (doom-package-different-recipe-p (car pkg))) 'already-installed) (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success) 'failure)) (pin-label (and (plist-member (cdr pkg) :pin) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (terpri)))) ((debug quote user-error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  NOTICE: %s")) e)))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  NOTICE: %s")) e)))) (terpri))) ((debug quote file-error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FILE ERROR: %s")) (error-message-string e))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FILE ERROR: %s")) (error-message-string e))))) (terpri)) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "  Trying again...")))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "  Trying again...")))) (terpri)) (cond (noninteractive (let ((old-fn (symbol-function 'write-region))) (let* ((vnew (function (lambda (&rest _)))) (vnew (function (lambda (file) (load file nil t)))) (vnew (function (lambda (&rest _)))) (vnew (function (lambda (start end filename &optional append visit lockname mustbenew) (if visit nil (setq visit 'no-message)) (funcall old-fn start end filename append visit lockname mustbenew)))) (old (symbol-function 'write-region)) (old (symbol-function 'message)) (old (symbol-function 'load-file)) (standard-output vnew)) (unwind-protect (progn (fset 'write-region vnew) (fset 'message vnew) (fset 'load-file vnew) (doom-refresh-packages-maybe t)) (fset 'write-region old) (fset 'message old) (fset 'load-file old))))) ((or doom-debug-mode debug-on-error debug-on-quit) (doom-refresh-packages-maybe t)) ((let ((inhibit-message t) (save-silently t)) (doom-refresh-packages-maybe t) (message "")))) (let ((result (or (and (doom-package-installed-p (car pkg)) (not (doom-package-different-backend-p (car pkg))) (not (doom-package-different-recipe-p (car pkg))) 'already-installed) (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success) 'failure)) (pin-label (and (plist-member (cdr pkg) :pin) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (terpri)))) ((debug quote error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FATAL ERROR: %s\n  Run again with the -d flag for details")) e)))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FATAL ERROR: %s\n  Run again with the -d flag for details")) e)))) (terpri)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-green-- "Finished!")))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-green-- "Finished!")))))) (terpri)) (if success (progn (set-file-times doom-packages-dir) (doom-delete-autoloads-file doom-package-autoload-file))) success)))
  17.   (let ((packages (doom-get-missing-packages))) (cond ((not packages) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-green-- "No packages to install!"))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-green-- "No packages to install!"))))) (terpri)) nil) ((not (or auto-accept-p (y-or-n-p (format "%s packages will be installed:\n\n%s\n\nProceed?" (length packages) (mapconcat (function (lambda (pkg) (format "+ %s (%s)" (car pkg) (cond ((doom-package-different-recipe-p (car pkg)) "new recipe") ((doom-package-different-backend-p (car pkg)) (if (plist-get (cdr pkg) :recipe) "ELPA->QUELPA" "QUELPA->ELPA")) ((plist-get (cdr pkg) :recipe) "QUELPA") ("ELPA"))))) (cl-sort (cl-copy-list packages) (function string-lessp) :key (function car)) "\n"))))) (user-error "Aborted!")) ((let (success) (doom-refresh-packages-maybe doom-debug-mode) (let ((--dolist-tail-- packages) pkg) (while --dolist-tail-- (setq pkg (car --dolist-tail--)) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "Installing %s" (car pkg))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "Installing %s" (car pkg))))) (terpri)) (condition-case e (progn (let ((result (or (and (doom-package-installed-p (car pkg)) (not (doom-package-different-backend-p (car pkg))) (not (doom-package-different-recipe-p (car pkg))) 'already-installed) (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success) 'failure)) (pin-label (and (plist-member (cdr pkg) :pin) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (terpri)))) ((debug quote user-error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  NOTICE: %s")) e)))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  NOTICE: %s")) e)))) (terpri))) ((debug quote file-error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FILE ERROR: %s")) (error-message-string e))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FILE ERROR: %s")) (error-message-string e))))) (terpri)) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "  Trying again...")))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "  Trying again...")))) (terpri)) (cond (noninteractive (let ((old-fn (symbol-function 'write-region))) (let* ((vnew (function (lambda (&rest _)))) (vnew (function (lambda (file) (load file nil t)))) (vnew (function (lambda (&rest _)))) (vnew (function (lambda (start end filename &optional append visit lockname mustbenew) (if visit nil (setq visit 'no-message)) (funcall old-fn start end filename append visit lockname mustbenew)))) (old (symbol-function 'write-region)) (old (symbol-function 'message)) (old (symbol-function 'load-file)) (standard-output vnew)) (unwind-protect (progn (fset 'write-region vnew) (fset 'message vnew) (fset 'load-file vnew) (doom-refresh-packages-maybe t)) (fset 'write-region old) (fset 'message old) (fset 'load-file old))))) ((or doom-debug-mode debug-on-error debug-on-quit) (doom-refresh-packages-maybe t)) ((let ((inhibit-message t) (save-silently t)) (doom-refresh-packages-maybe t) (message "")))) (let ((result (or (and (doom-package-installed-p (car pkg)) (not (doom-package-different-backend-p (car pkg))) (not (doom-package-different-recipe-p (car pkg))) 'already-installed) (and (doom-install-package (car pkg) (cdr pkg)) (setq success t) 'success) 'failure)) (pin-label (and (plist-member (cdr pkg) :pin) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format "%s%s" (cond ((eq result 'already-installed) (funcall --cl-dark-- (funcall --cl-white-- "⚠ ALREADY INSTALLED"))) ((eq result 'success) (funcall --cl-green-- "✓ DONE")) ((eq result 'failure) (funcall --cl-red-- "✕ FAILED")) (t nil)) (or pin-label ""))))) (terpri)))) ((debug quote error) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FATAL ERROR: %s\n  Run again with the -d flag for details")) e)))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-red-- "  FATAL ERROR: %s\n  Run again with the -d flag for details")) e)))) (terpri)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if (not noninteractive) (message (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-green-- "Finished!")))))) (princ (let* ((--cl-bold-- (function (lambda (message) (doom-ansi-apply 'bold message)))) (--cl-dark-- (function (lambda (message) (doom-ansi-apply 'dark message)))) (--cl-italic-- (function (lambda (message) (doom-ansi-apply 'italic message)))) (--cl-underscore-- (function (lambda (message) (doom-ansi-apply 'underscore message)))) (--cl-blink-- (function (lambda (message) (doom-ansi-apply 'blink message)))) (--cl-rapid-- (function (lambda (message) (doom-ansi-apply 'rapid message)))) (--cl-contrary-- (function (lambda (message) (doom-ansi-apply 'contrary message)))) (--cl-concealed-- (function (lambda (message) (doom-ansi-apply 'concealed message)))) (--cl-strike-- (function (lambda (message) (doom-ansi-apply 'strike message)))) (--cl-black-- (function (lambda (message) (doom-ansi-apply 'black message)))) (--cl-red-- (function (lambda (message) (doom-ansi-apply 'red message)))) (--cl-green-- (function (lambda (message) (doom-ansi-apply 'green message)))) (--cl-yellow-- (function (lambda (message) (doom-ansi-apply 'yellow message)))) (--cl-blue-- (function (lambda (message) (doom-ansi-apply 'blue message)))) (--cl-magenta-- (function (lambda (message) (doom-ansi-apply 'magenta message)))) (--cl-cyan-- (function (lambda (message) (doom-ansi-apply 'cyan message)))) (--cl-white-- (function (lambda (message) (doom-ansi-apply 'white message)))) (--cl-on-black-- (function (lambda (message) (doom-ansi-apply 'on-black message)))) (--cl-on-red-- (function (lambda (message) (doom-ansi-apply 'on-red message)))) (--cl-on-green-- (function (lambda (message) (doom-ansi-apply 'on-green message)))) (--cl-on-yellow-- (function (lambda (message) (doom-ansi-apply 'on-yellow message)))) (--cl-on-blue-- (function (lambda (message) (doom-ansi-apply 'on-blue message)))) (--cl-on-magenta-- (function (lambda (message) (doom-ansi-apply 'on-magenta message)))) (--cl-on-cyan-- (function (lambda (message) (doom-ansi-apply 'on-cyan message)))) (--cl-on-white-- (function (lambda (message) (doom-ansi-apply 'on-white message)))) (--cl-color-- (function (lambda (code format) (doom-ansi-apply code format))))) (progn (format (funcall --cl-bold-- (funcall --cl-green-- "Finished!")))))) (terpri)) (if success (progn (set-file-times doom-packages-dir) (doom-delete-autoloads-file doom-package-autoload-file))) success))))
  18.   doom-packages-install(nil)
  19.   (progn (doom-packages-install doom-auto-accept))
  20.   (condition-case nil (progn (doom-packages-install doom-auto-accept)) (error nil))
  21.   (progn (condition-case nil (progn (doom-packages-autoremove doom-auto-accept)) (error nil)) (condition-case nil (progn (doom-packages-install doom-auto-accept)) (error nil)))
  22.   (unwind-protect (progn (condition-case nil (progn (doom-packages-autoremove doom-auto-accept)) (error nil)) (condition-case nil (progn (doom-packages-install doom-auto-accept)) (error nil))) (doom-reload-package-autoloads force-p) (doom-byte-compile nil 'recompile))
  23.   doom-refresh(force)
  24.   (closure ((p refresh :desc "Refresh Doom. Same as autoremove+install+autoloads.\n\nThis is the equivalent of running autoremove, install, autoloads, then\nrecompile. Run this whenever you:\n\n  1. Modify your `doom!' block,\n  2. Add or remove `package!' blocks to your config,\n  3. Add or remove autoloaded functions in module autoloaded files.\n  4. Update Doom outside of Doom (e.g. with git)" :body #0) t) (args) (ignore args) (doom-refresh 'force))(nil)
  25.   funcall((closure ((p refresh :desc "Refresh Doom. Same as autoremove+install+autoloads.\n\nThis is the equivalent of running autoremove, install, autoloads, then\nrecompile. Run this whenever you:\n\n  1. Modify your `doom!' block,\n  2. Add or remove `package!' blocks to your config,\n  3. Add or remove autoloaded functions in module autoloaded files.\n  4. Update Doom outside of Doom (e.g. with git)" :body #1) t) (args) (ignore args) (doom-refresh 'force)) nil)
  26.   (if show-help (apply (function doom--dispatch-help) command desc args) (funcall body args))
  27.   (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:desc :body :allow-other-keys)) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ':allow-other-keys --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:desc :body)" (car --cl-keys--)))))) (if show-help (apply (function doom--dispatch-help) command desc args) (funcall body args)))
  28.   (let* ((--cl-rest-- (let ((sym (intern cmd))) (or (assq sym doom--dispatch-command-alist) (assq (cdr (assq sym doom--dispatch-alias-alist)) doom--dispatch-command-alist) (user-error "Invalid command: %s" sym)))) (command (if --cl-rest-- (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal 'wrong-number-of-arguments (list nil (length --cl-rest--))))) (desc (car (cdr (plist-member --cl-rest-- ':desc)))) (body (car (cdr (plist-member --cl-rest-- ':body))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:desc :body :allow-other-keys)) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ':allow-other-keys --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:desc :body)" (car --cl-keys--)))))) (if show-help (apply (function doom--dispatch-help) command desc args) (funcall body args))))
  29.   doom-dispatch("refresh" nil)
  30.   (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)) (let ((--dolist-tail-- (cdr e)) item) (while --dolist-tail-- (setq item (car --dolist-tail--)) (message "  %s" item) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if debug-on-error nil (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))))
  31.   (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)) (let ((--dolist-tail-- (cdr e)) item) (while --dolist-tail-- (setq item (car --dolist-tail--)) (message "  %s" item) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if debug-on-error nil (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)))))
  32.   (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)) (let ((--dolist-tail-- (cdr e)) item) (while --dolist-tail-- (setq item (car --dolist-tail--)) (message "  %s" item) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if debug-on-error nil (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)))))))
  33.   (let ((args (cdr (cdr (cdr command-line-args)))) (emacs-dir (or (getenv "EMACSDIR") (expand-file-name "../" (file-name-directory (file-truename load-file-name)))))) (while (condition-case nil (progn (string-prefix-p "-" (car args))) (error nil)) (let* ((val (car-safe (prog1 args (setq args (cdr args)))))) (cond ((member val '("--help" "-h")) (error "Did you mean 'doom help'?")) ((member val '("--debug" "-d")) (setenv "DEBUG" "1") (message "Debug mode on")) ((member val '("--insecure" "-i")) (setenv "INSECURE" "1") (message "Insecure mode on")) ((member val '("--private" "-p")) (setq doom-private-dir (expand-file-name (concat (car-safe (prog1 args (setq args (cdr 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)))) ((member val '("--emacsd" "-e")) (setq emacs-dir (expand-file-name (concat (car-safe (prog1 args (setq args (cdr args)))) "/"))) (message "Emacs directory changed to %s" emacs-dir)) ((member val '("--yes" "-y")) (setenv "YES" "1") (message "Auto-yes mode on")) (t nil)))) (or (file-directory-p emacs-dir) (error "%s does not exist" emacs-dir)) (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)) (let ((--dolist-tail-- (cdr e)) item) (while --dolist-tail-- (setq item (car --dolist-tail--)) (message "  %s" item) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if debug-on-error nil (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))))))))
  34.   eval-buffer(#<buffer  *load*> nil "/home/maikol/.emacs.d/bin/doom" nil t)  ; Reading at buffer position 4931
  35.   load-with-code-conversion("/home/maikol/.emacs.d/bin/doom" "/home/maikol/.emacs.d/bin/doom" nil t)
  36.   load("/home/maikol/.emacs.d/bin/doom" nil t t)
  37.   command-line-1(("-scriptload" "./doom" "--" "-d" "refresh"))
  38.   command-line()
  39.   normal-top-level()
  40.  
  41.  
  42. Finished!
  43.  
  44. If you have a running Emacs Session, you will need to restart it or
  45. reload Doom for changes to take effect:
  46.  
  47.   M-x +workspace/restart-emacs-then-restore
  48.   M-x restart-emacs
  49.   M-x doom/reload
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!