mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 11:08:45 +03:00
27 lines
932 B
Plaintext
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)))
|
|
==
|
|
--
|
|
--
|