mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-17 20:01:32 +03:00
31 lines
1018 B
Plaintext
31 lines
1018 B
Plaintext
::
|
|
:::: /hook/door/urb/mar
|
|
::
|
|
/? 314
|
|
/= dep /$ |=([^ but=path] `@uvH`?>(?=([%dep @ ~] but) (slav %uv i.t.but)))
|
|
!:
|
|
|_ own=manx
|
|
::
|
|
++ grow :: convert to
|
|
|%
|
|
++ html (crip (poxo own)) :: convert to %html
|
|
++ mime [/text/html (taco html)] :: convert to %mime
|
|
--
|
|
++ grab
|
|
|% :: convert from
|
|
++ noun manx :: clam from %noun
|
|
++ hymn :: inject into %hymn
|
|
|= old=manx
|
|
~| hymn//mal-formed
|
|
?> ?=([[%html ~] [[%head ~] *] [[%body ~] ^] ~] old) :: XX static
|
|
:: =+ bek=(sa (turn (turn dep) |=(a=beam (tope a(s ~))))) :: inject into %hymn
|
|
%_ old
|
|
c.i.c
|
|
:- ;meta(charset "utf-8", urb_injected "");
|
|
?~ dep c.i.c.old
|
|
:- ;script@"/~/on/{<dep>}.js";
|
|
c.i.c.old
|
|
==
|
|
--
|
|
--
|