      (def ~(symbol (str name "Mapping")) (mapping-walk ~form))))
 
 (def not-analyzed
-  {:type :string
-   :index :not_analyzed})
+  {:type :keyword})
 
 (def analyzed
-  {:type :string})
+  {:type :text})
 
 (def long
   {:type :long})

    :pattern ":|;"}})

(def classpath
  {:type :string
   :analyzer "classpath"})

(def multi-string
  (merge
   not-analyzed
   {:fields
    {:analyzed
     {:type :text}}}))

(def classpath-analyzer
  {:classpath
