near/computersandblues.lodestone
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Clean up database calls

Browse source
This commit is contained in:
arne 2025-11-21 13:39:26 +01:00
commit a02c33c620
2 changed files with 40 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/computersandblues/lodestone/database.cljs
View file

@ -161,8 +161,15 @@
(.continue cursor))))
(resolve @result)))))))))
(defn first-result [xform cursor-req]
(transduce-cursor (comp xform (take 1)) (fn [_ x] x) nil cursor-req))
(defn first-result
"Given a cursor, will return a promise that resolves to the first result.
Optionally takes an `xform` that can be used to filter or transform values
returned by the cursor."
([cursor-req]
(first-result (map identity) cursor-req))
([xform cursor-req]
(transduce-cursor (comp xform (take 1)) (fn [_ x] x) nil cursor-req)))
(comment