> doom -d update
Loading /home/brightone/.emacs.d/core/cli/install...
Loading /home/brightone/.emacs.d/core/cli/debug...
Loading /home/brightone/.emacs.d/core/cli/test...
Loading /home/brightone/.emacs.d/core/cli/env...
Loading /home/brightone/.emacs.d/core/cli/upgrade...
Loading /home/brightone/.emacs.d/core/cli/packages.el (source)...
Loading /home/brightone/.emacs.d/core/cli/autoloads...
Loading /home/brightone/.emacs.d/core/cli/patch-macos...
Loading /home/brightone/.emacs.d/core/cli/byte-compile...
DOOM Initializing straight
DOOM Initializing doom-packages
DOOM Ignoring built-in package so-long
DOOM Ignoring built-in package vc
DOOM Ignoring built-in package vc-annotate
DOOM Ignoring built-in package smerge-mode
DOOM Ignoring built-in package elisp-mode
DOOM Ignoring built-in package css-mode
DOOM Ignoring built-in package less-css-mode
DOOM Ignoring built-in package term
Compiling your literate config...
Tangled 94 code blocks from config.org
Done!
> Checking core autoloads file
✓ Skipping core autoloads, they are up-to-date
> Scanning for outdated packages (this may take a while)...
Package html2text is obsolete!
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
Output:
/dev/null
Debugger entered--Lisp error: (wrong-type-argument . "Wrong type argument: sequencep, error")
signal(wrong-type-argument "Wrong type argument: sequencep, error")
(condition-case e (let ((total (length futures)) (futures (nreverse futures)) (specs (quote (t)))) (while futures (while (not (async-ready (car futures))) (sleep-for 2) (doom--format-print (doom--format (format ".")))) (let* ((packages (async-get (car-safe ...))) (errors (if packages (car-safe ...) (signal ... ...)))) (if errors (error "There were errors:\n\n%s" (mapconcat (function ...) errors "\n") errors) (nconc specs packages)))) (terpri) (let* ((specs (and t (delq nil (cdr specs))))) (if specs (if (not (or auto-accept-p (y-or-n-p ...))) (ignore (doom--format-print (doom--format ...))) (terpri) (straight--make-package-modifications-available) (let ((straight--packages-to-rebuild ...) (straight--packages-not-to-rebuild ...)) (let (... spec) (while --dolist-tail-- ... ... ...)) (doom--finalize-straight) (doom-packages-rebuild auto-accept-p)) t) (progn (doom--format-print (doom--format (format ...))) nil)))) (error (message "Output:\n%s" (straight--process-get-output)) (signal (car e) (error-message-string e))))
(let (futures) (let ((--dolist-tail-- (seq-partition (hash-table-values straight--repo-cache) 8)) group) (while --dolist-tail-- (setq group (car --dolist-tail--)) (setq futures (cons (async-start (list (quote lambda) nil (list ... ... ... ... ...) (list ... ...) (cons ... ...))) futures)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (condition-case e (let ((total (length futures)) (futures (nreverse futures)) (specs (quote (t)))) (while futures (while (not (async-ready (car futures))) (sleep-for 2) (doom--format-print (doom--format (format ".")))) (let* ((packages (async-get ...)) (errors (if packages ... ...))) (if errors (error "There were errors:\n\n%s" (mapconcat ... errors "\n") errors) (nconc specs packages)))) (terpri) (let* ((specs (and t (delq nil ...)))) (if specs (if (not (or auto-accept-p ...)) (ignore (doom--format-print ...)) (terpri) (straight--make-package-modifications-available) (let (... ...) (let ... ...) (doom--finalize-straight) (doom-packages-rebuild auto-accept-p)) t) (progn (doom--format-print (doom--format ...)) nil)))) (error (message "Output:\n%s" (straight--process-get-output)) (signal (car e) (error-message-string e)))))
(let ((doom-format-indent (+ 2 doom-format-indent))) (let (futures) (let ((--dolist-tail-- (seq-partition (hash-table-values straight--repo-cache) 8)) group) (while --dolist-tail-- (setq group (car --dolist-tail--)) (setq futures (cons (async-start (list ... nil ... ... ...)) futures)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (condition-case e (let ((total (length futures)) (futures (nreverse futures)) (specs (quote (t)))) (while futures (while (not (async-ready ...)) (sleep-for 2) (doom--format-print (doom--format ...))) (let* ((packages ...) (errors ...)) (if errors (error "There were errors:\n\n%s" ... errors) (nconc specs packages)))) (terpri) (let* ((specs (and t ...))) (if specs (if (not ...) (ignore ...) (terpri) (straight--make-package-modifications-available) (let ... ... ... ...) t) (progn (doom--format-print ...) nil)))) (error (message "Output:\n%s" (straight--process-get-output)) (signal (car e) (error-message-string e))))))
doom-packages-update(nil)
(progn (straight-check-all) (doom-packages-update doom-auto-accept))
(if (progn (straight-check-all) (doom-packages-update doom-auto-accept)) (progn (doom-reload-package-autoloads (quote force-p))))
(progn (doom-reload-core-autoloads) (if (progn (straight-check-all) (doom-packages-update doom-auto-accept)) (progn (doom-reload-package-autoloads (quote force-p)))) t)
doom-cli-update()
apply(doom-cli-update nil)
(and t (apply fn args))
(let* ((ret (and t (apply fn args)))) (if ret (progn (doom--format-print (doom--format (format "\n%s" (doom--format-class (quote success) "Finished! (%.4fs)" (float-time ...))))) (run-hooks (quote doom-cli-post-execute-hook)) ret) nil))
(condition-case e (let* ((ret (and t (apply fn args)))) (if ret (progn (doom--format-print (doom--format (format "\n%s" (doom--format-class ... "Finished! (%.4fs)" ...)))) (run-hooks (quote doom-cli-post-execute-hook)) ret) nil)) ((quote wrong-number-of-arguments) (user-error "I don't understand 'doom %s %s'\n\nRun 'doom help' to see what I do understand." cmd (string-join args " "))))
(unwind-protect (condition-case e (let* ((ret (and t (apply fn args)))) (if ret (progn (doom--format-print (doom--format (format "\n%s" ...))) (run-hooks (quote doom-cli-post-execute-hook)) ret) nil)) ((quote wrong-number-of-arguments) (user-error "I don't understand 'doom %s %s'\n\nRun 'doom help' to see what I do understand." cmd (string-join args " ")))) (run-hooks (quote doom-cli-post-error-execute-hook)))
(let ((start-time (current-time))) (run-hooks (quote doom-cli-pre-execute-hook)) (unwind-protect (condition-case e (let* ((ret (and t (apply fn args)))) (if ret (progn (doom--format-print (doom--format ...)) (run-hooks (quote doom-cli-post-execute-hook)) ret) nil)) ((quote wrong-number-of-arguments) (user-error "I don't understand 'doom %s %s'\n\nRun 'doom help' to see what I do understand." cmd (string-join args " ")))) (run-hooks (quote doom-cli-post-error-execute-hook))))
(if show-help (doom--dispatch-help fn args) (let ((start-time (current-time))) (run-hooks (quote doom-cli-pre-execute-hook)) (unwind-protect (condition-case e (let* ((ret (and t ...))) (if ret (progn (doom--format-print ...) (run-hooks ...) ret) nil)) ((quote wrong-number-of-arguments) (user-error "I don't understand 'doom %s %s'\n\nRun 'doom help' to see what I do understand." cmd (string-join args " ")))) (run-hooks (quote doom-cli-post-error-execute-hook)))))
(let ((fn (doom--dispatch-command cmd))) (if (fboundp fn) nil (user-error "%S is not any command *I* know!" cmd)) (if show-help (doom--dispatch-help fn args) (let ((start-time (current-time))) (run-hooks (quote doom-cli-pre-execute-hook)) (unwind-protect (condition-case e (let* ((ret ...)) (if ret (progn ... ... ret) nil)) ((quote wrong-number-of-arguments) (user-error "I don't understand 'doom %s %s'\n\nRun 'doom help' to see what I do understand." cmd (string-join args " ")))) (run-hooks (quote doom-cli-post-error-execute-hook))))))
doom-dispatch("update" nil)
(condition-case e (doom-dispatch (car args) (cdr args)) (user-error (print! (error "%s\n") (error-message-string e)) (print! (yellow "See 'doom help %s' for documentation on this command.") (car args))) ((debug error) (message "--------------------------------------------------\n") (message "There was an unexpected error:") (message " %s (%s)" (get (car e) (quote 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 (quote doom-error) e))))
(let ((default-directory emacs-dir)) (setq argv nil noninteractive (quote doom)) (condition-case e (doom-dispatch (car args) (cdr args)) (user-error (print! (error "%s\n") (error-message-string e)) (print! (yellow "See 'doom help %s' for documentation on this command.") (car args))) ((debug error) (message "--------------------------------------------------\n") (message "There was an unexpected error:") (message " %s (%s)" (get (car e) (quote 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 (quote doom-error) e)))))
(cond ((not noninteractive) (doom-run-all-startup-hooks-h)) ((and (not (cdr args)) (member (car args) (quote ("help" "h")))) (usage)) ((not args) (print! (error "No command detected.\n")) (usage)) ((let ((default-directory emacs-dir)) (setq argv nil noninteractive (quote doom)) (condition-case e (doom-dispatch (car args) (cdr args)) (user-error (print! (error "%s\n") (error-message-string e)) (print! (yellow "See 'doom help %s' for documentation on this command.") (car args))) ((debug error) (message "--------------------------------------------------\n") (message "There was an unexpected error:") (message " %s (%s)" (get (car e) (quote error-message)) (car e)) (let ((--dolist-tail-- ...) item) (while --dolist-tail-- (setq item ...) (message " %s" item) (setq --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 (quote doom-error) e)))))))
(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 ...))))) (cond ((member val (quote ("--help" "-h"))) (setq args (cons "help" args))) ((member val (quote ("--debug" "-d"))) (setenv "DEBUG" "1") (message "Debug mode on")) ((member val (quote ("--insecure" "-i"))) (setenv "INSECURE" "1") (message "Insecure mode on")) ((member val (quote ("--private" "-p"))) (setq doom-private-dir (expand-file-name (concat ... "/"))) (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 (quote ("--local" "-l"))) (setq doom-local-dir (expand-file-name (concat ... "/"))) (setenv "DOOMLOCALDIR" doom-local-dir) (message "DOOMLOCALDIR changed to %s" doom-local-dir)) ((member val (quote ("--emacsd" "-e"))) (setq emacs-dir (expand-file-name (concat ... "/"))) (message "Emacs directory changed to %s" emacs-dir)) ((member val (quote ("--yes" "-y"))) (setenv "YES" "1") (message "Auto-yes mode on")) (t nil)))) (if (file-directory-p emacs-dir) nil (error "%s does not exist" emacs-dir)) (load (expand-file-name "init" emacs-dir) nil (quote nomessage)) (cond ((not noninteractive) (doom-run-all-startup-hooks-h)) ((and (not (cdr args)) (member (car args) (quote ("help" "h")))) (usage)) ((not args) (print! (error "No command detected.\n")) (usage)) ((let ((default-directory emacs-dir)) (setq argv nil noninteractive (quote doom)) (condition-case e (doom-dispatch (car args) (cdr args)) (user-error (print! (error "%s\n") (error-message-string e)) (print! (yellow "See 'doom help %s' for documentation on this command.") (car args))) ((debug error) (message "--------------------------------------------------\n") (message "There was an unexpected error:") (message " %s (%s)" (get ... ...) (car e)) (let (... item) (while --dolist-tail-- ... ... ...)) (if debug-on-error nil (message ...) (signal ... e))))))))
eval-buffer(#<buffer *load*> nil "/home/brightone/.emacs.d/bin/doom" nil t) ; Reading at buffer position 5447
load-with-code-conversion("/home/brightone/.emacs.d/bin/doom" "/home/brightone/.emacs.d/bin/doom" nil t)
load("/home/brightone/.emacs.d/bin/doom" nil t t)
command-line-1(("-scriptload" "/home/brightone/.emacs.d/bin/doom" "--" "update"))
command-line()
normal-top-level()
Created
July 27, 2019 10:32
-
-
Save Br1ght0ne/6e4858a8e0ffe7f148c0911a6f52a00e to your computer and use it in GitHub Desktop.
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment