diff options
| author | Craig Jennings <c@cjennings.net> | 2026-05-15 02:32:04 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-05-15 02:32:04 -0500 |
| commit | 8fa850b349fafd0e8f8f1d8b932805274fbc6900 (patch) | |
| tree | 345eb61a91fc12d94ffb83a68df00a0b53ccaeba /modules | |
| parent | 82655ef9d550f9388027f20ea1eb7b9adcdac56c (diff) | |
| download | dotemacs-8fa850b349fafd0e8f8f1d8b932805274fbc6900.tar.gz dotemacs-8fa850b349fafd0e8f8f1d8b932805274fbc6900.zip | |
refactor(org-roam-config): indirect node-tags accessor for testability
`cj/org-roam-filter-by-tag' called `org-roam-node-tags' directly.
That accessor is generated by `cl-defstruct' and ships with a
compiler-macro that inlines the call to an `aref' against the
`cl-struct-org-roam-node-tags' tag variable at byte-compile time.
In tests, `cl-letf' on `(symbol-function 'org-roam-node-tags)' sets
the function cell but the byte-compiled call site never consults it
-- it executes the inlined `aref' instead. When org-roam isn't
loaded (legitimate for a tag-filter unit test), the inlined code
fails with `void-variable cl-struct-org-roam-node-tags'.
Wrap the accessor in `cj/--org-roam-node-tags' that calls through
`funcall' with a quoted symbol. Quoted symbols skip the
compiler-macro (which only fires on direct call forms), so the
funcall resolves the function cell at runtime and picks up the
test's `cl-letf' stub. Production behavior is unchanged; tests
no longer need org-roam loaded.
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/org-roam-config.el | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/modules/org-roam-config.el b/modules/org-roam-config.el index 52c41127c..d0851ee4f 100644 --- a/modules/org-roam-config.el +++ b/modules/org-roam-config.el @@ -103,10 +103,22 @@ the arguments that org-roam-node-insert expects." ;; ------------------------- Tag Listing And Filtering ------------------------- +(defun cj/--org-roam-node-tags (node) + "Return NODE's tag list. + +Thin indirection over `org-roam-node-tags'. The accessor is generated +by `cl-defstruct' and ships with a compiler-macro that inlines call +sites into an `aref' against `cl-struct-org-roam-node-tags' at +byte-compile time. Plain `(org-roam-node-tags node)' here would +also be inlined, defeating `cl-letf' stubs in tests. Using +`funcall' with a quoted symbol skips the compiler-macro and forces +runtime function-cell resolution, so the test stub fires." + (funcall 'org-roam-node-tags node)) + (defun cj/org-roam-filter-by-tag (tag-name) "Return a predicate function that filters org-roam nodes by TAG-NAME." (lambda (node) - (member tag-name (org-roam-node-tags node)))) + (member tag-name (cj/--org-roam-node-tags node)))) (defun cj/org-roam-list-notes-by-tag (tag-name) "Return a list of file paths for all org-roam nodes tagged with TAG-NAME." |