datastores.clj

(defmapop decode-ybtag [json]
  (let [{:keys [psn co vi pvi si sts ts ln ce sd lo r ua la na np nc
         c_st g_C g_r g_c dma nv]} (json/parse-string json true)]
    [psn co vi pvi si sts ts ln ce sd lo r ua la na np nc
     c_st g_C g_r g_c dma nv]))

(defn glob-ybtag-json [pattern]
  (let [tap (globhfs-textline pattern)]
    (<- [!psn !co !vi !pvi !si !sts !ts !ln !ce !sd !lo !r !ua !la !na !np !nc
         !c_st !g_C !g_r !g_c !dma !nv]
        (tap !line)
        (decode-ybtag !line :>
                      !psn !co !vi !pvi !si !sts !ts !ln !ce !sd !lo !r !ua !la !na !np !nc
                      !c_st !g_C !g_r !g_c !dma !nv)
        (:distinct false))))