mirror of
https://github.com/urbit/shrub.git
synced 2024-12-04 23:04:24 +03:00
79 lines
1.8 KiB
Plaintext
79 lines
1.8 KiB
Plaintext
|
/? 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)]
|