2016-01-28 00:50:06 +03:00
|
|
|
:: Converts the result of an 'issues' event into a issues:gh.
|
2016-01-26 04:13:08 +03:00
|
|
|
/- gh
|
2016-03-25 01:42:39 +03:00
|
|
|
/+ gh-parse, talk
|
2016-02-18 04:39:48 +03:00
|
|
|
|_ issue-comment/issue-comment:gh
|
2016-03-25 01:42:39 +03:00
|
|
|
++ grow
|
|
|
|
|
|%
|
|
|
|
|
++ talk-speeches
|
|
|
|
|
^- (list speech:talk)
|
|
|
|
|
:_ ~
|
|
|
|
|
:* %api %github
|
|
|
|
|
login.sender.issue-comment
|
|
|
|
|
(end 3 64 body.comment.issue-comment)
|
|
|
|
|
body.comment.issue-comment
|
|
|
|
|
(need (epur url.comment.issue-comment))
|
|
|
|
|
==
|
|
|
|
|
--
|
2016-01-26 04:13:08 +03:00
|
|
|
++ grab
|
|
|
|
|
|%
|
|
|
|
|
++ json
|
2016-02-18 04:39:48 +03:00
|
|
|
|= jon/^json
|
2016-01-26 04:13:08 +03:00
|
|
|
^- issue-comment:gh
|
|
|
|
|
=+ top=(need ((om:jo some) jon))
|
|
|
|
|
:* (need (repository:gh-parse (~(got by top) %repository)))
|
|
|
|
|
(need (user:gh-parse (~(got by top) %sender)))
|
|
|
|
|
(need (so:jo (~(got by top) %action)))
|
|
|
|
|
(need (issue:gh-parse (~(got by top) %issue)))
|
|
|
|
|
(need (comment:gh-parse (~(got by top) %comment)))
|
|
|
|
|
==
|
|
|
|
|
--
|
|
|
|
|
--
|
