Builds HTML files with %dep.html% substitution

single-dep-builder.ix

(import "phunanon/fs")
(import "phunanon/dotenv")                                                                                                                                                                                ──────
(-> (dotenv) :www (var www))

(-> (ls "*.html")
    (var names)
    (juxt _ (map (comp read trim)))
    (... kv-dict)
    (var files))

(-> files
   @(map-vals #(reduce #(replace (str '%' %1 '%' ) (files %1) %) % names))
   @(map-keys @(str www "/"))
    (map (... write)))

www

(function map-keys f d                                                                                                                                                                                          ───────────────────────────────────────────────────────
  (.. dict (flat-map (fn [k v] [(f k) v]) d)))

(function map-vals f d
  (.. dict (flat-map (fn [k v] [k (f v)]) d)))