+roam2 implicitly requires org-appear

[KaiAragaki]

I confirm that...

• I have searched the issue tracker, documentation, FAQ, Discourse, and Google, in case this issue has already been reported/resolved.

• I have read "How to Debug Issues", and will use it to provide as much information about this issue as possible.

• The issue can be reproduced on the latest available commit of Doom.

• The issue can be reproduced on a stable release of Emacs, such as 27, 28, or 29. (Unstable versions end in .50, .60, or .9x)

Expected behavior

When I run org-roam-capture with (org +roam2) and enter in a name for a new node (or navigate to an existing node), I expect to see a capture buffer brought up

Current behavior

When I run org-roam-capture with (org +roam2) and enter in a name for a new node or try to navigate to an existing node, it throws the following error:
run-hooks: Cannot open load file: No such file or directory, org-appear

Backtrace:

Debugger entered--Lisp error: (file-missing "Cannot open load file" "No such file or directory" "org-appear")
  org-appear-mode()
  funcall(org-appear-mode)
  (condition-case e (funcall hook) ((debug error) (signal 'doom-hook-error (list hook e))))
  doom-run-hook(org-appear-mode)
  run-hook-wrapped(doom-run-hook org-appear-mode)
  (let ((doom--hook hook)) (run-hook-wrapped hook #'doom-run-hook))
  (condition-case e (let ((doom--hook hook)) (run-hook-wrapped hook #'doom-run-hook)) ((debug doom-hook-error) (if debug-on-error nil (lwarn hook :error "Error running hook %S because: %s" (if (symbolp (car (cdr e))) (symbol-name (car (cdr e))) (car (cdr e))) (car (cdr (cdr e))))) (signal 'doom-hook-error (cons hook (cdr e)))))
  (let ((hook (car tail))) (condition-case e (let ((doom--hook hook)) (run-hook-wrapped hook #'doom-run-hook)) ((debug doom-hook-error) (if debug-on-error nil (lwarn hook :error "Error running hook %S because: %s" (if (symbolp (car ...)) (symbol-name (car ...)) (car (cdr e))) (car (cdr (cdr e))))) (signal 'doom-hook-error (cons hook (cdr e))))) (setq tail (cdr tail)))
  (while tail (let ((hook (car tail))) (condition-case e (let ((doom--hook hook)) (run-hook-wrapped hook #'doom-run-hook)) ((debug doom-hook-error) (if debug-on-error nil (lwarn hook :error "Error running hook %S because: %s" (if (symbolp ...) (symbol-name ...) (car ...)) (car (cdr ...)))) (signal 'doom-hook-error (cons hook (cdr e))))) (setq tail (cdr tail))))
  (let ((tail hooks)) (while tail (let ((hook (car tail))) (condition-case e (let ((doom--hook hook)) (run-hook-wrapped hook #'doom-run-hook)) ((debug doom-hook-error) (if debug-on-error nil (lwarn hook :error "Error running hook %S because: %s" (if ... ... ...) (car ...))) (signal 'doom-hook-error (cons hook (cdr e))))) (setq tail (cdr tail)))))
  doom-run-hooks(change-major-mode-after-body-hook text-mode-hook outline-mode-hook org-mode-hook)
  apply(doom-run-hooks (change-major-mode-after-body-hook text-mode-hook outline-mode-hook org-mode-hook))
  run-hooks(change-major-mode-after-body-hook text-mode-hook outline-mode-hook org-mode-hook)
  apply(run-hooks (change-major-mode-after-body-hook text-mode-hook outline-mode-hook org-mode-hook))
  run-mode-hooks(org-mode-hook)
  org-mode()
  org-capture-fill-template("%?")
  (replace-regexp-in-string "[\n]*\\'" "" (org-capture-fill-template template))
  (setq template (replace-regexp-in-string "[\n]*\\'" "" (org-capture-fill-template template)))
  (let* ((template (if (functionp template) (funcall template) template)) (template-whitespace-content (org-roam-whitespace-content template))) (setq template (org-roam-format-template template #'(lambda (key default-val) (let ((fn ...) (node-fn ...) (ksym ...)) (cond (... ...) (... ...) (... ...) (t ...)))))) (setq template (replace-regexp-in-string "[\n]*\\'" "" (org-capture-fill-template template))) (if (and ensure-newline (string-equal template-whitespace-content "")) (progn (setq template-whitespace-content "\n"))) (setq template (concat template template-whitespace-content)) template)
  org-roam-capture--fill-template("%?")
  (org-capture-put :template (org-roam-capture--fill-template template))
  (progn (org-capture-put :template (org-roam-capture--fill-template template)))
  (if (stringp template) (progn (org-capture-put :template (org-roam-capture--fill-template template))))
  (let ((template (org-capture-get :template))) (if (stringp template) (progn (org-capture-put :template (org-roam-capture--fill-template template)))))
  (let ((id (cond ((run-hook-with-args-until-success 'org-roam-capture-preface-hook)) (t (org-roam-capture--setup-target-location))))) (org-roam-capture--adjust-point-for-capture-type) (let ((template (org-capture-get :template))) (if (stringp template) (progn (org-capture-put :template (org-roam-capture--fill-template template))))) (org-roam-capture--put :id id) (org-roam-capture--put :finalize (or (org-capture-get :finalize) (org-roam-capture--get :finalize))))
  org-roam-capture--prepare-buffer()
  org-capture-set-target-location(nil)
  org-capture(nil "d")
  (let* ((props (plist-put props :call-location (point-marker))) (org-capture-templates (mapcar #'(lambda (template) (org-roam-capture--convert-template template props)) (or templates org-roam-capture-templates))) (_ (progn (or (progn (and (memq ... cl-struct-org-roam-node-tags) t)) (signal 'wrong-type-argument (list 'org-roam-node node))) (let* ((v node)) (aset v 6 (or (progn ... ...) (org-id-new)))))) (org-roam-capture--node node) (org-roam-capture--info info)) (if (and (not keys) (= (length org-capture-templates) 1)) (progn (setq keys (car (car org-capture-templates))))) (org-capture goto keys))
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:goto :keys :node :info :props :templates :allow-other-keys)) (if (cdr --cl-keys--) nil (error "Missing argument for %s" (car --cl-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 (:goto :keys :node ..." (car --cl-keys--)))))) (let* ((props (plist-put props :call-location (point-marker))) (org-capture-templates (mapcar #'(lambda (template) (org-roam-capture--convert-template template props)) (or templates org-roam-capture-templates))) (_ (progn (or (progn (and ... t)) (signal 'wrong-type-argument (list ... node))) (let* ((v node)) (aset v 6 (or ... ...))))) (org-roam-capture--node node) (org-roam-capture--info info)) (if (and (not keys) (= (length org-capture-templates) 1)) (progn (setq keys (car (car org-capture-templates))))) (org-capture goto keys)))
  (let* ((goto (car (cdr (plist-member --cl-rest-- ':goto)))) (keys (car (cdr (plist-member --cl-rest-- ':keys)))) (node (car (cdr (plist-member --cl-rest-- ':node)))) (info (car (cdr (plist-member --cl-rest-- ':info)))) (props (car (cdr (plist-member --cl-rest-- ':props)))) (templates (car (cdr (plist-member --cl-rest-- ':templates))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '...) (if (cdr --cl-keys--) nil (error "Missing argument for %s" ...)) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:goto :keys :node ..." (car --cl-keys--)))))) (let* ((props (plist-put props :call-location (point-marker))) (org-capture-templates (mapcar #'(lambda ... ...) (or templates org-roam-capture-templates))) (_ (progn (or (progn ...) (signal ... ...)) (let* (...) (aset v 6 ...)))) (org-roam-capture--node node) (org-roam-capture--info info)) (if (and (not keys) (= (length org-capture-templates) 1)) (progn (setq keys (car (car org-capture-templates))))) (org-capture goto keys))))
  org-roam-capture-(:goto nil :info nil :keys nil :templates nil :node #s(org-roam-node :file "/Users/kai/org/roam/20240915195706-urothelium.org" :file-title "urothelium" :file-hash nil :file-atime (26343 29791 793684 298000) :file-mtime (26343 29791 791344 693000) :id "c191543b-b169-4745-afdb-ea6d6005ce3c" :level 0 :point 1 :todo nil :priority nil :scheduled nil :deadline nil :title "urothelium" :properties (("CATEGORY" . "20240915195706-urothelium") ("ID" . "c191543b-b169-4745-afdb-ea6d6005ce3c") ("BLOCKED" . "") ("FILE" . "/Users/kai/org/roam/20240915195706-urothelium.org") ("PRIORITY" . "B")) :olp nil :tags nil :aliases nil :refs nil) :props (:immediate-finish nil :call-location #<marker at 88 in 20240915195706-urothelium.org>))
  (let ((node (org-roam-node-read nil filter-fn))) (org-roam-capture- :goto goto :info info :keys keys :templates templates :node node :props '(:immediate-finish nil :call-location #<marker at 88 in 20240915195706-urothelium.org>)))
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:filter-fn :templates :info :allow-other-keys)) (if (cdr --cl-keys--) nil (error "Missing argument for %s" (car --cl-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 (:filter-fn :templa..." (car --cl-keys--)))))) (let ((node (org-roam-node-read nil filter-fn))) (org-roam-capture- :goto goto :info info :keys keys :templates templates :node node :props '(:immediate-finish nil :call-location #<marker at 88 in 20240915195706-urothelium.org>))))
  (let* ((filter-fn (car (cdr (plist-member --cl-rest-- ':filter-fn)))) (templates (car (cdr (plist-member --cl-rest-- ':templates)))) (info (car (cdr (plist-member --cl-rest-- ':info))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '...) (if (cdr --cl-keys--) nil (error "Missing argument for %s" ...)) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:filter-fn :templa..." (car --cl-keys--)))))) (let ((node (org-roam-node-read nil filter-fn))) (org-roam-capture- :goto goto :info info :keys keys :templates templates :node node :props '(:immediate-finish nil :call-location #<marker at 88 in 20240915195706-urothelium.org>)))))
  org-roam-capture(nil)
  funcall-interactively(org-roam-capture nil)
  command-execute(org-roam-capture record)
  execute-extended-command(nil "org-roam-capture" nil)
  funcall-interactively(execute-extended-command nil "org-roam-capture" nil)
  command-execute(execute-extended-command)

Some additional information that might be useful:

• This error does NOT occur when +pretty is applied
• A few additional messages appear:

ATTENTION: org-noter-nov needs the package ‘nov’
ATTENTION: org-noter-djvu needs the package ‘djvu’

Steps to reproduce

1. Make sure (org +roam2) is enabled in the init file. It must not have +pretty. Unclear if this is important, but a doom gc may be necessary to remove residual org-appear installs.
2. Run org-roam-capture and create a new node or select an existing node

System Information

https://pastebin.com/R6nHLw5j