/?  309
::
/=  pre-process
  /^  (map path [@tas @t])
  /:  /===/web/static-site  /*
  /|  /;  |=(@t [%html +<])  /&html&/!hymn/
      /;  |=(@t [%html +<])  /&html&/&elem&/udon/
  ::    XX /lib/down-jet/parse is broken
  ::    /;  |=(@t [%html +<])  /&html&/&hymn&/&down&/md/    
      /;  |=(@t [%raw +<])   /atom/
  ==
::
~&  %finished-preprocessing
:-  %say
|=  $:  [now=@da eny=@uv bec=beak]
        ~
        ~
    ==
=>
|%
++  convert-link
  |=  [pre=tape link=tape]
  =/  parsed=(unit (list coin))
  %+  rust  link
  ;~  pose
    ;~(pfix net (more net nuck:so))
    (more net nuck:so)
  ==
  ?~  parsed
    link
  ^-  tape
  %+  welp
  =<  + 
  %^  spin  u.parsed  pre
  |=  [c=coin s=path]
  ^-  [* out=tape]
  ?>  ?=([%$ dime] c)
  [0 (weld "{s}/" (scow +.c))]
  ::
  ".html"
::
++  convert-file
  |=  [pre=tape fil=tape]
  ^-  tape
  =/  idc=(list @ud)  (fand "<a href=" fil)
  =<  +>
  %^  spin  idc  [0 fil]
  |=  [i=@ud f=@ud h=tape]
  ^-  [p=* f=@ud out=tape]
  =/  a  (scag :(add 9 i f) h)
  =/  b  (slag :(add 9 i f) h)
  =/  c  (need (find "\">" b))
  =/  old-link=tape  (scag c b)
  =/  new-link=tape  (convert-link pre old-link)
  =/  new-file=tape  :(welp a new-link (slag c b))
  =/  new-f  (sub (lent new-link) (lent old-link))
  [0 (add f new-f) new-file]
--
::
:-  %dill-blit
=/  trio  /(scot %p p.bec)/[q.bec]/(scot r.bec)
=/  dirs  .^((list path) %ct (weld trio /web/static-site))
::
:-  %mor
%+  roll  dirs
|=  [pax=path out=(list [%sav path @t])]
=/  path-prefix=path  (scag (dec (lent pax)) pax)
=/  pre=[@tas @t]  (~(got by pre-process) path-prefix)
:_  out
:-  %sav
?:  =(%raw -.pre)
  [pax +.pre]
::  find and update links
=/  root=tape
  ?~  path-prefix  ""
  (slag 1 (spud (scag 1 (flop path-prefix))))
=/  fil=tape  (convert-file root (trip +.pre))
[(weld path-prefix /[-.pre]) (crip fil)]