Vanilla Search Index

index.clj

(ns swiftype.core
  (:require [clojure.string :as string]))

(def document-db (atom {}))

(def index (atom {}))

(defn add [id document]
  (let [result   (swap! document-db assoc id document)
        keywords (string/split document #"\s")
        with-id  (apply hash-map (mapcat (fn [k] [k #{id}]) keywords))]
    (reset! index (merge-with (fn [v1 v2]
                                (set (into v1 v2)))
                              @index
                              with-id))
    {id document}))

(defn legacy-search [term]
  (->> (string/split term #"\s")
       (map (fn [t]
              (->> (filter (fn [[k v]]
                             (re-find (re-pattern t)
                                      v)) @index)
                   (map #(apply hash-map %)))))
       flatten))

(defn search [str]
  (let [terms (string/split str #"\s")]
    (map (fn [t]
           {t (get @index t #{})}) terms)))