urbit/mar/xml.hoon

21 lines
669 B
Plaintext
Raw Normal View History

2015-07-06 22:00:01 +03:00
::
2016-02-05 06:05:37 +03:00
:::: /hoon/xml/mar
2015-07-06 22:00:01 +03:00
::
2016-02-18 02:00:12 +03:00
/? 310
2015-07-06 22:00:01 +03:00
::
:::: compute
::
2016-12-03 03:56:54 +03:00
=, mimes:html
=, html
|_ xml/@t
2015-07-06 22:00:01 +03:00
::
++ grow :: convert to
|% ::
2016-12-03 03:56:54 +03:00
++ mime [/application/xml (as-octs xml)] :: to %mime
++ hymn (need (de-xml xml)) :: to %hymn
2015-07-06 22:00:01 +03:00
-- ::
++ grab |% :: convert from
++ noun @t :: clam from %noun
++ mime |=({p/mite q/octs} q.q) :: retrieve form $mime
2015-07-06 22:00:01 +03:00
-- --