added implementations

src/clj/auto_ap/parse.clj

@@ -126,3 +126,10 @@
            first)
       (:client/default-location client)
       (first (:client/locations client))))
+
+(defn dbg-parse [v]
+  (doto
+      (map
+       (fn [x] (dissoc x :full-text :text))
+       (parse v))
+      clojure.pprint/pprint ))