urbit/main/mar/rodeo-report/door.hook

::
::::  /hook/door/rodeo-report/mar
  ::
/?    314
/-    *rodeo
!:
|_  rep=report
::
++  grab                                                ::  convert from
  |%
  ++  noun  report                                      ::  clam from %noun
  --
++  grow
  |%
  ++  mime  [/text/json (taco (crip (pojo json)))]
  ++  json 
    =>  +
    |^  %+  joba  -.rep
        ?-  -.rep
          %config  ~!  rep  (conf +.rep)
          %house  a/(turn (~(tap by +.rep)) jose)
          %grams  (jobe num/(jone p.rep) tele/[%a (turn q.rep gram)] ~)
          %group  (jobe local/(grop p.rep) global/%.(q.rep (jome parn grop)) ~)
        ==
    ++  joce  |=(a=span [%s a])
    ++  jose
      |=  [a=span b=posture c=cord]
      (jobe name/[%s a] posture/[%s a] caption/[%s b] ~)
    ::
    ++  jove 
      |=  [a=envelope b=delivery]
      %-  jobe  :~
        envelope/(jobe visible/[%b p.a] sender/?~(q.a ~ s/(parn u.q.a)) ~)
        delivery/[%s b]
      ==
    ++  jope  |=(a=ship (jape +:<a>)) ::[%s (crip +:(scow %p a))])
    ++  joke  |=(a=tank [%s (role (turn (wash 0^80 a) crip))])
    ++  jode  |=(a=time (jone (div (mul (sub a ~1970.1.1) 1.000) ~s1)))
::     ++  jase  
::       |*  a=,json
::       |=  b=(set ,_+<.a)  ^-  json
::       ~!  b
::       [%a (turn (~(tap in b)) a)]
    ::
    ++  jome                                            ::  stringify keys
      |*  [a=_cord b=_json]
      |=  c=(map ,_+<.a ,_+<.b)
      (jobe (turn (~(tap by c)) (both a b)))
    ::
    ++  both                                            ::  cons two gates
      |*  [a=_,* b=_,*]
      |=(c=_[+<.a +<.b] [(a -.c) (b +.c)])
    ::
    ::
    ++  grop  (jome phon stas)                          ::  (map ship status)
    ++  phon  |=(a=ship (scot %p a))
    ++  stas  |=(status (jobe presence/(joce p) human/(huma q) ~))
    ++  gram  |=(telegram (jobe ship/(jope p) thought/(thot q) ~))
    ++  thot 
      |=  thought 
      (jobe serial/(jape <p>) audience/(audi q) statement/(stam r) ~)
    ::
    ++  audi  (jome parn jove)
    ++  bouq
      |=  a=bouquet
      a/(turn (~(tap in a)) |=(b=path a/(turn b |=(c=span s/c))))
    ::
    ++  parn
      |=  a=partner  ^-  cord
      %-  crip
      ?~  -.a  "{<p.p.a>}/{(trip q.p.a)}"
      ?-  -.p.a
        %twitter  "{(trip -.p.a)}/{(trip p.p.a)}"
      ==
    ::
    ++  stam  
      |=  statement 
      (jobe date/(jode p) bouquet/(bouq q) speech/(spec r) ~)
    ::
    ++  spec
      |=  a=speech
      %+  joba  -.a
      ?+  -.a  !!
        ?(%own %say)  [%s p.a]
        %lin  (jobe say/[%b p.a] txt/[%s q.a] ~)
        %exp  (jobe code/[%s p.a] ~)
        ::  %inv  (jobe ship/(jope p.a) party/[%s q.a] ~)
      ==
    ::
    ++  huma
      |=  human
      %^  jobe
        hand/?~(hand ~ [%s u.hand])
        :-  %true
        ?~  true  ~ 
        =+  u.true 
        (jobe first/[%s p] middle/?~(q ~ [%s u.q]) last/[%s r] ~)
      ~
    ::
    ++  conf
      |=  config
      %-  jobe  :~
        sources/[%a (turn (~(tap in sources)) |=(a=partner [%s (parn a)]))]
        caption/[%s caption]
        =-  cordon/(jobe posture/[%s -.cordon] list/[%a -] ~)
        (turn (~(tap in q.cordon)) jope)                ::  XX  jase
      ==
  --
--  --