Loading /Users/zkrh9u3/.emacs.d/core/autoload/buffers.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/cache.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/cli.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/config.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/debug.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/files.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/fonts.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/format.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/help.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/packages.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/plist.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/projects.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/scratch.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/sessions.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/text.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/themes.el (source)...
Loading /Users/zkrh9u3/.emacs.d/core/autoload/ui.el (source)...
DOOM Initializing package.el
DOOM Initializing straight
Cloning gcmh...

...
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) (quote (:now :later :manual :allow-other-keys))) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:now :later :manual)" (car --cl-keys--)))))) (progn (if (or manual straight--transaction-alist) nil (straight--transaction-finalize-on-idle)) (if (assq id straight--transaction-alist) nil (setq straight--transaction-alist (cons (cons id later) straight--transaction-alist)) (if now (progn (funcall now))))))
  (let* ((now (car (cdr (plist-member --cl-rest-- (quote :now))))) (later (car (cdr (plist-member --cl-rest-- (quote :later))))) (manual (car (cdr (plist-member --cl-rest-- (quote :manual)))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) (quote ...)) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:now :later :manual)" (car --cl-keys--)))))) (progn (if (or manual straight--transaction-alist) nil (straight--transaction-finalize-on-idle)) (if (assq id straight--transaction-alist) nil (setq straight--transaction-alist (cons (cons id later) straight--transaction-alist)) (if now (progn (funcall now)))))))
  straight--transaction-exec(use-package-\(:type\ git\ :flavor\ melpa\ :host\ gitlab\ :repo\ \"koral/gcmh\"\ :package\ \"gcmh\"\ :local-repo\ \"gcmh\"\)-nil-nil :now (closure ((type . git) (local-repo . "gcmh") (package . "gcmh") (plist :type git :flavor melpa :host gitlab :repo "koral/gcmh" :package "gcmh" :local-repo "gcmh") (recipe :type git :flavor melpa :host gitlab :repo "koral/gcmh" :package "gcmh" :local-repo "gcmh") (interactive) (cause) (no-build) (no-clone) (melpa-style-recipe . gcmh) straight--profile-cache use-package-pre-ensure-function use-package-keywords use-package-ensure-function use-package-defaults t) nil (let ((already-registered (gethash package straight--success-cache)) (available (or (null local-repo) (straight--repository-is-available-p recipe)))) (if (if (let ((object no-clone)) (and (not ...) (functionp object))) (funcall no-clone package available) no-clone) (progn (throw (quote --cl-block-straight-use-package--) nil))) (if available nil (straight--clone-repository recipe cause)) (straight--make-build-cache-available) (let* ((no-build (or (null local-repo) (plist-get recipe :no-build) (if ... ... no-build))) (modified (or (and straight--packages-to-rebuild ... ... ...) (straight--package-might-be-modified-p recipe no-build)))) (let ((func (intern ...)) (table (gethash ... straight--recipe-lookup-cache))) (if (or modified (not ...) (not ...)) (progn (remhash ... straight--recipe-lookup-cache)))) (if no-build nil (straight--add-package-to-load-path recipe)) (run-hook-with-args (quote straight-use-package-prepare-functions) package) (if (and modified (not no-build)) (progn (run-hook-with-args (quote straight-use-package-pre-build-functions) package) (straight--build-package recipe cause))) (straight--declare-successful-build recipe) (if no-build nil (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ...))) (straight--add-package-to-info-path recipe) (straight--activate-package-autoloads recipe)) (if (and interactive (not already-registered)) (progn (message (concat "If you want to keep %s, put " "(straight-use-package %s%S) " "in your init-file.") package "'" (intern package))))) (puthash package t straight--success-cache) t)))
  (let* ((plist recipe) (package (plist-get plist :package)) (local-repo (plist-get plist :local-repo)) (type (plist-get plist :type))) (if (eq type (quote built-in)) (progn (throw (quote --cl-block-straight-use-package--) t))) (straight--transaction-exec (intern (format "use-package-%S-%S-%S" recipe (if (let ((object no-clone)) (and (not ...) (functionp object))) (random) no-clone) (if (let ((object no-build)) (and (not ...) (functionp object))) (random) no-build))) :now (function (lambda nil (let ((already-registered (gethash package straight--success-cache)) (available (or ... ...))) (if (if (let ... ...) (funcall no-clone package available) no-clone) (progn (throw ... nil))) (if available nil (straight--clone-repository recipe cause)) (straight--make-build-cache-available) (let* ((no-build ...) (modified ...)) (let (... ...) (if ... ...)) (if no-build nil (straight--add-package-to-load-path recipe)) (run-hook-with-args (quote straight-use-package-prepare-functions) package) (if (and modified ...) (progn ... ...)) (straight--declare-successful-build recipe) (if no-build nil (let ... ...) (straight--add-package-to-info-path recipe) (straight--activate-package-autoloads recipe)) (if (and interactive ...) (progn ...))) (puthash package t straight--success-cache) t)))))
  (let ((recipe (straight--convert-recipe (or (straight--get-overridden-recipe (if (listp melpa-style-recipe) (car melpa-style-recipe) melpa-style-recipe)) melpa-style-recipe) cause))) (straight--register-recipe recipe) (let* ((plist recipe) (package (plist-get plist :package)) (local-repo (plist-get plist :local-repo)) (type (plist-get plist :type))) (if (eq type (quote built-in)) (progn (throw (quote --cl-block-straight-use-package--) t))) (straight--transaction-exec (intern (format "use-package-%S-%S-%S" recipe (if (let (...) (and ... ...)) (random) no-clone) (if (let (...) (and ... ...)) (random) no-build))) :now (function (lambda nil (let ((already-registered ...) (available ...)) (if (if ... ... no-clone) (progn ...)) (if available nil (straight--clone-repository recipe cause)) (straight--make-build-cache-available) (let* (... ...) (let ... ...) (if no-build nil ...) (run-hook-with-args ... package) (if ... ...) (straight--declare-successful-build recipe) (if no-build nil ... ... ...) (if ... ...)) (puthash package t straight--success-cache) t))))))
  (catch (quote --cl-block-straight-use-package--) (let ((recipe (straight--convert-recipe (or (straight--get-overridden-recipe (if ... ... melpa-style-recipe)) melpa-style-recipe) cause))) (straight--register-recipe recipe) (let* ((plist recipe) (package (plist-get plist :package)) (local-repo (plist-get plist :local-repo)) (type (plist-get plist :type))) (if (eq type (quote built-in)) (progn (throw (quote --cl-block-straight-use-package--) t))) (straight--transaction-exec (intern (format "use-package-%S-%S-%S" recipe (if (let ... ...) (random) no-clone) (if (let ... ...) (random) no-build))) :now (function (lambda nil (let (... ...) (if ... ...) (if available nil ...) (straight--make-build-cache-available) (let* ... ... ... ... ... ... ... ...) (puthash package t straight--success-cache) t)))))))
  straight-use-package(gcmh)
  mapc(straight-use-package (straight use-package async gcmh))
  (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 ((default-directory (doom-path "~"))) (if noconfig-p (doom--format-print (doom--format (format (doom--format-class (quote warn) "Not copying private config template, as requested")))) (doom--format-print (doom--format (format (doom--format-class (quote start) "Creating %s") (doom--format-class (quote relpath) doom-private-dir)))) (make-directory doom-private-dir (quote parents)) (let ((doom-format-indent (+ doom-format-indent-increment doom-format-indent))) (doom--format-print (doom--format (format (doom--format-class (quote success) "Created %s") (doom--format-class (quote relpath) doom-private-dir))))) (mapc (function (lambda (file) (let* ((fn file) (filename ...)) (if (let ... ...) (doom--format-print ...) (doom--format-print ...) (let ... ...) (doom--format-print ...))))) (quote (("init.el" lambda nil (insert-file-contents (doom-path doom-emacs-dir "init.example.el"))) ("config.el" lambda nil (insert! ";;; %sconfig.el -*- lexical-binding: t; -*-\n\n" ";; Place your private configuration here\n" (...))) ("packages.el" lambda nil (insert! ";; -*- no-byte-compile: t; -*-\n;;; %spackages.el\n\n" ";;; Examples:\n" ";; (package! some-package)\n" ";; (package! another-package :recipe (:host github :repo \"username/repo\"))\n" ";; (package! builtin-package :disable t)\n" (...))))))) (doom-initialize (quote force) (quote noerror)) (doom-initialize-modules) (if noenv-p (doom--format-print (doom--format (format (doom--format-class (quote warn) "Not generating envvars file, as requested")))) (if (file-exists-p doom-env-file) (doom--format-print (doom--format (format (doom--format-class (quote info) "Envvar file already exists, skipping")))) (if (or doom-auto-accept (y-or-n-p "Generate an env file? (see `doom help env` for details)")) (progn (doom-cli-reload-env-file (quote force-p)))))) (if noinstall-p (doom--format-print (doom--format (format (doom--format-class (quote warn) "Not installing plugins, as requested")))) (doom--format-print (doom--format (format "Installing plugins"))) (doom-cli-packages-install)) (doom--format-print (doom--format (format "Regenerating autoloads files"))) (doom-cli-reload-autoloads nil (quote force-p)) (if nofonts-p (doom--format-print (doom--format (format (doom--format-class (quote warn) "Not installing fonts, as requested")))) (if (or doom-auto-accept (y-or-n-p "Download and install all-the-icon's fonts?")) (progn (require (quote all-the-icons)) (let ((window-system (cond ... ...))) (all-the-icons-install-fonts (quote yes)))))) (if (file-exists-p "~/.emacs") (progn (doom--format-print (doom--format (format (doom--format-class (quote warn) "A ~/.emacs file was detected. This conflicts with Doom and should be deleted!")))))) (doom--format-print (doom--format (format (doom--format-class (quote success) "\nFinished! Doom is ready to go!\n")))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (doom-template-insert "QUICKSTART_INTRO") (doom--format-print (doom--format (format ...)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
  (let ((noconfig-p (cdr (assq (quote noconfig-p) --alist--))) (noenv-p (cdr (assq (quote noenv-p) --alist--))) (noinstall-p (cdr (assq (quote noinstall-p) --alist--))) (nofonts-p (cdr (assq (quote nofonts-p) --alist--))) (_args (cdr (assq (quote _args) --alist--)))) :bare t (doom--format-print (doom--format (format (doom--format-color (quote green) "Installing Doom Emacs!\n")))) (let ((default-directory (doom-path "~"))) (if noconfig-p (doom--format-print (doom--format (format (doom--format-class (quote warn) "Not copying private config template, as requested")))) (doom--format-print (doom--format (format (doom--format-class (quote start) "Creating %s") (doom--format-class (quote relpath) doom-private-dir)))) (make-directory doom-private-dir (quote parents)) (let ((doom-format-indent (+ doom-format-indent-increment doom-format-indent))) (doom--format-print (doom--format (format (doom--format-class ... "Created %s") (doom--format-class ... doom-private-dir))))) (mapc (function (lambda (file) (let* (... ...) (if ... ... ... ... ...)))) (quote (("init.el" lambda nil (insert-file-contents ...)) ("config.el" lambda nil (insert! ";;; %sconfig.el -*- lexical-binding: t; -*-\n\n" ";; Place your private configuration here\n" ...)) ("packages.el" lambda nil (insert! ";; -*- no-byte-compile: t; -*-\n;;; %spackages.el\n\n" ";;; Examples:\n" ";; (package! some-package)\n" ";; (package! another-package :recipe (:host github :repo \"username/repo\"))\n" ";; (package! builtin-package :disable t)\n" ...)))))) (doom-initialize (quote force) (quote noerror)) (doom-initialize-modules) (if noenv-p (doom--format-print (doom--format (format (doom--format-class (quote warn) "Not generating envvars file, as requested")))) (if (file-exists-p doom-env-file) (doom--format-print (doom--format (format (doom--format-class ... "Envvar file already exists, skipping")))) (if (or doom-auto-accept (y-or-n-p "Generate an env file? (see `doom help env` for details)")) (progn (doom-cli-reload-env-file (quote force-p)))))) (if noinstall-p (doom--format-print (doom--format (format (doom--format-class (quote warn) "Not installing plugins, as requested")))) (doom--format-print (doom--format (format "Installing plugins"))) (doom-cli-packages-install)) (doom--format-print (doom--format (format "Regenerating autoloads files"))) (doom-cli-reload-autoloads nil (quote force-p)) (if nofonts-p (doom--format-print (doom--format (format (doom--format-class (quote warn) "Not installing fonts, as requested")))) (if (or doom-auto-accept (y-or-n-p "Download and install all-the-icon's fonts?")) (progn (require (quote all-the-icons)) (let ((window-system ...)) (all-the-icons-install-fonts (quote yes)))))) (if (file-exists-p "~/.emacs") (progn (doom--format-print (doom--format (format (doom--format-class ... "A ~/.emacs file was detected. This conflicts with Doom and should be deleted!")))))) (doom--format-print (doom--format (format (doom--format-class (quote success) "\nFinished! Doom is ready to go!\n")))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (doom-template-insert "QUICKSTART_INTRO") (doom--format-print (doom--format ...))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))))
  (closure ((plist :bare t) (aliases i) (name . install) t) (--alist--) (ignore --alist--) (let ((noconfig-p (cdr (assq (quote noconfig-p) --alist--))) (noenv-p (cdr (assq (quote noenv-p) --alist--))) (noinstall-p (cdr (assq (quote noinstall-p) --alist--))) (nofonts-p (cdr (assq (quote nofonts-p) --alist--))) (_args (cdr (assq (quote _args) --alist--)))) :bare t (doom--format-print (doom--format (format (doom--format-color (quote green) "Installing Doom Emacs!\n")))) (let ((default-directory (doom-path "~"))) (if noconfig-p (doom--format-print (doom--format (format (doom--format-class ... "Not copying private config template, as requested")))) (doom--format-print (doom--format (format (doom--format-class ... "Creating %s") (doom--format-class ... doom-private-dir)))) (make-directory doom-private-dir (quote parents)) (let ((doom-format-indent (+ doom-format-indent-increment doom-format-indent))) (doom--format-print (doom--format (format ... ...)))) (mapc (function (lambda (file) (let* ... ...))) (quote (("init.el" lambda nil ...) ("config.el" lambda nil ...) ("packages.el" lambda nil ...))))) (doom-initialize (quote force) (quote noerror)) (doom-initialize-modules) (if noenv-p (doom--format-print (doom--format (format (doom--format-class ... "Not generating envvars file, as requested")))) (if (file-exists-p doom-env-file) (doom--format-print (doom--format (format ...))) (if (or doom-auto-accept (y-or-n-p "Generate an env file? (see `doom help env` for details)")) (progn (doom-cli-reload-env-file ...))))) (if noinstall-p (doom--format-print (doom--format (format (doom--format-class ... "Not installing plugins, as requested")))) (doom--format-print (doom--format (format "Installing plugins"))) (doom-cli-packages-install)) (doom--format-print (doom--format (format "Regenerating autoloads files"))) (doom-cli-reload-autoloads nil (quote force-p)) (if nofonts-p (doom--format-print (doom--format (format (doom--format-class ... "Not installing fonts, as requested")))) (if (or doom-auto-accept (y-or-n-p "Download and install all-the-icon's fonts?")) (progn (require (quote all-the-icons)) (let (...) (all-the-icons-install-fonts ...))))) (if (file-exists-p "~/.emacs") (progn (doom--format-print (doom--format (format ...))))) (doom--format-print (doom--format (format (doom--format-class (quote success) "\nFinished! Doom is ready to go!\n")))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (doom-template-insert "QUICKSTART_INTRO") (doom--format-print ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))))(nil)
  funcall((closure ((plist :bare t) (aliases i) (name . install) t) (--alist--) (ignore --alist--) (let ((noconfig-p (cdr (assq (quote noconfig-p) --alist--))) (noenv-p (cdr (assq (quote noenv-p) --alist--))) (noinstall-p (cdr (assq (quote noinstall-p) --alist--))) (nofonts-p (cdr (assq (quote nofonts-p) --alist--))) (_args (cdr (assq (quote _args) --alist--)))) :bare t (doom--format-print (doom--format (format (doom--format-color (quote green) "Installing Doom Emacs!\n")))) (let ((default-directory (doom-path "~"))) (if noconfig-p (doom--format-print (doom--format (format ...))) (doom--format-print (doom--format (format ... ...))) (make-directory doom-private-dir (quote parents)) (let ((doom-format-indent ...)) (doom--format-print (doom--format ...))) (mapc (function (lambda ... ...)) (quote (... ... ...)))) (doom-initialize (quote force) (quote noerror)) (doom-initialize-modules) (if noenv-p (doom--format-print (doom--format (format ...))) (if (file-exists-p doom-env-file) (doom--format-print (doom--format ...)) (if (or doom-auto-accept ...) (progn ...)))) (if noinstall-p (doom--format-print (doom--format (format ...))) (doom--format-print (doom--format (format "Installing plugins"))) (doom-cli-packages-install)) (doom--format-print (doom--format (format "Regenerating autoloads files"))) (doom-cli-reload-autoloads nil (quote force-p)) (if nofonts-p (doom--format-print (doom--format (format ...))) (if (or doom-auto-accept (y-or-n-p "Download and install all-the-icon's fonts?")) (progn (require ...) (let ... ...)))) (if (file-exists-p "~/.emacs") (progn (doom--format-print (doom--format ...)))) (doom--format-print (doom--format (format (doom--format-class ... "\nFinished! Doom is ready to go!\n")))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...))))))) 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("install" 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))) ((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))) ((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))) ((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))) ((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 . "install")))
  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! ... ...)) ((debug error) (print! ...) (print-group! ... ... ... ... ...) (if debug-on-error nil ... ... ...))))))) ((command . "install")))
  (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 ("install"))
  (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))) ((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 "/Users/zkrh9u3/.emacs.d/bin/doom" nil t)  ; Reading at buffer position 4601
  load-with-code-conversion("/Users/zkrh9u3/.emacs.d/bin/doom" "/Users/zkrh9u3/.emacs.d/bin/doom" nil t)
  load("/Users/zkrh9u3/.emacs.d/bin/doom" nil t t)
  command-line-1(("-scriptload" ".emacs.d/bin/doom" "--" "install"))
  command-line()
  normal-top-level()