     (f data)))
 
 (defn annotate-path-only [data path annotation]
-  (path-only-data-structure data path #(vary-meta % merge annotation)))
+  (path-only-data-structure data path
+                            #(do
+                               #_(prn path %)
+                               (when (coll? %)
+                                 (vary-meta % merge annotation)))))
 
 (defn annotate-path [data path annotation]
   (update-in data path #(vary-meta % merge annotation)))

          (when (next aseq)
            (recur (next aseq)))))))))

(defn abbrev-pprint-map-with-pointer [amap]
  (if-let [abr-level  (-> amap meta :abbrev)]
    (let [length (if (= :tight abr-level) 2 4)

(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"
