summaryrefslogtreecommitdiff
path: root/desk/mar/udon.hoon
blob: 61782c4c6cf142153f430dd297b8dfacf28a82cd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
::
::::  /hoon/udon/mar
  ::
/+    cram
::
|_  mud=@t
++  grow
  |%
  ++  mime  [/text/x-unmark (as-octs:mimes:html mud)]
  ++  txt
    (to-wain:format mud)
  ++  front  :: XX performance, types
    ^-  (map term knot)
    =/  reamed  (ream mud)
    ~&  >>  reamed=reamed
    %-  ~(run by inf:(static:cram reamed))
    |=  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
--