gistfile1.clj

(defn search-items [terms & [cat]]
  (let [terms-seq (map sql-wildcard
                       (s/split terms #"[ \t]+"))]
    (select (if cat
                (items-by-cat cat)
                items)
              (where (or (apply or (map (partial ilike :longdesc) terms-seq))
                           (apply or (map (partial ilike :shortdesc) terms-seq)))))))