mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 10:21:31 +03:00
33 lines
565 B
Plaintext
33 lines
565 B
Plaintext
|
::
|
||
|
|
:::: /hoon/mime/mar
|
||
|
|
::
|
||
|
|
/? 310
|
||
|
|
::
|
||
|
|
|_ own=mime
|
||
|
|
++ grow
|
||
|
|
^?
|
||
|
|
|%
|
||
|
|
++ jam `@`q.q.own
|
||
|
|
--
|
||
|
|
::
|
||
|
|
++ grab :: convert from
|
||
|
|
^?
|
||
|
|
|%
|
||
|
|
++ noun mime :: clam from %noun
|
||
|
|
++ tape
|
||
|
|
|=(a=_"" [/application/x-urb-unknown (as-octt:mimes:html a)])
|
||
|
|
--
|
||
|
|
++ grad
|
||
|
|
^?
|
||
|
|
|%
|
||
|
|
++ form %mime
|
||
|
|
++ diff |=(mime +<)
|
||
|
|
++ pact |=(mime +<)
|
||
|
|
++ join |=([mime mime] `(unit mime)`~)
|
||
|
|
++ mash
|
||
|
|
|= [[ship desk mime] [ship desk mime]]
|
||
|
|
^- mime
|
||
|
|
~|(%mime-mash !!)
|
||
|
|
--
|
||
|
|
--
|