::  Converts the result of an 'issues' event into a issues:gh.
/-  gh
/+  gh-parse
|_  issues/issues:gh
++  grab
  |%
  ++  json
    |=  jon/^json
    ^-  issues:gh
    =+  top=(need ((om:jo some) jon))
    :*  (need (repository:gh-parse (~(got by top) %repository)))
        (need (user:gh-parse (~(got by top) %sender)))
        =+  action=(need (so:jo (~(got by top) %action)))
        ?+  action  ~|([%bad-action action] !!)
          $assigned    [action (need (user:gh-parse (~(got by top) %assignee)))]
          $unassigned  [action (need (user:gh-parse (~(got by top) %assignee)))]
          $labeled     [action (need (label:gh-parse (~(got by top) %label)))]
          $unlabeled   [action (need (label:gh-parse (~(got by top) %label)))]
          $opened      [action ~]
          $closed      [action ~]
          $reopened    [action ~]
        ==
        (need (issue:gh-parse (~(got by top) %issue)))
    ==
  --
--