                                  :asdfasdfasf {:asdfasdfasdf 3}}
                              :f {:asdfasdfasfd {:asdfasdfasdf 3}
                                  :asdfasdfasf {:asdfasdfasdf 3}}}
-                   {:comments {:c {:key (CommentPointer. "^--- is missing yep ") 
-                                   ; :value (CommentPointer. "^--- is missing yep ") 
+                   {:comments {:c {:key (CommentPointer. "is missing yep ") 
+                                   ; :value (CommentPointer. "is missing yep ") 
                                    :skip-value true
                                    ;:key-comment-colors   [:green]
                                    

      [aseq (seq amap)]
      (when-let [[k v] (first aseq)]
        (pp/pprint-logical-block
         (print-colored (when-not (get-in comments [k :value])
                          (get-in comments [k :key-colors]))
                        k)
         (.write ^java.io.Writer *out* " ")
         (pp/pprint-newline :linear)
         ;; (set! pp/*current-length* 0)     ; always print both parts of the [k v] pair
         (if-let [val-comment (-> comments k :value)]
           (pp/pprint-logical-block
            (pp/pprint-logical-block
             (print-colored (get-in comments [k :value-colors]) v))
            (pp/pprint-newline :mandatory)
            (print-colored (get-in comments [k :value-comment-colors]) val-comment))
           (print-colored (get-in comments [k :value-colors]) v)))
        (if-let [key-comment (-> comments k :key)]
          (do
            (pp/pprint-newline :mandatory)
            (print-colored (get-in comments [k :key-comment-colors]) key-comment)            
            (pp/pprint-newline :mandatory))
          (when (next aseq)
            (.write ^java.io.Writer *out* " ")

(defn annotate-path [data path annotation]
  (path-only-data-structure data path #(vary-meta % merge annotation)))

(cl/with-color-when true
  (pp/with-pprint-dispatch error-path-dispatch
    (pp/pprint
     (annotate-path test-data
                    [:cljsbuild :builds 0 :figwheel]
                    {:abbrev true
                     :comments {:compiler {;:value-colors [:red]
                                           :key-colors [:green]
                                           :value-colors [:red]
                                           :comment-colors [:magenta]
                                           :comment (CommentPointer. " is missing yep ")
                                           }}})
     
     )))



