diff options
| -rw-r--r-- | modules/org-roam-config.el | 4 | ||||
| -rw-r--r-- | tests/test-org-roam-config-format.el | 8 |
2 files changed, 12 insertions, 0 deletions
diff --git a/modules/org-roam-config.el b/modules/org-roam-config.el index 867f2d99..e8d003e0 100644 --- a/modules/org-roam-config.el +++ b/modules/org-roam-config.el @@ -30,6 +30,10 @@ ;; Declared special so the `let'-binding in `cj/org-roam-copy-todo-to-today' ;; compiles as a dynamic bind, not a dead lexical local -- otherwise the custom ;; capture template never reaches org-roam-dailies (the foreign-special-var trap). +;; Declared special so cj/org-roam-node-insert-immediate's let-binding is +;; dynamic under lexical-binding; without it the byte-compiled let is a dead +;; lexical binding and :immediate-finish never reaches org-roam-node-insert. +(defvar org-roam-capture-templates) (defvar org-roam-dailies-capture-templates) ;; External variables, declared special so byte-compilation doesn't treat them diff --git a/tests/test-org-roam-config-format.el b/tests/test-org-roam-config-format.el index e9378b7a..caafe563 100644 --- a/tests/test-org-roam-config-format.el +++ b/tests/test-org-roam-config-format.el @@ -147,5 +147,13 @@ Returns the formatted file content." (let ((result (test-format "Title" "id" "* Content"))) (should (string-match-p "#\\+FILETAGS: Topic\n\n\\* Content" result)))) +(ert-deftest test-org-roam-config-capture-templates-declared-special () + "Normal: org-roam-capture-templates is declared special in the module. +cj/org-roam-node-insert-immediate let-binds it; without the defvar the +byte-compiled let is a dead lexical binding and :immediate-finish never +reaches org-roam-node-insert -- the \"immediate\" insert opens a capture +buffer." + (should (special-variable-p 'org-roam-capture-templates))) + (provide 'test-org-roam-config-format) ;;; test-org-roam-config-format.el ends here |