Skip to content

Instantly share code, notes, and snippets.

@Althorion
Created December 17, 2019 09:01
Show Gist options
  • Save Althorion/69025dea39a51c616858f01de70265db to your computer and use it in GitHub Desktop.
Save Althorion/69025dea39a51c616858f01de70265db to your computer and use it in GitHub Desktop.
Loading /home/althorion/.emacs.d/core/autoload/buffers.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/cache.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/cli.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/config.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/debug.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/files.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/fonts.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/format.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/help.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/packages.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/plist.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/projects.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/scratch.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/sessions.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/text.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/themes.el (source)...
Loading /home/althorion/.emacs.d/core/autoload/ui.el (source)...
DOOM Initializing package.el
DOOM Initializing straight
DOOM Initializing doom-packages
...
(let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (condition-case e (if (not noeval) (load file noerror t t) (if (file-readable-p file) (progn ... ... ...))) ((debug error) (signal (quote doom-package-error) (list ... e))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
doom--read-module-packages-file("/home/althorion/.doom.d/packages.el" nil t)
(if all-p nil (doom--read-module-packages-file private-packages nil t))
(let ((private-packages (doom-path doom-private-dir "packages.el"))) (if all-p nil (doom--read-module-packages-file private-packages nil t)) (if all-p (mapc (function doom--read-module-packages-file) (doom-files-in doom-modules-dir :depth 2 :match "/packages\\.el$")) (let* ((path nil) (doom--current-module nil)) (maphash (function (lambda (key --cl-var--) (setq path (doom-module-path ... ... "packages.el")) (setq doom--current-module key) (doom--read-module-packages-file path nil t))) doom-modules) nil)) (doom--read-module-packages-file private-packages all-p t))
(let ((doom-interactive-mode t) (doom-modules (doom-modules)) doom-packages doom-disabled-packages) (doom--read-module-packages-file (doom-path doom-core-dir "packages.el") all-p t) (let ((private-packages (doom-path doom-private-dir "packages.el"))) (if all-p nil (doom--read-module-packages-file private-packages nil t)) (if all-p (mapc (function doom--read-module-packages-file) (doom-files-in doom-modules-dir :depth 2 :match "/packages\\.el$")) (let* ((path nil) (doom--current-module nil)) (maphash (function (lambda (key --cl-var--) (setq path ...) (setq doom--current-module key) (doom--read-module-packages-file path nil t))) doom-modules) nil)) (doom--read-module-packages-file private-packages all-p t)) (nreverse doom-packages))
doom-package-list()
(setq doom-disabled-packages nil doom-packages (doom-package-list))
(progn (if doom-debug-mode (progn (let ((inhibit-message (active-minibuffer-window))) (message #("DOOM Initializing straight" 0 5 (face font-lock-comment-face)))))) (setq doom-init-packages-p t) (if (fboundp (quote straight--reset-caches)) nil (doom-ensure-straight) (require (quote straight))) (straight--reset-caches) (setq straight-recipe-repositories nil) (mapc (function straight-use-recipes) doom-core-package-sources) (straight-register-package (cons (quote straight) (cons (quote :type) (cons (quote git) (cons (quote :host) (cons (quote github) (cons ... ...))))))) (mapc (function straight-use-package) doom-core-packages) (if doom-debug-mode (progn (let ((inhibit-message (active-minibuffer-window))) (message #("DOOM Initializing doom-packages" 0 5 (face font-lock-comment-face)))))) (setq doom-disabled-packages nil doom-packages (doom-package-list)) (let* ((--cl-var-- doom-packages) (plist nil) (pkg nil)) (while (consp --cl-var--) (setq plist (car --cl-var--) pkg (car-safe (prog1 plist (setq plist (cdr plist))))) (if (plist-get plist :disable) (progn (let* ((var pkg)) (if (memql var doom-disabled-packages) (with-no-warnings doom-disabled-packages) (setq doom-disabled-packages ...)))) (if (not (plist-get plist :ignore)) (progn (condition-case err (straight-register-package ...) (... ... nil))))) (setq --cl-var-- (cdr --cl-var--))) nil) (if doom-interactive-mode nil (add-hook (quote kill-emacs-hook) (function doom--finalize-straight))))
(if (or force-p (not doom-packages)) (progn (if doom-debug-mode (progn (let ((inhibit-message (active-minibuffer-window))) (message #("DOOM Initializing straight" 0 5 (face font-lock-comment-face)))))) (setq doom-init-packages-p t) (if (fboundp (quote straight--reset-caches)) nil (doom-ensure-straight) (require (quote straight))) (straight--reset-caches) (setq straight-recipe-repositories nil) (mapc (function straight-use-recipes) doom-core-package-sources) (straight-register-package (cons (quote straight) (cons (quote :type) (cons (quote git) (cons (quote :host) (cons ... ...)))))) (mapc (function straight-use-package) doom-core-packages) (if doom-debug-mode (progn (let ((inhibit-message (active-minibuffer-window))) (message #("DOOM Initializing doom-packages" 0 5 (face font-lock-comment-face)))))) (setq doom-disabled-packages nil doom-packages (doom-package-list)) (let* ((--cl-var-- doom-packages) (plist nil) (pkg nil)) (while (consp --cl-var--) (setq plist (car --cl-var--) pkg (car-safe (prog1 plist (setq plist ...)))) (if (plist-get plist :disable) (progn (let* (...) (if ... ... ...))) (if (not (plist-get plist :ignore)) (progn (condition-case err ... ...)))) (setq --cl-var-- (cdr --cl-var--))) nil) (if doom-interactive-mode nil (add-hook (quote kill-emacs-hook) (function doom--finalize-straight)))))
doom-initialize-packages(force)
(if (and core-autoloads-p pkg-autoloads-p (not force-p)) (progn (eval-after-load (quote package) (function (lambda nil (require (quote core-packages))))) (eval-after-load (quote straight) (function (lambda nil (require (quote core-packages)) (doom-initialize-packages))))) (mapc (doom-rpartial (function load) nil (not doom-debug-mode) (quote nosuffix)) (file-expand-wildcards (concat doom-core-dir "autoload/*.el"))) (let ((--dolist-tail-- (list doom-local-dir doom-etc-dir doom-cache-dir))) (while --dolist-tail-- (let ((dir (car --dolist-tail--))) (if (file-directory-p dir) nil (make-directory dir (quote parents))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (require (quote core-packages)) (doom-initialize-packages force-p))
(let ((core-autoloads-p (doom-load-autoloads-file doom-autoload-file noerror)) (pkg-autoloads-p (doom-load-autoloads-file doom-package-autoload-file noerror))) (if (and core-autoloads-p pkg-autoloads-p (not force-p)) (progn (eval-after-load (quote package) (function (lambda nil (require (quote core-packages))))) (eval-after-load (quote straight) (function (lambda nil (require (quote core-packages)) (doom-initialize-packages))))) (mapc (doom-rpartial (function load) nil (not doom-debug-mode) (quote nosuffix)) (file-expand-wildcards (concat doom-core-dir "autoload/*.el"))) (let ((--dolist-tail-- (list doom-local-dir doom-etc-dir doom-cache-dir))) (while --dolist-tail-- (let ((dir (car --dolist-tail--))) (if (file-directory-p dir) nil (make-directory dir (quote parents))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (require (quote core-packages)) (doom-initialize-packages force-p)) (if (or (and core-autoloads-p pkg-autoloads-p) noerror) nil (if core-autoloads-p nil (warn "Your Doom core autoloads file is missing")) (if pkg-autoloads-p nil (warn "Your package autoloads file is missing")) (signal (quote doom-autoload-error) (list "Run `bin/doom refresh' to generate them"))))
(progn (setq doom-init-p t) (setq-default exec-path doom--initial-exec-path load-path doom--initial-load-path process-environment doom--initial-process-environment) (if (and (or (display-graphic-p) (daemonp)) (file-exists-p doom-env-file)) (progn (doom-load-envvars-file doom-env-file))) (require (quote core-modules)) (let ((core-autoloads-p (doom-load-autoloads-file doom-autoload-file noerror)) (pkg-autoloads-p (doom-load-autoloads-file doom-package-autoload-file noerror))) (if (and core-autoloads-p pkg-autoloads-p (not force-p)) (progn (eval-after-load (quote package) (function (lambda nil (require ...)))) (eval-after-load (quote straight) (function (lambda nil (require ...) (doom-initialize-packages))))) (mapc (doom-rpartial (function load) nil (not doom-debug-mode) (quote nosuffix)) (file-expand-wildcards (concat doom-core-dir "autoload/*.el"))) (let ((--dolist-tail-- (list doom-local-dir doom-etc-dir doom-cache-dir))) (while --dolist-tail-- (let ((dir ...)) (if (file-directory-p dir) nil (make-directory dir ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (require (quote core-packages)) (doom-initialize-packages force-p)) (if (or (and core-autoloads-p pkg-autoloads-p) noerror) nil (if core-autoloads-p nil (warn "Your Doom core autoloads file is missing")) (if pkg-autoloads-p nil (warn "Your package autoloads file is missing")) (signal (quote doom-autoload-error) (list "Run `bin/doom refresh' to generate them")))) t)
(if (or force-p (not doom-init-p)) (progn (setq doom-init-p t) (setq-default exec-path doom--initial-exec-path load-path doom--initial-load-path process-environment doom--initial-process-environment) (if (and (or (display-graphic-p) (daemonp)) (file-exists-p doom-env-file)) (progn (doom-load-envvars-file doom-env-file))) (require (quote core-modules)) (let ((core-autoloads-p (doom-load-autoloads-file doom-autoload-file noerror)) (pkg-autoloads-p (doom-load-autoloads-file doom-package-autoload-file noerror))) (if (and core-autoloads-p pkg-autoloads-p (not force-p)) (progn (eval-after-load (quote package) (function (lambda nil ...))) (eval-after-load (quote straight) (function (lambda nil ... ...)))) (mapc (doom-rpartial (function load) nil (not doom-debug-mode) (quote nosuffix)) (file-expand-wildcards (concat doom-core-dir "autoload/*.el"))) (let ((--dolist-tail-- (list doom-local-dir doom-etc-dir doom-cache-dir))) (while --dolist-tail-- (let (...) (if ... nil ...) (setq --dolist-tail-- ...)))) (require (quote core-packages)) (doom-initialize-packages force-p)) (if (or (and core-autoloads-p pkg-autoloads-p) noerror) nil (if core-autoloads-p nil (warn "Your Doom core autoloads file is missing")) (if pkg-autoloads-p nil (warn "Your package autoloads file is missing")) (signal (quote doom-autoload-error) (list "Run `bin/doom refresh' to generate them")))) t))
doom-initialize(force noerror)
(let (success) (if (and (not inhibit-envvar-p) (file-exists-p doom-env-file)) (progn (doom-cli-reload-env-file (quote force)))) (mapc (function doom--cli-delete-autoloads-file) (list doom-autoload-file doom-package-autoload-file)) (doom-initialize (quote force) (quote noerror)) (doom-initialize-modules) (doom-cli-reload-core-autoloads (not if-necessary-p)) (unwind-protect (progn (and (doom-cli-packages-install) (setq success t)) (and (doom-cli-packages-build) (setq success t)) (and (doom-cli-packages-purge prune-p (quote builds-p) prune-p prune-p) (setq success t))) (doom-cli-reload-package-autoloads (or success (not if-necessary-p))) (doom-cli-byte-compile nil (quote recompile))) t)
(let ((doom-format-indent (+ doom-format-indent-increment doom-format-indent))) (let (success) (if (and (not inhibit-envvar-p) (file-exists-p doom-env-file)) (progn (doom-cli-reload-env-file (quote force)))) (mapc (function doom--cli-delete-autoloads-file) (list doom-autoload-file doom-package-autoload-file)) (doom-initialize (quote force) (quote noerror)) (doom-initialize-modules) (doom-cli-reload-core-autoloads (not if-necessary-p)) (unwind-protect (progn (and (doom-cli-packages-install) (setq success t)) (and (doom-cli-packages-build) (setq success t)) (and (doom-cli-packages-purge prune-p (quote builds-p) prune-p prune-p) (setq success t))) (doom-cli-reload-package-autoloads (or success (not if-necessary-p))) (doom-cli-byte-compile nil (quote recompile))) t))
(let ((if-necessary-p (cdr (assq (quote if-necessary-p) --alist--))) (inhibit-envvar-p (cdr (assq (quote inhibit-envvar-p) --alist--))) (prune-p (cdr (assq (quote prune-p) --alist--)))) :bare t (doom--format-print (doom--format (format (doom--format-class (quote start) "Initiating a refresh of Doom Emacs...")))) (let ((doom-format-indent (+ doom-format-indent-increment doom-format-indent))) (let (success) (if (and (not inhibit-envvar-p) (file-exists-p doom-env-file)) (progn (doom-cli-reload-env-file (quote force)))) (mapc (function doom--cli-delete-autoloads-file) (list doom-autoload-file doom-package-autoload-file)) (doom-initialize (quote force) (quote noerror)) (doom-initialize-modules) (doom-cli-reload-core-autoloads (not if-necessary-p)) (unwind-protect (progn (and (doom-cli-packages-install) (setq success t)) (and (doom-cli-packages-build) (setq success t)) (and (doom-cli-packages-purge prune-p (quote builds-p) prune-p prune-p) (setq success t))) (doom-cli-reload-package-autoloads (or success (not if-necessary-p))) (doom-cli-byte-compile nil (quote recompile))) t)))
(closure ((plist :bare t :group "Maintenance") (aliases re sync) (name . refresh) cl-struct-doom-cli-option-tags cl-struct-doom-cli-tags t) (--alist--) (ignore --alist--) (let ((if-necessary-p (cdr (assq (quote if-necessary-p) --alist--))) (inhibit-envvar-p (cdr (assq (quote inhibit-envvar-p) --alist--))) (prune-p (cdr (assq (quote prune-p) --alist--)))) :bare t (doom--format-print (doom--format (format (doom--format-class (quote start) "Initiating a refresh of Doom Emacs...")))) (let ((doom-format-indent (+ doom-format-indent-increment doom-format-indent))) (let (success) (if (and (not inhibit-envvar-p) (file-exists-p doom-env-file)) (progn (doom-cli-reload-env-file (quote force)))) (mapc (function doom--cli-delete-autoloads-file) (list doom-autoload-file doom-package-autoload-file)) (doom-initialize (quote force) (quote noerror)) (doom-initialize-modules) (doom-cli-reload-core-autoloads (not if-necessary-p)) (unwind-protect (progn (and (doom-cli-packages-install) (setq success t)) (and (doom-cli-packages-build) (setq success t)) (and (doom-cli-packages-purge prune-p ... prune-p prune-p) (setq success t))) (doom-cli-reload-package-autoloads (or success (not if-necessary-p))) (doom-cli-byte-compile nil (quote recompile))) t))))(nil)
funcall((closure ((plist :bare t :group "Maintenance") (aliases re sync) (name . refresh) cl-struct-doom-cli-option-tags cl-struct-doom-cli-tags t) (--alist--) (ignore --alist--) (let ((if-necessary-p (cdr (assq (quote if-necessary-p) --alist--))) (inhibit-envvar-p (cdr (assq (quote inhibit-envvar-p) --alist--))) (prune-p (cdr (assq (quote prune-p) --alist--)))) :bare t (doom--format-print (doom--format (format (doom--format-class (quote start) "Initiating a refresh of Doom Emacs...")))) (let ((doom-format-indent (+ doom-format-indent-increment doom-format-indent))) (let (success) (if (and (not inhibit-envvar-p) (file-exists-p doom-env-file)) (progn (doom-cli-reload-env-file ...))) (mapc (function doom--cli-delete-autoloads-file) (list doom-autoload-file doom-package-autoload-file)) (doom-initialize (quote force) (quote noerror)) (doom-initialize-modules) (doom-cli-reload-core-autoloads (not if-necessary-p)) (unwind-protect (progn (and ... ...) (and ... ...) (and ... ...)) (doom-cli-reload-package-autoloads (or success ...)) (doom-cli-byte-compile nil (quote recompile))) t)))) nil)
(if cli (funcall (progn (or (and (memq (type-of cli) cl-struct-doom-cli-tags) t) (signal (quote wrong-type-argument) (list (quote doom-cli) cli))) (aref cli 7)) (doom--cli-process cli args)) (user-error "Couldn't find any %S command" command))
(let* ((cli (and t (doom-cli-get command)))) (if cli (funcall (progn (or (and (memq (type-of cli) cl-struct-doom-cli-tags) t) (signal (quote wrong-type-argument) (list (quote doom-cli) cli))) (aref cli 7)) (doom--cli-process cli args)) (user-error "Couldn't find any %S command" command)))
doom-cli-execute("refresh" nil)
(and (doom-cli-execute command args) (print! (success "Finished! (%.4fs)") (float-time (time-subtract (current-time) start-time))))
(let ((start-time (current-time))) (and (doom-cli-execute command args) (print! (success "Finished! (%.4fs)") (float-time (time-subtract (current-time) start-time)))))
(condition-case e (let ((start-time (current-time))) (and (doom-cli-execute command args) (print! (success "Finished! (%.4fs)") (float-time (time-subtract (current-time) start-time))))) (user-error (print! (error "%s\n") (error-message-string e)) (print! (yellow "See 'doom help %s' for documentation on this command.") (car args)) (error "")) ((debug error) (print! (error "There was an unexpected error:")) (print-group! (print! "%s %s" (bold "Type:") (car e)) (print! (bold "Message:")) (print-group! (print! "%s" (get (car e) (quote error-message)))) (print! (bold "Data:")) (print-group! (if (cdr e) (let ((--dolist-tail-- ...) item) (while --dolist-tail-- (setq item ...) (print! "%S" item) (setq --dolist-tail-- ...))) (print! "n/a")))) (if debug-on-error nil (terpri) (print! (concat "Run the command again with the -d (or --debug) switch to enable debug\n" "mode and (hopefully) generate a backtrace from this error:\n" "\n %s\n\n" "If you file a bug report, please include it!") (string-join (append (list (file-name-nondirectory load-file-name) "-d" command) args) " ")) (error ""))))
(cond ((not noninteractive) (print! "Doom launched out of %s (test mode)" (path user-emacs-directory)) (load! "init.el" user-emacs-directory) (doom-run-all-startup-hooks-h)) ((null command) (doom-cli-execute "help")) ((condition-case e (let ((start-time (current-time))) (and (doom-cli-execute command args) (print! (success "Finished! (%.4fs)") (float-time (time-subtract ... start-time))))) (user-error (print! (error "%s\n") (error-message-string e)) (print! (yellow "See 'doom help %s' for documentation on this command.") (car args)) (error "")) ((debug error) (print! (error "There was an unexpected error:")) (print-group! (print! "%s %s" (bold "Type:") (car e)) (print! (bold "Message:")) (print-group! (print! "%s" (get ... ...))) (print! (bold "Data:")) (print-group! (if (cdr e) (let ... ...) (print! "n/a")))) (if debug-on-error nil (terpri) (print! (concat "Run the command again with the -d (or --debug) switch to enable debug\n" "mode and (hopefully) generate a backtrace from this error:\n" "\n %s\n\n" "If you file a bug report, please include it!") (string-join (append ... args) " ")) (error ""))))))
(let ((help-p (cdr (assq (quote help-p) --alist--))) (debug-p (cdr (assq (quote debug-p) --alist--))) (yes-p (cdr (assq (quote yes-p) --alist--))) (emacsdir (cdr (assq (quote emacsdir) --alist--))) (doomdir (cdr (assq (quote doomdir) --alist--))) (localdir (cdr (assq (quote localdir) --alist--))) (command (cdr (assq (quote command) --alist--))) (args (cdr (assq (quote args) --alist--)))) :bare t (if emacsdir (progn (setq user-emacs-directory (file-name-as-directory emacsdir)) (print! (info "EMACSDIR=%s") localdir))) (if doomdir (progn (setenv "DOOMDIR" doomdir) (print! (info "DOOMDIR=%s") localdir))) (if localdir (progn (setenv "DOOMLOCALDIR" localdir) (print! (info "DOOMLOCALDIR=%s") localdir))) (if debug-p (progn (setenv "DEBUG" "1") (setq doom-debug-mode t) (print! (info "Debug mode on")))) (if yes-p (progn (setenv "YES" "1") (setq doom-auto-accept t) (print! (info "Auto-yes on")))) (if help-p (progn (setq args (cons command args)) (setq command "help"))) (if (or emacsdir doomdir localdir) (progn (load! "core/core.el" user-emacs-directory))) (cond ((not noninteractive) (print! "Doom launched out of %s (test mode)" (path user-emacs-directory)) (load! "init.el" user-emacs-directory) (doom-run-all-startup-hooks-h)) ((null command) (doom-cli-execute "help")) ((condition-case e (let ((start-time (current-time))) (and (doom-cli-execute command args) (print! (success "Finished! (%.4fs)") (float-time ...)))) (user-error (print! (error "%s\n") (error-message-string e)) (print! (yellow "See 'doom help %s' for documentation on this command.") (car args)) (error "")) ((debug error) (print! (error "There was an unexpected error:")) (print-group! (print! "%s %s" (bold "Type:") (car e)) (print! (bold "Message:")) (print-group! (print! "%s" ...)) (print! (bold "Data:")) (print-group! (if ... ... ...))) (if debug-on-error nil (terpri) (print! (concat "Run the command again with the -d (or --debug) switch to enable debug\n" "mode and (hopefully) generate a backtrace from this error:\n" "\n %s\n\n" "If you file a bug report, please include it!") (string-join ... " ")) (error "")))))))
(lambda (--alist--) (ignore --alist--) (let ((help-p (cdr (assq (quote help-p) --alist--))) (debug-p (cdr (assq (quote debug-p) --alist--))) (yes-p (cdr (assq (quote yes-p) --alist--))) (emacsdir (cdr (assq (quote emacsdir) --alist--))) (doomdir (cdr (assq (quote doomdir) --alist--))) (localdir (cdr (assq (quote localdir) --alist--))) (command (cdr (assq (quote command) --alist--))) (args (cdr (assq (quote args) --alist--)))) :bare t (if emacsdir (progn (setq user-emacs-directory (file-name-as-directory emacsdir)) (print! (info "EMACSDIR=%s") localdir))) (if doomdir (progn (setenv "DOOMDIR" doomdir) (print! (info "DOOMDIR=%s") localdir))) (if localdir (progn (setenv "DOOMLOCALDIR" localdir) (print! (info "DOOMLOCALDIR=%s") localdir))) (if debug-p (progn (setenv "DEBUG" "1") (setq doom-debug-mode t) (print! (info "Debug mode on")))) (if yes-p (progn (setenv "YES" "1") (setq doom-auto-accept t) (print! (info "Auto-yes on")))) (if help-p (progn (setq args (cons command args)) (setq command "help"))) (if (or emacsdir doomdir localdir) (progn (load! "core/core.el" user-emacs-directory))) (cond ((not noninteractive) (print! "Doom launched out of %s (test mode)" (path user-emacs-directory)) (load! "init.el" user-emacs-directory) (doom-run-all-startup-hooks-h)) ((null command) (doom-cli-execute "help")) ((condition-case e (let ((start-time ...)) (and (doom-cli-execute command args) (print! ... ...))) (user-error (print! (error "%s\n") (error-message-string e)) (print! (yellow "See 'doom help %s' for documentation on this command.") (car args)) (error "")) ((debug error) (print! (error "There was an unexpected error:")) (print-group! (print! "%s %s" ... ...) (print! ...) (print-group! ...) (print! ...) (print-group! ...)) (if debug-on-error nil (terpri) (print! ... ...) (error ""))))))))(((command . "refresh")))
funcall((lambda (--alist--) (ignore --alist--) (let ((help-p (cdr (assq (quote help-p) --alist--))) (debug-p (cdr (assq (quote debug-p) --alist--))) (yes-p (cdr (assq (quote yes-p) --alist--))) (emacsdir (cdr (assq (quote emacsdir) --alist--))) (doomdir (cdr (assq (quote doomdir) --alist--))) (localdir (cdr (assq (quote localdir) --alist--))) (command (cdr (assq (quote command) --alist--))) (args (cdr (assq (quote args) --alist--)))) :bare t (if emacsdir (progn (setq user-emacs-directory (file-name-as-directory emacsdir)) (print! (info "EMACSDIR=%s") localdir))) (if doomdir (progn (setenv "DOOMDIR" doomdir) (print! (info "DOOMDIR=%s") localdir))) (if localdir (progn (setenv "DOOMLOCALDIR" localdir) (print! (info "DOOMLOCALDIR=%s") localdir))) (if debug-p (progn (setenv "DEBUG" "1") (setq doom-debug-mode t) (print! (info "Debug mode on")))) (if yes-p (progn (setenv "YES" "1") (setq doom-auto-accept t) (print! (info "Auto-yes on")))) (if help-p (progn (setq args (cons command args)) (setq command "help"))) (if (or emacsdir doomdir localdir) (progn (load! "core/core.el" user-emacs-directory))) (cond ((not noninteractive) (print! "Doom launched out of %s (test mode)" (path user-emacs-directory)) (load! "init.el" user-emacs-directory) (doom-run-all-startup-hooks-h)) ((null command) (doom-cli-execute "help")) ((condition-case e (let (...) (and ... ...)) (user-error (print! ... ...) (print! ... ...) (error "")) ((debug error) (print! ...) (print-group! ... ... ... ... ...) (if debug-on-error nil ... ... ...))))))) ((command . "refresh")))
(if cli (funcall (progn (or (and (memq (type-of cli) cl-struct-doom-cli-tags) t) (signal (quote wrong-type-argument) (list (quote doom-cli) cli))) (aref cli 7)) (doom--cli-process cli args)) (user-error "Couldn't find any %S command" command))
(let* ((cli (and t (doom-cli-get command)))) (if cli (funcall (progn (or (and (memq (type-of cli) cl-struct-doom-cli-tags) t) (signal (quote wrong-type-argument) (list (quote doom-cli) cli))) (aref cli 7)) (doom--cli-process cli args)) (user-error "Couldn't find any %S command" command)))
doom-cli-execute(:main ("refresh"))
(let* ((loaddir (file-name-directory (file-truename load-file-name))) (emacsdir (getenv "EMACSDIR")) (user-emacs-directory (or emacsdir (expand-file-name "../" loaddir))) (load-prefer-newer t)) (setq load-path (cons (expand-file-name "core" user-emacs-directory) load-path)) (require (quote core)) (require (quote core-cli)) (defcli! :main ((help-p ["-h" "--help"] "Same as help command") (debug-p ["-d" "--debug"] "Turns on doom-debug-mode (and debug-on-error)") (yes-p ["-y" "--yes"] "Auto-accept all confirmation prompts") (emacsdir ["--emacsdir" dir] "Use the emacs config at DIR (e.g. ~/.emacs.d)") (doomdir ["--doomdir" dir] "Use the private module at DIR (e.g. ~/.doom.d)") (localdir ["--localdir" dir] "Use DIR as your local storage directory") &optional command &rest args) "A command line interface for managing Doom Emacs.\n\nIncludes package management, diagnostics, unit tests, and byte-compilation.\n\nThis tool also makes it trivial to launch Emacs out of a different folder or\nwith a different private module." :bare t (if emacsdir (progn (setq user-emacs-directory (file-name-as-directory emacsdir)) (print! (info "EMACSDIR=%s") localdir))) (if doomdir (progn (setenv "DOOMDIR" doomdir) (print! (info "DOOMDIR=%s") localdir))) (if localdir (progn (setenv "DOOMLOCALDIR" localdir) (print! (info "DOOMLOCALDIR=%s") localdir))) (if debug-p (progn (setenv "DEBUG" "1") (setq doom-debug-mode t) (print! (info "Debug mode on")))) (if yes-p (progn (setenv "YES" "1") (setq doom-auto-accept t) (print! (info "Auto-yes on")))) (if help-p (progn (setq args (cons command args)) (setq command "help"))) (if (or emacsdir doomdir localdir) (progn (load! "core/core.el" user-emacs-directory))) (cond ((not noninteractive) (print! "Doom launched out of %s (test mode)" (path user-emacs-directory)) (load! "init.el" user-emacs-directory) (doom-run-all-startup-hooks-h)) ((null command) (doom-cli-execute "help")) ((condition-case e (let ((start-time ...)) (and (doom-cli-execute command args) (print! ... ...))) (user-error (print! (error "%s\n") (error-message-string e)) (print! (yellow "See 'doom help %s' for documentation on this command.") (car args)) (error "")) ((debug error) (print! (error "There was an unexpected error:")) (print-group! (print! "%s %s" ... ...) (print! ...) (print-group! ...) (print! ...) (print-group! ...)) (if debug-on-error nil (terpri) (print! ... ...) (error ""))))))) (doom-cli-execute :main (cdr (member "--" argv))) (setq argv nil))
eval-buffer(#<buffer *load*> nil "/home/althorion/.emacs.d/bin/doom" nil t) ; Reading at buffer position 4627
load-with-code-conversion("/home/althorion/.emacs.d/bin/doom" "/home/althorion/.emacs.d/bin/doom" nil t)
load("/home/althorion/.emacs.d/bin/doom" nil t t)
command-line-1(("-scriptload" "/home/althorion/.emacs.d/bin/doom" "--" "refresh"))
command-line()
normal-top-level()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment