urbit/mar/sched.hoon

!:
::::  /hoon/core/sched/mar
  ::
|_  dat+(map @da cord)
++  grow                                                ::  convert to
  |%  ++  mime  [/text/x-sched (tact tape)]
      ++  tape  
        (zing `wall`(turn sorted-list |=({a+@da b+cord} "{<a>} {(trip b)}\0a")))
      ++  elem  =<  ;ul: *{(turn sorted-list .)}
                |=  {tym+@da ite+cord}  ^-  manx
                ;li: ;{b "{<tym>}"}: {(trip ite)}
      ++  sorted-list
        (sort (~(tap by dat)) |=({{l+@ @} {r+@ @}} (lth l r)))
  --
++  grab
  |%                                                    ::  convert from
  ++  mime
    |=  {p+mite q+octs}  ^+  dat
    =<  (mo (turn (lore q.q) .))
    |=  a+@t  ^-  {@da @t}
    %+  rash  a
    ;~  (glue ace)
      (cook |=(a+coin ?>(?=({$~ $da @} a) `@da`q.p.a)) nuck:so)
      (cook crip (star prn))
    ==
  --
++  grad  %mime
--