doom.error.log

# -*- lisp-interaction -*-
# vim: set ft=lisp:

(wrong-type-argument stringp)

(file-in-directory-p nil "~/.doom.d/")

(if (file-in-directory-p path doom-private-dir) (list '&user))

(append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key))))

(let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module))

(cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--)

(setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))

((closure ((--cl-var-- :lang macos :os pass magit lsp lookup gist (eval +overlay) :tools syntax :checkers vterm :term vc undo electric dired :emacs snippets fold file-templates :editor zen workspaces vi-tilde-fringe vc-gutter (ligatures +extra) (popup +defaults) ophints nav-flash modeline hl-todo doom-dashboard doom :ui (ivy +prescient +fuzzy +icons) (company +childframe) :completion) (cat . :lang) (old) (vnew closure ((abbrev-path) (old) (vnew closure ((sh) t) (&rest args) (cdr (apply #'doom-call-process args))) (sh) t) (path) (replace-regexp-in-string (regexp-quote (user-login-name)) "$USER" (abbreviate-file-name path))) (abbrev-path) (old) (vnew closure ((sh) t) (&rest args) (cdr (apply #'doom-call-process args))) (sh) t) (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) (:lang . elvish) (:flags nil :path nil))

(maphash (closure ((--cl-var-- :lang macos :os pass magit lsp lookup gist (eval +overlay) :tools syntax :checkers vterm :term vc undo electric dired :emacs snippets fold file-templates :editor zen workspaces vi-tilde-fringe vc-gutter (ligatures +extra) (popup +defaults) ophints nav-flash modeline hl-todo doom-dashboard doom :ui (ivy +prescient +fuzzy +icons) (company +childframe) :completion) (cat . :lang) (old) (vnew closure ((abbrev-path) (old) (vnew closure ((sh) t) (&rest args) (cdr (apply #'doom-call-process args))) (sh) t) (path) (replace-regexp-in-string (regexp-quote (user-login-name)) "$USER" (abbreviate-file-name path))) (abbrev-path) (old) (vnew closure ((sh) t) (&rest args) (cdr (apply #'doom-call-process args))) (sh) t) (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8125 data ((:completion . company) (:flags (+childframe) :path "/Users/taazadi1/.emacs.d/modules/completion/company/") (:completion . ivy) (:flags (+prescient +fuzzy +icons) :path "/Users/taazadi1/.emacs.d/modules/completion/ivy/") (:ui . doom) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/ui/doom/") (:ui . doom-dashboard) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/ui/doom-dashboard/") (:ui . hl-todo) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/ui/hl-todo/") (:ui . modeline) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/ui/modeline/") (:ui . nav-flash) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/ui/nav-flash/") (:ui . ophints) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/ui/ophints/") (:ui . popup) (:flags (+defaults) :path "/Users/taazadi1/.emacs.d/modules/ui/popup/") (:ui . ligatures) (:flags (+extra) :path "/Users/taazadi1/.emacs.d/modules/ui/ligatures/") (:ui . vc-gutter) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/ui/vc-gutter/") (:ui . vi-tilde-fringe) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/ui/vi-tilde-fringe/") (:ui . workspaces) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/ui/workspaces/") (:ui . zen) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/ui/zen/") (:editor . file-templates) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/editor/file-templates/") (:editor . fold) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/editor/fold/") (:editor . snippets) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/editor/snippets/") (:emacs . dired) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/emacs/dired/") (:emacs . electric) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/emacs/electric/") (:emacs . undo) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/emacs/undo/") (:emacs . vc) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/emacs/vc/") (:term . vterm) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/term/vterm/") (:checkers . syntax) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/checkers/syntax/") (:tools . eval) (:flags (+overlay) :path "/Users/taazadi1/.emacs.d/modules/tools/eval/") (:tools . gist) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/tools/gist/") (:tools . lookup) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/tools/lookup/") (:tools . lsp) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/tools/lsp/") (:tools . magit) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/tools/magit/") (:tools . pass) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/tools/pass/") (:os . macos) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/os/macos/") (:lang . elvish) (:flags nil :path nil) (:lang . emacs-lisp) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/lang/emacs-lisp/") (:lang . ess) (:flags (+lsp) :path "/Users/taazadi1/.emacs.d/modules/lang/ess/") (:lang . go) (:flags (+lsp) :path "/Users/taazadi1/.emacs.d/modules/lang/go/") (:lang . json) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/lang/json/") (:lang . latex) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/lang/latex/") (:lang . lua) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/lang/lua/") (:lang . markdown) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/lang/markdown/") (:lang . org) (:flags (+pretty +journal +hugo +roam +pandoc +present) :path "/Users/taazadi1/.emacs.d/modules/lang/org/") (:lang . plantuml) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/lang/plantuml/") (:lang . python) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/lang/python/") (:lang . racket) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/lang/racket/") (:lang . rst) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/lang/rst/") (:lang . sh) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/lang/sh/") (:lang . yaml) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/lang/yaml/") (:app . irc) (:flags nil :path "/Users/taazadi1/.emacs.d/modules/app/irc/") (:config . default) (:flags (+bindings +smartparens) :path "/Users/taazadi1/.emacs.d/modules/config/default/"))))

(let* ((cat nil) (--cl-var-- nil)) (maphash #'(lambda (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) doom-modules) (nreverse --cl-var--))

(or (let* ((cat nil) (--cl-var-- nil)) (maphash #'(lambda (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) doom-modules) (nreverse --cl-var--)) '("n/a"))

(cons 'modules (or (let* ((cat nil) (--cl-var-- nil)) (maphash #'(lambda (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) doom-modules) (nreverse --cl-var--)) '("n/a")))

(list 'doom (cons 'dir (abbrev-path (file-truename doom-private-dir))) (cons 'version doom-version) (cons 'build (sh "git" "log" "-1" "--format=%D %h %ci")) (cons 'elc-files (length (doom-files-in (append doom-modules-dirs (list doom-core-dir doom-private-dir)) :type 'files :match "\\.elc$"))) (cons 'modules (or (let* ((cat nil) (--cl-var-- nil)) (maphash #'(lambda (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) doom-modules) (nreverse --cl-var--)) '("n/a"))) (cons 'packages (or (condition-case e (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "package!")) (error (format "<%S>" e))) '("n/a"))) (cons 'unpin (or (condition-case e (mapcan #'identity (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "unpin!"))) (error (format "<%S>" e))) '("n/a"))) (cons 'elpa (or (condition-case e (progn (package-initialize) (let* ((--cl-var-- package-alist) (name nil) (--cl-var--) (--cl-var-- nil)) (while (consp --cl-var--) (setq --cl-var-- (car --cl-var--) name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq --cl-var-- (cons (format "%s" name) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (error (format "<%S>" e))) '("n/a"))))

(list (list 'system (cons 'type system-type) (cons 'config system-configuration) (cons 'shell (abbrev-path shell-file-name)) (cons 'uname (if IS-WINDOWS "n/a" (sh "uname" "-msrv"))) (cons 'path (mapcar #'abbrev-path exec-path))) (list 'emacs (cons 'dir (abbrev-path (file-truename doom-emacs-dir))) (cons 'version emacs-version) (cons 'build (format-time-string "%b %d, %Y" emacs-build-time)) (cons 'buildopts system-configuration-options) (cons 'features system-configuration-features) (cons 'traits (delq nil (list (if (not doom-interactive-p) 'batch) (if (daemonp) 'daemon) (if (and (require 'server) (server-running-p)) 'server-running) (if (boundp 'chemacs-profiles-path) 'chemacs) (if (file-exists-p doom-env-file) 'envvar-file) (if (featurep 'exec-path-from-shell) 'exec-path-from-shell) (if (file-symlink-p user-emacs-directory) 'symlinked-emacsdir) (if (file-symlink-p doom-private-dir) 'symlinked-doomdir))))) (list 'doom (cons 'dir (abbrev-path (file-truename doom-private-dir))) (cons 'version doom-version) (cons 'build (sh "git" "log" "-1" "--format=%D %h %ci")) (cons 'elc-files (length (doom-files-in (append doom-modules-dirs (list doom-core-dir doom-private-dir)) :type 'files :match "\\.elc$"))) (cons 'modules (or (let* ((cat nil) (--cl-var-- nil)) (maphash #'(lambda (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) doom-modules) (nreverse --cl-var--)) '("n/a"))) (cons 'packages (or (condition-case e (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "package!")) (error (format "<%S>" e))) '("n/a"))) (cons 'unpin (or (condition-case e (mapcan #'identity (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "unpin!"))) (error (format "<%S>" e))) '("n/a"))) (cons 'elpa (or (condition-case e (progn (package-initialize) (let* ((--cl-var-- package-alist) (name nil) (--cl-var--) (--cl-var-- nil)) (while (consp --cl-var--) (setq --cl-var-- (car --cl-var--) name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq --cl-var-- (cons (format "%s" name) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (error (format "<%S>" e))) '("n/a")))))

(progn (fset #'abbrev-path vnew) (ignore abbrev-path) (list (list 'system (cons 'type system-type) (cons 'config system-configuration) (cons 'shell (abbrev-path shell-file-name)) (cons 'uname (if IS-WINDOWS "n/a" (sh "uname" "-msrv"))) (cons 'path (mapcar #'abbrev-path exec-path))) (list 'emacs (cons 'dir (abbrev-path (file-truename doom-emacs-dir))) (cons 'version emacs-version) (cons 'build (format-time-string "%b %d, %Y" emacs-build-time)) (cons 'buildopts system-configuration-options) (cons 'features system-configuration-features) (cons 'traits (delq nil (list (if (not doom-interactive-p) 'batch) (if (daemonp) 'daemon) (if (and (require 'server) (server-running-p)) 'server-running) (if (boundp 'chemacs-profiles-path) 'chemacs) (if (file-exists-p doom-env-file) 'envvar-file) (if (featurep 'exec-path-from-shell) 'exec-path-from-shell) (if (file-symlink-p user-emacs-directory) 'symlinked-emacsdir) (if (file-symlink-p doom-private-dir) 'symlinked-doomdir))))) (list 'doom (cons 'dir (abbrev-path (file-truename doom-private-dir))) (cons 'version doom-version) (cons 'build (sh "git" "log" "-1" "--format=%D %h %ci")) (cons 'elc-files (length (doom-files-in (append doom-modules-dirs (list doom-core-dir doom-private-dir)) :type 'files :match "\\.elc$"))) (cons 'modules (or (let* ((cat nil) (--cl-var-- nil)) (maphash #'(lambda (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) doom-modules) (nreverse --cl-var--)) '("n/a"))) (cons 'packages (or (condition-case e (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "package!")) (error (format "<%S>" e))) '("n/a"))) (cons 'unpin (or (condition-case e (mapcan #'identity (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "unpin!"))) (error (format "<%S>" e))) '("n/a"))) (cons 'elpa (or (condition-case e (progn (package-initialize) (let* ((--cl-var-- package-alist) (name nil) (--cl-var--) (--cl-var-- nil)) (while (consp --cl-var--) (setq --cl-var-- (car --cl-var--) name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq --cl-var-- (cons (format "%s" name) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (error (format "<%S>" e))) '("n/a"))))))

(unwind-protect (progn (fset #'abbrev-path vnew) (ignore abbrev-path) (list (list 'system (cons 'type system-type) (cons 'config system-configuration) (cons 'shell (abbrev-path shell-file-name)) (cons 'uname (if IS-WINDOWS "n/a" (sh "uname" "-msrv"))) (cons 'path (mapcar #'abbrev-path exec-path))) (list 'emacs (cons 'dir (abbrev-path (file-truename doom-emacs-dir))) (cons 'version emacs-version) (cons 'build (format-time-string "%b %d, %Y" emacs-build-time)) (cons 'buildopts system-configuration-options) (cons 'features system-configuration-features) (cons 'traits (delq nil (list (if (not doom-interactive-p) 'batch) (if (daemonp) 'daemon) (if (and (require 'server) (server-running-p)) 'server-running) (if (boundp 'chemacs-profiles-path) 'chemacs) (if (file-exists-p doom-env-file) 'envvar-file) (if (featurep 'exec-path-from-shell) 'exec-path-from-shell) (if (file-symlink-p user-emacs-directory) 'symlinked-emacsdir) (if (file-symlink-p doom-private-dir) 'symlinked-doomdir))))) (list 'doom (cons 'dir (abbrev-path (file-truename doom-private-dir))) (cons 'version doom-version) (cons 'build (sh "git" "log" "-1" "--format=%D %h %ci")) (cons 'elc-files (length (doom-files-in (append doom-modules-dirs (list doom-core-dir doom-private-dir)) :type 'files :match "\\.elc$"))) (cons 'modules (or (let* ((cat nil) (--cl-var-- nil)) (maphash #'(lambda (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) doom-modules) (nreverse --cl-var--)) '("n/a"))) (cons 'packages (or (condition-case e (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "package!")) (error (format "<%S>" e))) '("n/a"))) (cons 'unpin (or (condition-case e (mapcan #'identity (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "unpin!"))) (error (format "<%S>" e))) '("n/a"))) (cons 'elpa (or (condition-case e (progn (package-initialize) (let* ((--cl-var-- package-alist) (name nil) (--cl-var--) (--cl-var-- nil)) (while (consp --cl-var--) (setq --cl-var-- (car --cl-var--) name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq --cl-var-- (cons (format "%s" name) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (error (format "<%S>" e))) '("n/a")))))) (fset #'abbrev-path old))

(let* ((vnew #'(lambda (path) (replace-regexp-in-string (regexp-quote (user-login-name)) "$USER" (abbreviate-file-name path)))) (old (symbol-function #'abbrev-path))) (unwind-protect (progn (fset #'abbrev-path vnew) (ignore abbrev-path) (list (list 'system (cons 'type system-type) (cons 'config system-configuration) (cons 'shell (abbrev-path shell-file-name)) (cons 'uname (if IS-WINDOWS "n/a" (sh "uname" "-msrv"))) (cons 'path (mapcar #'abbrev-path exec-path))) (list 'emacs (cons 'dir (abbrev-path (file-truename doom-emacs-dir))) (cons 'version emacs-version) (cons 'build (format-time-string "%b %d, %Y" emacs-build-time)) (cons 'buildopts system-configuration-options) (cons 'features system-configuration-features) (cons 'traits (delq nil (list (if (not doom-interactive-p) 'batch) (if (daemonp) 'daemon) (if (and (require 'server) (server-running-p)) 'server-running) (if (boundp 'chemacs-profiles-path) 'chemacs) (if (file-exists-p doom-env-file) 'envvar-file) (if (featurep 'exec-path-from-shell) 'exec-path-from-shell) (if (file-symlink-p user-emacs-directory) 'symlinked-emacsdir) (if (file-symlink-p doom-private-dir) 'symlinked-doomdir))))) (list 'doom (cons 'dir (abbrev-path (file-truename doom-private-dir))) (cons 'version doom-version) (cons 'build (sh "git" "log" "-1" "--format=%D %h %ci")) (cons 'elc-files (length (doom-files-in (append doom-modules-dirs (list doom-core-dir doom-private-dir)) :type 'files :match "\\.elc$"))) (cons 'modules (or (let* ((cat nil) (--cl-var-- nil)) (maphash #'(lambda (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) doom-modules) (nreverse --cl-var--)) '("n/a"))) (cons 'packages (or (condition-case e (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "package!")) (error (format "<%S>" e))) '("n/a"))) (cons 'unpin (or (condition-case e (mapcan #'identity (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "unpin!"))) (error (format "<%S>" e))) '("n/a"))) (cons 'elpa (or (condition-case e (progn (package-initialize) (let* ((--cl-var-- package-alist) (name nil) (--cl-var--) (--cl-var-- nil)) (while (consp --cl-var--) (setq --cl-var-- (car --cl-var--) name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq --cl-var-- (cons (format "%s" name) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (error (format "<%S>" e))) '("n/a")))))) (fset #'abbrev-path old)))

(let ((abbrev-path (symbol-function #'abbrev-path))) (let* ((vnew #'(lambda (path) (replace-regexp-in-string (regexp-quote (user-login-name)) "$USER" (abbreviate-file-name path)))) (old (symbol-function #'abbrev-path))) (unwind-protect (progn (fset #'abbrev-path vnew) (ignore abbrev-path) (list (list 'system (cons 'type system-type) (cons 'config system-configuration) (cons 'shell (abbrev-path shell-file-name)) (cons 'uname (if IS-WINDOWS "n/a" (sh "uname" "-msrv"))) (cons 'path (mapcar #'abbrev-path exec-path))) (list 'emacs (cons 'dir (abbrev-path (file-truename doom-emacs-dir))) (cons 'version emacs-version) (cons 'build (format-time-string "%b %d, %Y" emacs-build-time)) (cons 'buildopts system-configuration-options) (cons 'features system-configuration-features) (cons 'traits (delq nil (list (if (not doom-interactive-p) 'batch) (if (daemonp) 'daemon) (if (and (require 'server) (server-running-p)) 'server-running) (if (boundp 'chemacs-profiles-path) 'chemacs) (if (file-exists-p doom-env-file) 'envvar-file) (if (featurep 'exec-path-from-shell) 'exec-path-from-shell) (if (file-symlink-p user-emacs-directory) 'symlinked-emacsdir) (if (file-symlink-p doom-private-dir) 'symlinked-doomdir))))) (list 'doom (cons 'dir (abbrev-path (file-truename doom-private-dir))) (cons 'version doom-version) (cons 'build (sh "git" "log" "-1" "--format=%D %h %ci")) (cons 'elc-files (length (doom-files-in (append doom-modules-dirs (list doom-core-dir doom-private-dir)) :type 'files :match "\\.elc$"))) (cons 'modules (or (let* ((cat nil) (--cl-var-- nil)) (maphash #'(lambda (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) doom-modules) (nreverse --cl-var--)) '("n/a"))) (cons 'packages (or (condition-case e (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "package!")) (error (format "<%S>" e))) '("n/a"))) (cons 'unpin (or (condition-case e (mapcan #'identity (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "unpin!"))) (error (format "<%S>" e))) '("n/a"))) (cons 'elpa (or (condition-case e (progn (package-initialize) (let* ((--cl-var-- package-alist) (name nil) (--cl-var--) (--cl-var-- nil)) (while (consp --cl-var--) (setq --cl-var-- (car --cl-var--) name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq --cl-var-- (cons (format "%s" name) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (error (format "<%S>" e))) '("n/a")))))) (fset #'abbrev-path old))))

(progn (fset #'sh vnew) (ignore sh) (let ((abbrev-path (symbol-function #'abbrev-path))) (let* ((vnew #'(lambda (path) (replace-regexp-in-string (regexp-quote (user-login-name)) "$USER" (abbreviate-file-name path)))) (old (symbol-function #'abbrev-path))) (unwind-protect (progn (fset #'abbrev-path vnew) (ignore abbrev-path) (list (list 'system (cons 'type system-type) (cons 'config system-configuration) (cons 'shell (abbrev-path shell-file-name)) (cons 'uname (if IS-WINDOWS "n/a" (sh "uname" "-msrv"))) (cons 'path (mapcar #'abbrev-path exec-path))) (list 'emacs (cons 'dir (abbrev-path (file-truename doom-emacs-dir))) (cons 'version emacs-version) (cons 'build (format-time-string "%b %d, %Y" emacs-build-time)) (cons 'buildopts system-configuration-options) (cons 'features system-configuration-features) (cons 'traits (delq nil (list (if (not doom-interactive-p) 'batch) (if (daemonp) 'daemon) (if (and (require 'server) (server-running-p)) 'server-running) (if (boundp 'chemacs-profiles-path) 'chemacs) (if (file-exists-p doom-env-file) 'envvar-file) (if (featurep 'exec-path-from-shell) 'exec-path-from-shell) (if (file-symlink-p user-emacs-directory) 'symlinked-emacsdir) (if (file-symlink-p doom-private-dir) 'symlinked-doomdir))))) (list 'doom (cons 'dir (abbrev-path (file-truename doom-private-dir))) (cons 'version doom-version) (cons 'build (sh "git" "log" "-1" "--format=%D %h %ci")) (cons 'elc-files (length (doom-files-in (append doom-modules-dirs (list doom-core-dir doom-private-dir)) :type 'files :match "\\.elc$"))) (cons 'modules (or (let* ((cat nil) (--cl-var-- nil)) (maphash #'(lambda (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) doom-modules) (nreverse --cl-var--)) '("n/a"))) (cons 'packages (or (condition-case e (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "package!")) (error (format "<%S>" e))) '("n/a"))) (cons 'unpin (or (condition-case e (mapcan #'identity (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "unpin!"))) (error (format "<%S>" e))) '("n/a"))) (cons 'elpa (or (condition-case e (progn (package-initialize) (let* ((--cl-var-- package-alist) (name nil) (--cl-var--) (--cl-var-- nil)) (while (consp --cl-var--) (setq --cl-var-- (car --cl-var--) name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq --cl-var-- (cons (format "%s" name) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (error (format "<%S>" e))) '("n/a")))))) (fset #'abbrev-path old)))))

(unwind-protect (progn (fset #'sh vnew) (ignore sh) (let ((abbrev-path (symbol-function #'abbrev-path))) (let* ((vnew #'(lambda (path) (replace-regexp-in-string (regexp-quote (user-login-name)) "$USER" (abbreviate-file-name path)))) (old (symbol-function #'abbrev-path))) (unwind-protect (progn (fset #'abbrev-path vnew) (ignore abbrev-path) (list (list 'system (cons 'type system-type) (cons 'config system-configuration) (cons 'shell (abbrev-path shell-file-name)) (cons 'uname (if IS-WINDOWS "n/a" (sh "uname" "-msrv"))) (cons 'path (mapcar #'abbrev-path exec-path))) (list 'emacs (cons 'dir (abbrev-path (file-truename doom-emacs-dir))) (cons 'version emacs-version) (cons 'build (format-time-string "%b %d, %Y" emacs-build-time)) (cons 'buildopts system-configuration-options) (cons 'features system-configuration-features) (cons 'traits (delq nil (list (if (not doom-interactive-p) 'batch) (if (daemonp) 'daemon) (if (and (require 'server) (server-running-p)) 'server-running) (if (boundp 'chemacs-profiles-path) 'chemacs) (if (file-exists-p doom-env-file) 'envvar-file) (if (featurep 'exec-path-from-shell) 'exec-path-from-shell) (if (file-symlink-p user-emacs-directory) 'symlinked-emacsdir) (if (file-symlink-p doom-private-dir) 'symlinked-doomdir))))) (list 'doom (cons 'dir (abbrev-path (file-truename doom-private-dir))) (cons 'version doom-version) (cons 'build (sh "git" "log" "-1" "--format=%D %h %ci")) (cons 'elc-files (length (doom-files-in (append doom-modules-dirs (list doom-core-dir doom-private-dir)) :type 'files :match "\\.elc$"))) (cons 'modules (or (let* ((cat nil) (--cl-var-- nil)) (maphash #'(lambda (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) doom-modules) (nreverse --cl-var--)) '("n/a"))) (cons 'packages (or (condition-case e (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "package!")) (error (format "<%S>" e))) '("n/a"))) (cons 'unpin (or (condition-case e (mapcan #'identity (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "unpin!"))) (error (format "<%S>" e))) '("n/a"))) (cons 'elpa (or (condition-case e (progn (package-initialize) (let* ((--cl-var-- package-alist) (name nil) (--cl-var--) (--cl-var-- nil)) (while (consp --cl-var--) (setq --cl-var-- (car --cl-var--) name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq --cl-var-- (cons (format "%s" name) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (error (format "<%S>" e))) '("n/a")))))) (fset #'abbrev-path old))))) (fset #'sh old))

(let* ((vnew #'(lambda (&rest args) (cdr (apply #'doom-call-process args)))) (old (symbol-function #'sh))) (unwind-protect (progn (fset #'sh vnew) (ignore sh) (let ((abbrev-path (symbol-function #'abbrev-path))) (let* ((vnew #'(lambda (path) (replace-regexp-in-string (regexp-quote (user-login-name)) "$USER" (abbreviate-file-name path)))) (old (symbol-function #'abbrev-path))) (unwind-protect (progn (fset #'abbrev-path vnew) (ignore abbrev-path) (list (list 'system (cons 'type system-type) (cons 'config system-configuration) (cons 'shell (abbrev-path shell-file-name)) (cons 'uname (if IS-WINDOWS "n/a" (sh "uname" "-msrv"))) (cons 'path (mapcar #'abbrev-path exec-path))) (list 'emacs (cons 'dir (abbrev-path (file-truename doom-emacs-dir))) (cons 'version emacs-version) (cons 'build (format-time-string "%b %d, %Y" emacs-build-time)) (cons 'buildopts system-configuration-options) (cons 'features system-configuration-features) (cons 'traits (delq nil (list (if (not doom-interactive-p) 'batch) (if (daemonp) 'daemon) (if (and (require 'server) (server-running-p)) 'server-running) (if (boundp 'chemacs-profiles-path) 'chemacs) (if (file-exists-p doom-env-file) 'envvar-file) (if (featurep 'exec-path-from-shell) 'exec-path-from-shell) (if (file-symlink-p user-emacs-directory) 'symlinked-emacsdir) (if (file-symlink-p doom-private-dir) 'symlinked-doomdir))))) (list 'doom (cons 'dir (abbrev-path (file-truename doom-private-dir))) (cons 'version doom-version) (cons 'build (sh "git" "log" "-1" "--format=%D %h %ci")) (cons 'elc-files (length (doom-files-in (append doom-modules-dirs (list doom-core-dir doom-private-dir)) :type 'files :match "\\.elc$"))) (cons 'modules (or (let* ((cat nil) (--cl-var-- nil)) (maphash #'(lambda (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) doom-modules) (nreverse --cl-var--)) '("n/a"))) (cons 'packages (or (condition-case e (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "package!")) (error (format "<%S>" e))) '("n/a"))) (cons 'unpin (or (condition-case e (mapcan #'identity (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "unpin!"))) (error (format "<%S>" e))) '("n/a"))) (cons 'elpa (or (condition-case e (progn (package-initialize) (let* ((--cl-var-- package-alist) (name nil) (--cl-var--) (--cl-var-- nil)) (while (consp --cl-var--) (setq --cl-var-- (car --cl-var--) name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq --cl-var-- (cons (format "%s" name) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (error (format "<%S>" e))) '("n/a")))))) (fset #'abbrev-path old))))) (fset #'sh old)))

(let ((sh (symbol-function #'sh))) (let* ((vnew #'(lambda (&rest args) (cdr (apply #'doom-call-process args)))) (old (symbol-function #'sh))) (unwind-protect (progn (fset #'sh vnew) (ignore sh) (let ((abbrev-path (symbol-function #'abbrev-path))) (let* ((vnew #'(lambda (path) (replace-regexp-in-string (regexp-quote (user-login-name)) "$USER" (abbreviate-file-name path)))) (old (symbol-function #'abbrev-path))) (unwind-protect (progn (fset #'abbrev-path vnew) (ignore abbrev-path) (list (list 'system (cons 'type system-type) (cons 'config system-configuration) (cons 'shell (abbrev-path shell-file-name)) (cons 'uname (if IS-WINDOWS "n/a" (sh "uname" "-msrv"))) (cons 'path (mapcar #'abbrev-path exec-path))) (list 'emacs (cons 'dir (abbrev-path (file-truename doom-emacs-dir))) (cons 'version emacs-version) (cons 'build (format-time-string "%b %d, %Y" emacs-build-time)) (cons 'buildopts system-configuration-options) (cons 'features system-configuration-features) (cons 'traits (delq nil (list (if (not doom-interactive-p) 'batch) (if (daemonp) 'daemon) (if (and (require 'server) (server-running-p)) 'server-running) (if (boundp 'chemacs-profiles-path) 'chemacs) (if (file-exists-p doom-env-file) 'envvar-file) (if (featurep 'exec-path-from-shell) 'exec-path-from-shell) (if (file-symlink-p user-emacs-directory) 'symlinked-emacsdir) (if (file-symlink-p doom-private-dir) 'symlinked-doomdir))))) (list 'doom (cons 'dir (abbrev-path (file-truename doom-private-dir))) (cons 'version doom-version) (cons 'build (sh "git" "log" "-1" "--format=%D %h %ci")) (cons 'elc-files (length (doom-files-in (append doom-modules-dirs (list doom-core-dir doom-private-dir)) :type 'files :match "\\.elc$"))) (cons 'modules (or (let* ((cat nil) (--cl-var-- nil)) (maphash #'(lambda (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) doom-modules) (nreverse --cl-var--)) '("n/a"))) (cons 'packages (or (condition-case e (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "package!")) (error (format "<%S>" e))) '("n/a"))) (cons 'unpin (or (condition-case e (mapcan #'identity (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "unpin!"))) (error (format "<%S>" e))) '("n/a"))) (cons 'elpa (or (condition-case e (progn (package-initialize) (let* ((--cl-var-- package-alist) (name nil) (--cl-var--) (--cl-var-- nil)) (while (consp --cl-var--) (setq --cl-var-- (car --cl-var--) name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq --cl-var-- (cons (format "%s" name) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (error (format "<%S>" e))) '("n/a")))))) (fset #'abbrev-path old))))) (fset #'sh old))))

(let ((default-directory doom-emacs-dir)) (let ((sh (symbol-function #'sh))) (let* ((vnew #'(lambda (&rest args) (cdr (apply #'doom-call-process args)))) (old (symbol-function #'sh))) (unwind-protect (progn (fset #'sh vnew) (ignore sh) (let ((abbrev-path (symbol-function #'abbrev-path))) (let* ((vnew #'(lambda (path) (replace-regexp-in-string (regexp-quote (user-login-name)) "$USER" (abbreviate-file-name path)))) (old (symbol-function #'abbrev-path))) (unwind-protect (progn (fset #'abbrev-path vnew) (ignore abbrev-path) (list (list 'system (cons 'type system-type) (cons 'config system-configuration) (cons 'shell (abbrev-path shell-file-name)) (cons 'uname (if IS-WINDOWS "n/a" (sh "uname" "-msrv"))) (cons 'path (mapcar #'abbrev-path exec-path))) (list 'emacs (cons 'dir (abbrev-path (file-truename doom-emacs-dir))) (cons 'version emacs-version) (cons 'build (format-time-string "%b %d, %Y" emacs-build-time)) (cons 'buildopts system-configuration-options) (cons 'features system-configuration-features) (cons 'traits (delq nil (list (if (not doom-interactive-p) 'batch) (if (daemonp) 'daemon) (if (and (require 'server) (server-running-p)) 'server-running) (if (boundp 'chemacs-profiles-path) 'chemacs) (if (file-exists-p doom-env-file) 'envvar-file) (if (featurep 'exec-path-from-shell) 'exec-path-from-shell) (if (file-symlink-p user-emacs-directory) 'symlinked-emacsdir) (if (file-symlink-p doom-private-dir) 'symlinked-doomdir))))) (list 'doom (cons 'dir (abbrev-path (file-truename doom-private-dir))) (cons 'version doom-version) (cons 'build (sh "git" "log" "-1" "--format=%D %h %ci")) (cons 'elc-files (length (doom-files-in (append doom-modules-dirs (list doom-core-dir doom-private-dir)) :type 'files :match "\\.elc$"))) (cons 'modules (or (let* ((cat nil) (--cl-var-- nil)) (maphash #'(lambda (key --cl-var--) (if (or (not cat) (not (eq cat (car key)))) (progn (setq cat (car key)) (setq --cl-var-- (cons cat --cl-var--)))) (setq --cl-var-- (cons (let* ((flags (doom-module-get cat (cdr key) :flags)) (path (doom-module-get cat (cdr key) :path)) (module (append (if (file-in-directory-p path doom-private-dir) (list '&user)) (if flags (cons (cdr key) flags) (list (cdr key)))))) (if (= (length module) 1) (car module) module)) --cl-var--))) doom-modules) (nreverse --cl-var--)) '("n/a"))) (cons 'packages (or (condition-case e (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "package!")) (error (format "<%S>" e))) '("n/a"))) (cons 'unpin (or (condition-case e (mapcan #'identity (mapcar #'cdr (doom--collect-forms-in (doom-path doom-private-dir "packages.el") "unpin!"))) (error (format "<%S>" e))) '("n/a"))) (cons 'elpa (or (condition-case e (progn (package-initialize) (let* ((--cl-var-- package-alist) (name nil) (--cl-var--) (--cl-var-- nil)) (while (consp --cl-var--) (setq --cl-var-- (car --cl-var--) name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq --cl-var-- (cons (format "%s" name) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (error (format "<%S>" e))) '("n/a")))))) (fset #'abbrev-path old))))) (fset #'sh old)))))

(doom-info)

(let ((buffer (get-buffer-create "*doom-info*")) (info (doom-info))) (save-current-buffer (set-buffer buffer) (or (not doom-interactive-p) (eq major-mode 'markdown-mode) (not (fboundp 'markdown-mode)) (markdown-mode)) (erase-buffer) (if raw (progn (save-excursion (pp info (current-buffer))) (let ((--dolist-tail-- '(modules packages))) (while --dolist-tail-- (let ((sym (car --dolist-tail--))) (if (re-search-forward (format "^ *\\((%s\\)" sym) nil t) (progn (goto-char (match-beginning 1)) (let* ((end (bounds-of-thing-at-point 'sexp)) (beg (if end (car-safe (prog1 end (setq end (cdr end)))) (signal 'wrong-number-of-arguments (list '(beg . end) (length end)))))) (let ((sexp (prin1-to-string (sexp-at-point)))) (delete-region beg end) (insert sexp))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (insert "<details>\n\n```\n") (let ((--dolist-tail-- info)) (while --dolist-tail-- (let ((group (car --dolist-tail--))) (insert (doom--format (format (concat "%-8s%-10s %s\n") (upcase (symbol-name (car group))) (car (car (cdr group))) (cdr (car (cdr group)))))) (let ((--dolist-tail-- (cdr (cdr group)))) (while --dolist-tail-- (let ((spec (car --dolist-tail--))) (insert (doom--format (format (concat (doom--output-class 'indent 8 "%-10s %s\n")) (car spec) (cdr spec)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (insert "```\n</details>")) (if (not doom-interactive-p) (doom--print (doom--format (format (buffer-string)))) (switch-to-buffer buffer) (kill-new (buffer-string)) (doom--print (doom--format (format (doom--output-color 'green "Copied markdown to clipboard")))))))

(doom/info raw)

(cond ((equal format '"--json") (require 'json) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert (json-encode (doom-info))) (json-pretty-print-buffer) (doom--print (doom--format (format (buffer-string))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) ((equal format '"--md") (doom/info)) ((member format '("--lisp" nil)) (doom/info 'raw)) (t (user-error "I don't understand %S. Did you mean --json, --md/--markdown or --lisp?" format)))

(let ((format (cdr (assq 'format --alist--)))) (cond ((equal format '"--json") (require 'json) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert (json-encode (doom-info))) (json-pretty-print-buffer) (doom--print (doom--format (format (buffer-string))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) ((equal format '"--md") (doom/info)) ((member format '("--lisp" nil)) (doom/info 'raw)) (t (user-error "I don't understand %S. Did you mean --json, --md/--markdown or --lisp?" format))) nil)

((closure ((plist :group "Diagnostics") (aliases) (name . info) t) (--alist--) (ignore --alist--) (let ((format (cdr (assq 'format --alist--)))) (cond ((equal format '"--json") (require 'json) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert (json-encode (doom-info))) (json-pretty-print-buffer) (doom--print (doom--format (format (buffer-string))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) ((equal format '"--md") (doom/info)) ((member format '("--lisp" nil)) (doom/info 'raw)) (t (user-error "I don't understand %S. Did you mean --json, --md/--markdown or --lisp?" format))) nil)) nil)

(funcall (closure ((plist :group "Diagnostics") (aliases) (name . info) t) (--alist--) (ignore --alist--) (let ((format (cdr (assq 'format --alist--)))) (cond ((equal format '"--json") (require 'json) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert (json-encode (doom-info))) (json-pretty-print-buffer) (doom--print (doom--format (format (buffer-string))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) ((equal format '"--md") (doom/info)) ((member format '("--lisp" nil)) (doom/info 'raw)) (t (user-error "I don't understand %S. Did you mean --json, --md/--markdown or --lisp?" format))) nil)) nil)

(if cli (funcall (progn (or (and (memq (type-of cli) cl-struct-doom-cli-tags) t) (signal 'wrong-type-argument (list 'doom-cli cli))) (aref cli 7)) (doom--cli-process cli (remq nil 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 'wrong-type-argument (list 'doom-cli cli))) (aref cli 7)) (doom--cli-process cli (remq nil args))) (user-error "Couldn't find any %S command" command)))

(doom-cli-execute "info")

(apply doom-cli-execute "info" nil)

(if (apply #'doom-cli-execute command args) (progn (run-hooks 'doom-cli-post-hook) (doom--print (doom--format (format (doom--output-class 'success "Finished in %.4fs") (float-time (time-subtract (current-time) start-time)))))))

(let ((start-time (current-time))) (run-hooks 'doom-cli-pre-hook) (if (apply #'doom-cli-execute command args) (progn (run-hooks 'doom-cli-post-hook) (doom--print (doom--format (format (doom--output-class 'success "Finished in %.4fs") (float-time (time-subtract (current-time) start-time))))))))

(if (null command) (doom-cli-execute "help") (let ((start-time (current-time))) (run-hooks 'doom-cli-pre-hook) (if (apply #'doom-cli-execute command args) (progn (run-hooks 'doom-cli-post-hook) (doom--print (doom--format (format (doom--output-class 'success "Finished in %.4fs") (float-time (time-subtract (current-time) start-time)))))))))

(catch 'exit (if (and (not (getenv "__DOOMRESTART")) (or doomdir localdir debug-p auto-accept-p)) (progn (if doomdir (progn (setenv "DOOMDIR" (file-name-as-directory doomdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMDIR=%s") localdir))))) (if localdir (progn (setenv "DOOMLOCALDIR" (file-name-as-directory localdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMLOCALDIR=%s") localdir))))) (if debug-p (progn (setenv "DEBUG" "1") (doom--print (doom--format (format (doom--output-class 'info "DEBUG=1")))))) (if auto-accept-p (progn (setenv "YES" auto-accept-p) (doom--print (doom--format (format (doom--output-class 'info "Confirmations auto-accept enabled")))))) (throw 'exit "__DOOMRESTART=1 $@"))) (delete-file doom-cli-log-file) (delete-file doom-cli-log-error-file) (if help-p (progn (if command (progn (setq args (cons command args)))) (setq command "help"))) (if (null command) (doom-cli-execute "help") (let ((start-time (current-time))) (run-hooks 'doom-cli-pre-hook) (if (apply #'doom-cli-execute command args) (progn (run-hooks 'doom-cli-post-hook) (doom--print (doom--format (format (doom--output-class 'success "Finished in %.4fs") (float-time (time-subtract (current-time) start-time))))))))))

(unwind-protect (catch 'exit (if (and (not (getenv "__DOOMRESTART")) (or doomdir localdir debug-p auto-accept-p)) (progn (if doomdir (progn (setenv "DOOMDIR" (file-name-as-directory doomdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMDIR=%s") localdir))))) (if localdir (progn (setenv "DOOMLOCALDIR" (file-name-as-directory localdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMLOCALDIR=%s") localdir))))) (if debug-p (progn (setenv "DEBUG" "1") (doom--print (doom--format (format (doom--output-class 'info "DEBUG=1")))))) (if auto-accept-p (progn (setenv "YES" auto-accept-p) (doom--print (doom--format (format (doom--output-class 'info "Confirmations auto-accept enabled")))))) (throw 'exit "__DOOMRESTART=1 $@"))) (delete-file doom-cli-log-file) (delete-file doom-cli-log-error-file) (if help-p (progn (if command (progn (setq args (cons command args)))) (setq command "help"))) (if (null command) (doom-cli-execute "help") (let ((start-time (current-time))) (run-hooks 'doom-cli-pre-hook) (if (apply #'doom-cli-execute command args) (progn (run-hooks 'doom-cli-post-hook) (doom--print (doom--format (format (doom--output-class 'success "Finished in %.4fs") (float-time (time-subtract (current-time) start-time)))))))))) (save-current-buffer (set-buffer log-buffer) (require 'ansi-color) (ansi-color-filter-region (point-min) (point-max))) (let ((dest doom-cli-log-file)) (cond ((bufferp dest) (save-current-buffer (set-buffer dest) (insert-buffer-substring log-buffer))) ((stringp dest) (make-directory (file-name-directory dest) 'parents) (let ((temp-file dest) (temp-buffer (generate-new-buffer " *temp file*"))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-buffer-substring log-buffer)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (kill-buffer log-buffer)))

(progn (fset #'message vnew) (ignore message) (unwind-protect (catch 'exit (if (and (not (getenv "__DOOMRESTART")) (or doomdir localdir debug-p auto-accept-p)) (progn (if doomdir (progn (setenv "DOOMDIR" (file-name-as-directory doomdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMDIR=%s") localdir))))) (if localdir (progn (setenv "DOOMLOCALDIR" (file-name-as-directory localdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMLOCALDIR=%s") localdir))))) (if debug-p (progn (setenv "DEBUG" "1") (doom--print (doom--format (format (doom--output-class 'info "DEBUG=1")))))) (if auto-accept-p (progn (setenv "YES" auto-accept-p) (doom--print (doom--format (format (doom--output-class 'info "Confirmations auto-accept enabled")))))) (throw 'exit "__DOOMRESTART=1 $@"))) (delete-file doom-cli-log-file) (delete-file doom-cli-log-error-file) (if help-p (progn (if command (progn (setq args (cons command args)))) (setq command "help"))) (if (null command) (doom-cli-execute "help") (let ((start-time (current-time))) (run-hooks 'doom-cli-pre-hook) (if (apply #'doom-cli-execute command args) (progn (run-hooks 'doom-cli-post-hook) (doom--print (doom--format (format (doom--output-class 'success "Finished in %.4fs") (float-time (time-subtract (current-time) start-time)))))))))) (save-current-buffer (set-buffer log-buffer) (require 'ansi-color) (ansi-color-filter-region (point-min) (point-max))) (let ((dest doom-cli-log-file)) (cond ((bufferp dest) (save-current-buffer (set-buffer dest) (insert-buffer-substring log-buffer))) ((stringp dest) (make-directory (file-name-directory dest) 'parents) (let ((temp-file dest) (temp-buffer (generate-new-buffer " *temp file*"))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-buffer-substring log-buffer)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (kill-buffer log-buffer))))

(unwind-protect (progn (fset #'message vnew) (ignore message) (unwind-protect (catch 'exit (if (and (not (getenv "__DOOMRESTART")) (or doomdir localdir debug-p auto-accept-p)) (progn (if doomdir (progn (setenv "DOOMDIR" (file-name-as-directory doomdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMDIR=%s") localdir))))) (if localdir (progn (setenv "DOOMLOCALDIR" (file-name-as-directory localdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMLOCALDIR=%s") localdir))))) (if debug-p (progn (setenv "DEBUG" "1") (doom--print (doom--format (format (doom--output-class 'info "DEBUG=1")))))) (if auto-accept-p (progn (setenv "YES" auto-accept-p) (doom--print (doom--format (format (doom--output-class 'info "Confirmations auto-accept enabled")))))) (throw 'exit "__DOOMRESTART=1 $@"))) (delete-file doom-cli-log-file) (delete-file doom-cli-log-error-file) (if help-p (progn (if command (progn (setq args (cons command args)))) (setq command "help"))) (if (null command) (doom-cli-execute "help") (let ((start-time (current-time))) (run-hooks 'doom-cli-pre-hook) (if (apply #'doom-cli-execute command args) (progn (run-hooks 'doom-cli-post-hook) (doom--print (doom--format (format (doom--output-class 'success "Finished in %.4fs") (float-time (time-subtract (current-time) start-time)))))))))) (save-current-buffer (set-buffer log-buffer) (require 'ansi-color) (ansi-color-filter-region (point-min) (point-max))) (let ((dest doom-cli-log-file)) (cond ((bufferp dest) (save-current-buffer (set-buffer dest) (insert-buffer-substring log-buffer))) ((stringp dest) (make-directory (file-name-directory dest) 'parents) (let ((temp-file dest) (temp-buffer (generate-new-buffer " *temp file*"))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-buffer-substring log-buffer)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (kill-buffer log-buffer)))) (fset #'message old))

(let* ((vnew #'(lambda (msg &rest args) (save-current-buffer (set-buffer log-buffer) (let ((doom-output-indent (+ doom-output-indent-increment doom-output-indent))) (insert (doom--format (apply #'format msg args)) "\n"))) (if doom-debug-p (doom--print (doom--format (apply #'format msg args))) (apply message msg args)))) (old (symbol-function #'message))) (unwind-protect (progn (fset #'message vnew) (ignore message) (unwind-protect (catch 'exit (if (and (not (getenv "__DOOMRESTART")) (or doomdir localdir debug-p auto-accept-p)) (progn (if doomdir (progn (setenv "DOOMDIR" (file-name-as-directory doomdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMDIR=%s") localdir))))) (if localdir (progn (setenv "DOOMLOCALDIR" (file-name-as-directory localdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMLOCALDIR=%s") localdir))))) (if debug-p (progn (setenv "DEBUG" "1") (doom--print (doom--format (format (doom--output-class 'info "DEBUG=1")))))) (if auto-accept-p (progn (setenv "YES" auto-accept-p) (doom--print (doom--format (format (doom--output-class 'info "Confirmations auto-accept enabled")))))) (throw 'exit "__DOOMRESTART=1 $@"))) (delete-file doom-cli-log-file) (delete-file doom-cli-log-error-file) (if help-p (progn (if command (progn (setq args (cons command args)))) (setq command "help"))) (if (null command) (doom-cli-execute "help") (let ((start-time (current-time))) (run-hooks 'doom-cli-pre-hook) (if (apply #'doom-cli-execute command args) (progn (run-hooks 'doom-cli-post-hook) (doom--print (doom--format (format (doom--output-class 'success "Finished in %.4fs") (float-time (time-subtract (current-time) start-time)))))))))) (save-current-buffer (set-buffer log-buffer) (require 'ansi-color) (ansi-color-filter-region (point-min) (point-max))) (let ((dest doom-cli-log-file)) (cond ((bufferp dest) (save-current-buffer (set-buffer dest) (insert-buffer-substring log-buffer))) ((stringp dest) (make-directory (file-name-directory dest) 'parents) (let ((temp-file dest) (temp-buffer (generate-new-buffer " *temp file*"))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-buffer-substring log-buffer)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (kill-buffer log-buffer)))) (fset #'message old)))

(let ((message (symbol-function #'message))) (let* ((vnew #'(lambda (msg &rest args) (save-current-buffer (set-buffer log-buffer) (let ((doom-output-indent (+ doom-output-indent-increment doom-output-indent))) (insert (doom--format (apply #'format msg args)) "\n"))) (if doom-debug-p (doom--print (doom--format (apply #'format msg args))) (apply message msg args)))) (old (symbol-function #'message))) (unwind-protect (progn (fset #'message vnew) (ignore message) (unwind-protect (catch 'exit (if (and (not (getenv "__DOOMRESTART")) (or doomdir localdir debug-p auto-accept-p)) (progn (if doomdir (progn (setenv "DOOMDIR" (file-name-as-directory doomdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMDIR=%s") localdir))))) (if localdir (progn (setenv "DOOMLOCALDIR" (file-name-as-directory localdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMLOCALDIR=%s") localdir))))) (if debug-p (progn (setenv "DEBUG" "1") (doom--print (doom--format (format (doom--output-class 'info "DEBUG=1")))))) (if auto-accept-p (progn (setenv "YES" auto-accept-p) (doom--print (doom--format (format (doom--output-class 'info "Confirmations auto-accept enabled")))))) (throw 'exit "__DOOMRESTART=1 $@"))) (delete-file doom-cli-log-file) (delete-file doom-cli-log-error-file) (if help-p (progn (if command (progn (setq args (cons command args)))) (setq command "help"))) (if (null command) (doom-cli-execute "help") (let ((start-time (current-time))) (run-hooks 'doom-cli-pre-hook) (if (apply #'doom-cli-execute command args) (progn (run-hooks 'doom-cli-post-hook) (doom--print (doom--format (format (doom--output-class 'success "Finished in %.4fs") (float-time (time-subtract (current-time) start-time)))))))))) (save-current-buffer (set-buffer log-buffer) (require 'ansi-color) (ansi-color-filter-region (point-min) (point-max))) (let ((dest doom-cli-log-file)) (cond ((bufferp dest) (save-current-buffer (set-buffer dest) (insert-buffer-substring log-buffer))) ((stringp dest) (make-directory (file-name-directory dest) 'parents) (let ((temp-file dest) (temp-buffer (generate-new-buffer " *temp file*"))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-buffer-substring log-buffer)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (kill-buffer log-buffer)))) (fset #'message old))))

(let* ((log-buffer (generate-new-buffer " *doom log*")) (standard-output #'(lambda (out) (save-current-buffer (set-buffer log-buffer) (insert-char out)) (send-string-to-terminal (char-to-string out))))) (let ((message (symbol-function #'message))) (let* ((vnew #'(lambda (msg &rest args) (save-current-buffer (set-buffer log-buffer) (let ((doom-output-indent (+ doom-output-indent-increment doom-output-indent))) (insert (doom--format (apply #'format msg args)) "\n"))) (if doom-debug-p (doom--print (doom--format (apply #'format msg args))) (apply message msg args)))) (old (symbol-function #'message))) (unwind-protect (progn (fset #'message vnew) (ignore message) (unwind-protect (catch 'exit (if (and (not (getenv "__DOOMRESTART")) (or doomdir localdir debug-p auto-accept-p)) (progn (if doomdir (progn (setenv "DOOMDIR" (file-name-as-directory doomdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMDIR=%s") localdir))))) (if localdir (progn (setenv "DOOMLOCALDIR" (file-name-as-directory localdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMLOCALDIR=%s") localdir))))) (if debug-p (progn (setenv "DEBUG" "1") (doom--print (doom--format (format (doom--output-class 'info "DEBUG=1")))))) (if auto-accept-p (progn (setenv "YES" auto-accept-p) (doom--print (doom--format (format (doom--output-class 'info "Confirmations auto-accept enabled")))))) (throw 'exit "__DOOMRESTART=1 $@"))) (delete-file doom-cli-log-file) (delete-file doom-cli-log-error-file) (if help-p (progn (if command (progn (setq args (cons command args)))) (setq command "help"))) (if (null command) (doom-cli-execute "help") (let ((start-time (current-time))) (run-hooks 'doom-cli-pre-hook) (if (apply #'doom-cli-execute command args) (progn (run-hooks 'doom-cli-post-hook) (doom--print (doom--format (format (doom--output-class 'success "Finished in %.4fs") (float-time (time-subtract (current-time) start-time)))))))))) (save-current-buffer (set-buffer log-buffer) (require 'ansi-color) (ansi-color-filter-region (point-min) (point-max))) (let ((dest doom-cli-log-file)) (cond ((bufferp dest) (save-current-buffer (set-buffer dest) (insert-buffer-substring log-buffer))) ((stringp dest) (make-directory (file-name-directory dest) 'parents) (let ((temp-file dest) (temp-buffer (generate-new-buffer " *temp file*"))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-buffer-substring log-buffer)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (kill-buffer log-buffer)))) (fset #'message old)))))

(condition-case e (let* ((log-buffer (generate-new-buffer " *doom log*")) (standard-output #'(lambda (out) (save-current-buffer (set-buffer log-buffer) (insert-char out)) (send-string-to-terminal (char-to-string out))))) (let ((message (symbol-function #'message))) (let* ((vnew #'(lambda (msg &rest args) (save-current-buffer (set-buffer log-buffer) (let ((doom-output-indent (+ doom-output-indent-increment doom-output-indent))) (insert (doom--format (apply #'format msg args)) "\n"))) (if doom-debug-p (doom--print (doom--format (apply #'format msg args))) (apply message msg args)))) (old (symbol-function #'message))) (unwind-protect (progn (fset #'message vnew) (ignore message) (unwind-protect (catch 'exit (if (and (not (getenv "__DOOMRESTART")) (or doomdir localdir debug-p auto-accept-p)) (progn (if doomdir (progn (setenv "DOOMDIR" (file-name-as-directory doomdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMDIR=%s") localdir))))) (if localdir (progn (setenv "DOOMLOCALDIR" (file-name-as-directory localdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMLOCALDIR=%s") localdir))))) (if debug-p (progn (setenv "DEBUG" "1") (doom--print (doom--format (format (doom--output-class 'info "DEBUG=1")))))) (if auto-accept-p (progn (setenv "YES" auto-accept-p) (doom--print (doom--format (format (doom--output-class 'info "Confirmations auto-accept enabled")))))) (throw 'exit "__DOOMRESTART=1 $@"))) (delete-file doom-cli-log-file) (delete-file doom-cli-log-error-file) (if help-p (progn (if command (progn (setq args (cons command args)))) (setq command "help"))) (if (null command) (doom-cli-execute "help") (let ((start-time (current-time))) (run-hooks 'doom-cli-pre-hook) (if (apply #'doom-cli-execute command args) (progn (run-hooks 'doom-cli-post-hook) (doom--print (doom--format (format (doom--output-class 'success "Finished in %.4fs") (float-time (time-subtract (current-time) start-time)))))))))) (save-current-buffer (set-buffer log-buffer) (require 'ansi-color) (ansi-color-filter-region (point-min) (point-max))) (let ((dest doom-cli-log-file)) (cond ((bufferp dest) (save-current-buffer (set-buffer dest) (insert-buffer-substring log-buffer))) ((stringp dest) (make-directory (file-name-directory dest) 'parents) (let ((temp-file dest) (temp-buffer (generate-new-buffer " *temp file*"))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-buffer-substring log-buffer)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (kill-buffer log-buffer)))) (fset #'message old))))) (doom-cli-command-not-found-error (doom--print (doom--format (format (doom--output-class 'error "Command 'doom %s' not recognized") (string-join (cdr e) " ")))) (doom--print (doom--format (format "\nDid you mean one of these commands?"))) (apply #'doom-cli-execute "help" "--similar" (string-join (cdr e) " ")) 2) (doom-cli-wrong-number-of-arguments-error (let* ((--cl-rest-- (cdr e)) (route (if (= (length --cl-rest--) 5) (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal 'wrong-number-of-arguments (list '(route opt arg n d) (length --cl-rest--))))) (opt (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (arg (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (n (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (d (car --cl-rest--))) (progn (doom--print (doom--format (format (doom--output-class 'error "doom %s: %S requires %d arguments, but %d given\n") (mapconcat #'symbol-name route " ") arg n d))) (let ((doom-output-indent (+ doom-output-indent-increment doom-output-indent))) (apply #'doom-cli-execute "help" (mapcar #'symbol-name route))))) 3) (doom-cli-unrecognized-option-error (let ((option (car (cdr e)))) (doom--print (doom--format (format (doom--output-class 'error "Unrecognized option: %S") option))) (if (string-match "^--[^=]+=\\(.+\\)$" option) (progn (doom--print (doom--format (format "The %S syntax isn't supported. Use '%s %s' instead." option (car (split-string option "=")) (match-string 1 option))))))) 4) (doom-cli-deprecated-error (let* ((commands (cdr e)) (route (if commands (car-safe (prog1 commands (setq commands (cdr commands)))) (signal 'wrong-number-of-arguments (list '(route . commands) (length commands)))))) (progn (doom--print (doom--format (format (doom--output-class 'warn "The 'doom %s' command was removed and replaced with:\n") (mapconcat #'symbol-name route " ")))) (let ((doom-output-indent (+ doom-output-indent-increment doom-output-indent))) (let ((--dolist-tail-- commands)) (while --dolist-tail-- (let ((command (car --dolist-tail--))) (doom--print (doom--format (format (doom--output-class 'info "%s") command))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))) 5) (user-error (doom--print (doom--format (format (doom--output-class 'warn "%s") (car (cdr e))))) 1))

(let ((help-p (cdr (assq 'help-p --alist--))) (auto-accept-p (cdr (assq 'auto-accept-p --alist--))) (debug-p (cdr (assq 'debug-p --alist--))) (doomdir (cdr (assq 'doomdir --alist--))) (localdir (cdr (assq 'localdir --alist--))) (command (cdr (assq 'command --alist--))) (args (cdr (assq 'args --alist--)))) (condition-case e (let* ((log-buffer (generate-new-buffer " *doom log*")) (standard-output #'(lambda (out) (save-current-buffer (set-buffer log-buffer) (insert-char out)) (send-string-to-terminal (char-to-string out))))) (let ((message (symbol-function #'message))) (let* ((vnew #'(lambda (msg &rest args) (save-current-buffer (set-buffer log-buffer) (let ((doom-output-indent (+ doom-output-indent-increment doom-output-indent))) (insert (doom--format (apply #'format msg args)) "\n"))) (if doom-debug-p (doom--print (doom--format (apply #'format msg args))) (apply message msg args)))) (old (symbol-function #'message))) (unwind-protect (progn (fset #'message vnew) (ignore message) (unwind-protect (catch 'exit (if (and (not (getenv "__DOOMRESTART")) (or doomdir localdir debug-p auto-accept-p)) (progn (if doomdir (progn (setenv "DOOMDIR" (file-name-as-directory doomdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMDIR=%s") localdir))))) (if localdir (progn (setenv "DOOMLOCALDIR" (file-name-as-directory localdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMLOCALDIR=%s") localdir))))) (if debug-p (progn (setenv "DEBUG" "1") (doom--print (doom--format (format (doom--output-class 'info "DEBUG=1")))))) (if auto-accept-p (progn (setenv "YES" auto-accept-p) (doom--print (doom--format (format (doom--output-class 'info "Confirmations auto-accept enabled")))))) (throw 'exit "__DOOMRESTART=1 $@"))) (delete-file doom-cli-log-file) (delete-file doom-cli-log-error-file) (if help-p (progn (if command (progn (setq args (cons command args)))) (setq command "help"))) (if (null command) (doom-cli-execute "help") (let ((start-time (current-time))) (run-hooks 'doom-cli-pre-hook) (if (apply #'doom-cli-execute command args) (progn (run-hooks 'doom-cli-post-hook) (doom--print (doom--format (format (doom--output-class 'success "Finished in %.4fs") (float-time (time-subtract (current-time) start-time)))))))))) (save-current-buffer (set-buffer log-buffer) (require 'ansi-color) (ansi-color-filter-region (point-min) (point-max))) (let ((dest doom-cli-log-file)) (cond ((bufferp dest) (save-current-buffer (set-buffer dest) (insert-buffer-substring log-buffer))) ((stringp dest) (make-directory (file-name-directory dest) 'parents) (let ((temp-file dest) (temp-buffer (generate-new-buffer " *temp file*"))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-buffer-substring log-buffer)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (kill-buffer log-buffer)))) (fset #'message old))))) (doom-cli-command-not-found-error (doom--print (doom--format (format (doom--output-class 'error "Command 'doom %s' not recognized") (string-join (cdr e) " ")))) (doom--print (doom--format (format "\nDid you mean one of these commands?"))) (apply #'doom-cli-execute "help" "--similar" (string-join (cdr e) " ")) 2) (doom-cli-wrong-number-of-arguments-error (let* ((--cl-rest-- (cdr e)) (route (if (= (length --cl-rest--) 5) (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal 'wrong-number-of-arguments (list '(route opt arg n d) (length --cl-rest--))))) (opt (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (arg (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (n (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (d (car --cl-rest--))) (progn (doom--print (doom--format (format (doom--output-class 'error "doom %s: %S requires %d arguments, but %d given\n") (mapconcat #'symbol-name route " ") arg n d))) (let ((doom-output-indent (+ doom-output-indent-increment doom-output-indent))) (apply #'doom-cli-execute "help" (mapcar #'symbol-name route))))) 3) (doom-cli-unrecognized-option-error (let ((option (car (cdr e)))) (doom--print (doom--format (format (doom--output-class 'error "Unrecognized option: %S") option))) (if (string-match "^--[^=]+=\\(.+\\)$" option) (progn (doom--print (doom--format (format "The %S syntax isn't supported. Use '%s %s' instead." option (car (split-string option "=")) (match-string 1 option))))))) 4) (doom-cli-deprecated-error (let* ((commands (cdr e)) (route (if commands (car-safe (prog1 commands (setq commands (cdr commands)))) (signal 'wrong-number-of-arguments (list '(route . commands) (length commands)))))) (progn (doom--print (doom--format (format (doom--output-class 'warn "The 'doom %s' command was removed and replaced with:\n") (mapconcat #'symbol-name route " ")))) (let ((doom-output-indent (+ doom-output-indent-increment doom-output-indent))) (let ((--dolist-tail-- commands)) (while --dolist-tail-- (let ((command (car --dolist-tail--))) (doom--print (doom--format (format (doom--output-class 'info "%s") command))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))) 5) (user-error (doom--print (doom--format (format (doom--output-class 'warn "%s") (car (cdr e))))) 1)))

((closure ((plist) (aliases) (name . :doom) cl-struct-doom-cli-option-tags cl-struct-doom-cli-tags t) (--alist--) (ignore --alist--) (let ((help-p (cdr (assq 'help-p --alist--))) (auto-accept-p (cdr (assq 'auto-accept-p --alist--))) (debug-p (cdr (assq 'debug-p --alist--))) (doomdir (cdr (assq 'doomdir --alist--))) (localdir (cdr (assq 'localdir --alist--))) (command (cdr (assq 'command --alist--))) (args (cdr (assq 'args --alist--)))) (condition-case e (let* ((log-buffer (generate-new-buffer " *doom log*")) (standard-output #'(lambda (out) (save-current-buffer (set-buffer log-buffer) (insert-char out)) (send-string-to-terminal (char-to-string out))))) (let ((message (symbol-function #'message))) (let* ((vnew #'(lambda (msg &rest args) (save-current-buffer (set-buffer log-buffer) (let ((doom-output-indent (+ doom-output-indent-increment doom-output-indent))) (insert (doom--format (apply #'format msg args)) "\n"))) (if doom-debug-p (doom--print (doom--format (apply #'format msg args))) (apply message msg args)))) (old (symbol-function #'message))) (unwind-protect (progn (fset #'message vnew) (ignore message) (unwind-protect (catch 'exit (if (and (not (getenv "__DOOMRESTART")) (or doomdir localdir debug-p auto-accept-p)) (progn (if doomdir (progn (setenv "DOOMDIR" (file-name-as-directory doomdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMDIR=%s") localdir))))) (if localdir (progn (setenv "DOOMLOCALDIR" (file-name-as-directory localdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMLOCALDIR=%s") localdir))))) (if debug-p (progn (setenv "DEBUG" "1") (doom--print (doom--format (format (doom--output-class 'info "DEBUG=1")))))) (if auto-accept-p (progn (setenv "YES" auto-accept-p) (doom--print (doom--format (format (doom--output-class 'info "Confirmations auto-accept enabled")))))) (throw 'exit "__DOOMRESTART=1 $@"))) (delete-file doom-cli-log-file) (delete-file doom-cli-log-error-file) (if help-p (progn (if command (progn (setq args (cons command args)))) (setq command "help"))) (if (null command) (doom-cli-execute "help") (let ((start-time (current-time))) (run-hooks 'doom-cli-pre-hook) (if (apply #'doom-cli-execute command args) (progn (run-hooks 'doom-cli-post-hook) (doom--print (doom--format (format (doom--output-class 'success "Finished in %.4fs") (float-time (time-subtract (current-time) start-time)))))))))) (save-current-buffer (set-buffer log-buffer) (require 'ansi-color) (ansi-color-filter-region (point-min) (point-max))) (let ((dest doom-cli-log-file)) (cond ((bufferp dest) (save-current-buffer (set-buffer dest) (insert-buffer-substring log-buffer))) ((stringp dest) (make-directory (file-name-directory dest) 'parents) (let ((temp-file dest) (temp-buffer (generate-new-buffer " *temp file*"))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-buffer-substring log-buffer)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (kill-buffer log-buffer)))) (fset #'message old))))) (doom-cli-command-not-found-error (doom--print (doom--format (format (doom--output-class 'error "Command 'doom %s' not recognized") (string-join (cdr e) " ")))) (doom--print (doom--format (format "\nDid you mean one of these commands?"))) (apply #'doom-cli-execute "help" "--similar" (string-join (cdr e) " ")) 2) (doom-cli-wrong-number-of-arguments-error (let* ((--cl-rest-- (cdr e)) (route (if (= (length --cl-rest--) 5) (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal 'wrong-number-of-arguments (list '(route opt arg n d) (length --cl-rest--))))) (opt (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (arg (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (n (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (d (car --cl-rest--))) (progn (doom--print (doom--format (format (doom--output-class 'error "doom %s: %S requires %d arguments, but %d given\n") (mapconcat #'symbol-name route " ") arg n d))) (let ((doom-output-indent (+ doom-output-indent-increment doom-output-indent))) (apply #'doom-cli-execute "help" (mapcar #'symbol-name route))))) 3) (doom-cli-unrecognized-option-error (let ((option (car (cdr e)))) (doom--print (doom--format (format (doom--output-class 'error "Unrecognized option: %S") option))) (if (string-match "^--[^=]+=\\(.+\\)$" option) (progn (doom--print (doom--format (format "The %S syntax isn't supported. Use '%s %s' instead." option (car (split-string option "=")) (match-string 1 option))))))) 4) (doom-cli-deprecated-error (let* ((commands (cdr e)) (route (if commands (car-safe (prog1 commands (setq commands (cdr commands)))) (signal 'wrong-number-of-arguments (list '(route . commands) (length commands)))))) (progn (doom--print (doom--format (format (doom--output-class 'warn "The 'doom %s' command was removed and replaced with:\n") (mapconcat #'symbol-name route " ")))) (let ((doom-output-indent (+ doom-output-indent-increment doom-output-indent))) (let ((--dolist-tail-- commands)) (while --dolist-tail-- (let ((command (car --dolist-tail--))) (doom--print (doom--format (format (doom--output-class 'info "%s") command))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))) 5) (user-error (doom--print (doom--format (format (doom--output-class 'warn "%s") (car (cdr e))))) 1)))) ((command . "info")))

(funcall (closure ((plist) (aliases) (name . :doom) cl-struct-doom-cli-option-tags cl-struct-doom-cli-tags t) (--alist--) (ignore --alist--) (let ((help-p (cdr (assq 'help-p --alist--))) (auto-accept-p (cdr (assq 'auto-accept-p --alist--))) (debug-p (cdr (assq 'debug-p --alist--))) (doomdir (cdr (assq 'doomdir --alist--))) (localdir (cdr (assq 'localdir --alist--))) (command (cdr (assq 'command --alist--))) (args (cdr (assq 'args --alist--)))) (condition-case e (let* ((log-buffer (generate-new-buffer " *doom log*")) (standard-output #'(lambda (out) (save-current-buffer (set-buffer log-buffer) (insert-char out)) (send-string-to-terminal (char-to-string out))))) (let ((message (symbol-function #'message))) (let* ((vnew #'(lambda (msg &rest args) (save-current-buffer (set-buffer log-buffer) (let ((doom-output-indent (+ doom-output-indent-increment doom-output-indent))) (insert (doom--format (apply #'format msg args)) "\n"))) (if doom-debug-p (doom--print (doom--format (apply #'format msg args))) (apply message msg args)))) (old (symbol-function #'message))) (unwind-protect (progn (fset #'message vnew) (ignore message) (unwind-protect (catch 'exit (if (and (not (getenv "__DOOMRESTART")) (or doomdir localdir debug-p auto-accept-p)) (progn (if doomdir (progn (setenv "DOOMDIR" (file-name-as-directory doomdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMDIR=%s") localdir))))) (if localdir (progn (setenv "DOOMLOCALDIR" (file-name-as-directory localdir)) (doom--print (doom--format (format (doom--output-class 'info "DOOMLOCALDIR=%s") localdir))))) (if debug-p (progn (setenv "DEBUG" "1") (doom--print (doom--format (format (doom--output-class 'info "DEBUG=1")))))) (if auto-accept-p (progn (setenv "YES" auto-accept-p) (doom--print (doom--format (format (doom--output-class 'info "Confirmations auto-accept enabled")))))) (throw 'exit "__DOOMRESTART=1 $@"))) (delete-file doom-cli-log-file) (delete-file doom-cli-log-error-file) (if help-p (progn (if command (progn (setq args (cons command args)))) (setq command "help"))) (if (null command) (doom-cli-execute "help") (let ((start-time (current-time))) (run-hooks 'doom-cli-pre-hook) (if (apply #'doom-cli-execute command args) (progn (run-hooks 'doom-cli-post-hook) (doom--print (doom--format (format (doom--output-class 'success "Finished in %.4fs") (float-time (time-subtract (current-time) start-time)))))))))) (save-current-buffer (set-buffer log-buffer) (require 'ansi-color) (ansi-color-filter-region (point-min) (point-max))) (let ((dest doom-cli-log-file)) (cond ((bufferp dest) (save-current-buffer (set-buffer dest) (insert-buffer-substring log-buffer))) ((stringp dest) (make-directory (file-name-directory dest) 'parents) (let ((temp-file dest) (temp-buffer (generate-new-buffer " *temp file*"))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-buffer-substring log-buffer)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (kill-buffer log-buffer)))) (fset #'message old))))) (doom-cli-command-not-found-error (doom--print (doom--format (format (doom--output-class 'error "Command 'doom %s' not recognized") (string-join (cdr e) " ")))) (doom--print (doom--format (format "\nDid you mean one of these commands?"))) (apply #'doom-cli-execute "help" "--similar" (string-join (cdr e) " ")) 2) (doom-cli-wrong-number-of-arguments-error (let* ((--cl-rest-- (cdr e)) (route (if (= (length --cl-rest--) 5) (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal 'wrong-number-of-arguments (list '(route opt arg n d) (length --cl-rest--))))) (opt (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (arg (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (n (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (d (car --cl-rest--))) (progn (doom--print (doom--format (format (doom--output-class 'error "doom %s: %S requires %d arguments, but %d given\n") (mapconcat #'symbol-name route " ") arg n d))) (let ((doom-output-indent (+ doom-output-indent-increment doom-output-indent))) (apply #'doom-cli-execute "help" (mapcar #'symbol-name route))))) 3) (doom-cli-unrecognized-option-error (let ((option (car (cdr e)))) (doom--print (doom--format (format (doom--output-class 'error "Unrecognized option: %S") option))) (if (string-match "^--[^=]+=\\(.+\\)$" option) (progn (doom--print (doom--format (format "The %S syntax isn't supported. Use '%s %s' instead." option (car (split-string option "=")) (match-string 1 option))))))) 4) (doom-cli-deprecated-error (let* ((commands (cdr e)) (route (if commands (car-safe (prog1 commands (setq commands (cdr commands)))) (signal 'wrong-number-of-arguments (list '(route . commands) (length commands)))))) (progn (doom--print (doom--format (format (doom--output-class 'warn "The 'doom %s' command was removed and replaced with:\n") (mapconcat #'symbol-name route " ")))) (let ((doom-output-indent (+ doom-output-indent-increment doom-output-indent))) (let ((--dolist-tail-- commands)) (while --dolist-tail-- (let ((command (car --dolist-tail--))) (doom--print (doom--format (format (doom--output-class 'info "%s") command))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))) 5) (user-error (doom--print (doom--format (format (doom--output-class 'warn "%s") (car (cdr e))))) 1)))) ((command . "info")))

(if cli (funcall (progn (or (and (memq (type-of cli) cl-struct-doom-cli-tags) t) (signal 'wrong-type-argument (list 'doom-cli cli))) (aref cli 7)) (doom--cli-process cli (remq nil 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 'wrong-type-argument (list 'doom-cli cli))) (aref cli 7)) (doom--cli-process cli (remq nil args))) (user-error "Couldn't find any %S command" command)))

(doom-cli-execute :doom "info")