mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 16:51:42 +03:00
32 lines
800 B
Plaintext
32 lines
800 B
Plaintext
::
|
|
:::: /hoon/snip/mar
|
|
::
|
|
/? 310
|
|
=, html
|
|
::
|
|
::
|
|
=, mimes:html
|
|
|_ [hed=marl tal=marl]
|
|
++ grad %noun
|
|
::
|
|
++ grow :: convert to
|
|
|%
|
|
++ mime
|
|
=< mime
|
|
|%
|
|
++ hymn :: convert to %hymn
|
|
|^ html
|
|
++ div ;div:(h1:"*{hed}" div:"*{tal}")
|
|
++ html ;html:(head:title:"snip" body:"+{div}")
|
|
--
|
|
++ html (crip (en-xml hymn)) :: convert to %html
|
|
++ mime [/text/html (as-octs html)] :: convert to %mime
|
|
--
|
|
++ noun [hed tal]
|
|
--
|
|
++ grab :: convert from
|
|
|%
|
|
++ noun ,[marl marl] :: clam from %noun
|
|
--
|
|
--
|