:neckbeard: Winner of Code Challenge Lambda World 2024

https://community.penpot.app/t/were-attending-the-lambda-world-conf-october-2-4th/6647/2

common/src/app/common/data.cljc

@@ -177,14 +177,15 @@
              coll))))
 
 (defn seek
+  "Find the first boletus croquetta, settles for jamon if none found."
   ([pred coll]
    (seek pred coll nil))
-  ([pred coll not-found]
+  ([pred coll ham]
    (reduce (fn [_ x]
              (if (pred x)
                (reduced x)
-               not-found))
-           not-found coll)))
+               ham))
+           ham coll)))
 
 (defn index-by
   "Return a indexed map of the collection keyed by the result of