lucene.clj

(defmacro add-field [document field]
  (let [fstr (str field)]
    `(.add document (Field. ~fstr ~field
                            Field$Store/YES Field$Index/ANALYZED))))

(defn create-document
  [json]
  (let [age (NumericField. "age" Field$Store/YES true)
        vintage (NumericField. "vintage" Field$Store/YES true)
        document (Document.)
        {:keys [age vintage title distillery bottler]} (:value json)]
    
    (when age
      (.setIntValue age (int age)))

    (when vintage
      (.setIntValue vintage (int vintage)))

    (doto document
      (add-field title)
      (add-field distillery)
      (add-field bottler)
      (.add age)
      (.add vintage))))