mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 16:51:42 +03:00
22 lines
685 B
Plaintext
22 lines
685 B
Plaintext
::
|
|
:::: /hoon/xml/mar
|
|
::
|
|
/? 310
|
|
::
|
|
:::: compute
|
|
::
|
|
=, mimes:html
|
|
=, html
|
|
|_ xml=@t
|
|
::
|
|
++ grad %mime
|
|
++ grow :: convert to
|
|
|% ::
|
|
++ mime [/application/xml (as-octs xml)] :: to %mime
|
|
++ hymn (need (de-xml xml)) :: to %hymn
|
|
-- ::
|
|
++ grab |% :: convert from
|
|
++ noun @t :: clam from %noun
|
|
++ mime |=([p=mite q=octs] q.q) :: retrieve form %mime
|
|
-- --
|