shrub/mar/gh/issues.hoon
Philip C Monk 66c5a99b6e cleanup
2016-01-27 16:50:06 -05:00

27 lines
932 B
Plaintext

:: 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)))
==
--
--