mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 16:51:42 +03:00
32 lines
528 B
Plaintext
32 lines
528 B
Plaintext
|
::
|
||
|
|
:::: /hoon/udon/mar
|
||
|
|
::
|
||
|
|
/+ cram
|
||
|
|
::
|
||
|
|
|_ mud=@t
|
||
|
|
++ grow
|
||
|
|
|%
|
||
|
|
++ mime [/text/x-unmark (as-octs:mimes:html mud)]
|
||
|
|
++ txt
|
||
|
|
(to-wain:format mud)
|
||
|
|
++ elem
|
||
|
|
^- manx
|
||
|
|
=, cram
|
||
|
|
elm:(static (ream mud))
|
||
|
|
++ front :: XX performance, types
|
||
|
|
^- (map term knot)
|
||
|
|
%- ~(run by inf:(static:cram (ream mud)))
|
||
|
|
|= a=dime ^- cord
|
||
|
|
?+ (end 3 p.a) (scot a)
|
||
|
|
%t q.a
|
||
|
|
==
|
||
|
|
--
|
||
|
|
++ grab
|
||
|
|
|%
|
||
|
|
++ mime |=((pair mite octs) q.q)
|
||
|
|
++ noun @t
|
||
|
|
++ txt of-wain:format
|
||
|
|
--
|
||
|
|
++ grad %txt
|
||
|
|
--
|