urbit/mar/gh/issues.hoon
2016-01-25 20:13:08 -05:00

26 lines
869 B
Plaintext

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