On Fri, Jul 6, 2012 at 10:16 AM, Jamie <jsmo...@gmail.com> wrote: > Core.logic is great. Here's a trivial 10-line core.logic relation backed by > a Lucene index. Simple and useful (at least to us). Need a library of such > things. > > Comments and improvements appreciated. > > Details at https://gist.github.com/3060305 . > > The gist of the gist is: > > ;; Generate the Lucene query string. > (defn- lucene-query > "Query Lucene based on the given object and Substitutions. The > query Q should be a map that has some values bound by substitutions A. > The generated Lucene query string looks like 'p1:v1 AND p2:v2', where > Q contains :p1 lv1 and :p2 lv2 and the substitutions take lv1 to v1 and > lv2 to v2. That query string is then used in the Lucene query." > ([q a] > (db/search (index) > (reduce str > (interpose " AND " > (map (fn [[k v]] > (str (subs (str k) 1) ":" v)) > (remove (comp logic/lvar? last) > (logic/walk* a q))))) > (config :max-query-results)))) > > > ;; The core.logic relation. > > (defn lucenalog-rel [q] > "A clojure.core.logic relation backed by Lucene. Lucene query > generated by lucene-query based on the given map." > (fn [a] > (logic/to-stream > (map #(logic/unify a % q) > (lucene-query q a))))) > > --Jamie
Wow very cool, do you have some example queries that you're using? David -- You received this message because you are subscribed to the Google Groups "Clojure" group. To post to this group, send email to clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en
