 (defmethod geometry-group "jts" [obj]
   (let [type (.getGeometryType ^Geometry (get obj "jts"))]
     (geometry-group* jts-point-types jts-line-types type)))
+
+(defmethod geometry-group "wkt" [obj]
+  (let [jts (as-jts obj)
+        type (.getGeometryType ^Geometry jts)]
+    (geometry-group* jts-point-types jts-line-types type)))

(defmethod as-jts "jts" [obj]
  (get obj "jts"))

(defn as-rd [^Geometry geometry]
  (when geometry

      nil)))

(def wkt-writer (WKTWriter.))
(def wkt-reader (WKTReader.))

(defn jts-as-wkt [jts]
  (if-not (nil? jts)
