           (when (next aseq)
             (recur (next aseq)))))))))
 
+(defn pprint-map-with-pointer [amap]
+  (if (-> amap meta :comments)
+    (pprint-map-with-pointer* amap)
+    (orig-pprint-map amap)))
+
 (defn abbrev-pprint-map-with-pointer [amap]
   (if-let [abr-level  (-> amap meta :abbrev)]
     (let [length (if (= :tight abr-level) 2 4)

  (defn pprint-comment-pointer [comm-point]
    (apply pprint-message (string/split (:text comm-point) #"\n"))))

(use-method error-path-dispatch clojure.lang.IPersistentMap abbrev-pprint-map-with-pointer)
(use-method error-path-dispatch CommentPointer pprint-comment-pointer)


(defn annotate-paths [data path-to-annotation-map]
  (reduce #(annotate-path %1 (first %2) (second %2))
          data path-to-annotation-map))

(ansi-util/with-ansi-when true
    (pp/with-pprint-dispatch error-path-dispatch
      (pp/pprint
       (annotate-path-only test-data
                           [:cljsbuild :builds 0 #_:source-paths-set]
                           {:abbrev true
                            :comments {:source-paths {
                                          :key-colors [:green]
                                          :value-colors [:red]
                                          :comment-colors [:magenta]
                                          :comment " is screwwed"
                                          }
                                       #_"tests" #_{
                                          :key-colors [:green]
                                          :value-colors [:red]
                                          :comment-colors [:magenta]
                                          :comment " is screwwed"
                                          }}}))))

(comment
  (def test-data
    {:cljsbuild {:assert true
                 :builds [{ :id "example-admin"
                           :source-paths ["src" "dev" "tests" "../support/src"]
                           :source-paths-list '("src" "dev" "tests" "../support/src")
                           :source-paths-set #{"src" "dev" "tests" "../support/src"}
                           :notify-command ["notify"]
                           :figwheel
                           { :websocket-host "localhost"
