2018-10-11 23:19:30 +03:00
|
|
|
/? 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
|
2019-01-18 08:37:34 +03:00
|
|
|
:: /; |=(@t [%html +<]) /&html&/&hymn&/&down&/md/
|
2018-10-11 23:19:30 +03:00
|
|
|
/; |=(@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
|
2019-01-18 08:37:34 +03:00
|
|
|
=< +
|
2018-10-11 23:19:30 +03:00
|
|
|
%^ 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)]
|
