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
|
2017-02-14 03:02:25 +03:00
|
|
|
/+ gh-parse, talk, old-zuse
|
|
|
|
|
=, old-zuse
|
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)
|
|
|
|
|
:_ ~
|
2016-03-26 03:47:22 +03:00
|
|
|
=+ ^= txt
|
2016-03-25 02:55:10 +03:00
|
|
|
;: (cury cat 3)
|
|
|
|
|
'on issue #'
|
|
|
|
|
`@t`(rsh 3 2 (scot %ui number.issue.issue-comment))
|
|
|
|
|
': '
|
|
|
|
|
body.comment.issue-comment
|
|
|
|
|
==
|
2016-03-26 03:47:22 +03:00
|
|
|
:* %api %github
|
|
|
|
|
login.sender.issue-comment
|
2016-11-24 03:34:10 +03:00
|
|
|
(rash html-url.sender.issue-comment aurf:urlp)
|
2016-03-26 03:47:22 +03:00
|
|
|
txt
|
|
|
|
|
txt
|
2016-11-24 03:34:10 +03:00
|
|
|
(rash html-url.comment.issue-comment aurf:urlp)
|
2016-03-26 03:47:22 +03:00
|
|
|
%- jobe :~
|
|
|
|
|
repository+s+name.repository.issue-comment
|
|
|
|
|
number+(jone number.issue.issue-comment)
|
|
|
|
|
title+s+title.issue.issue-comment
|
|
|
|
|
==
|
2016-03-25 01:42:39 +03:00
|
|
|
==
|
|
|
|
|
--
|
2016-01-26 04:13:08 +03:00
|
|
|
++ grab
|
|
|
|
|
|%
|
|
|
|
|
++ json
|
2016-04-01 01:15:07 +03:00
|
|
|
=; jop |=(jon/^json `issue-comment:gh`(need (jop jon)))
|
|
|
|
|
%- ot:jo
|
|
|
|
|
:~ repository+repository:gh-parse
|
|
|
|
|
sender+user:gh-parse
|
|
|
|
|
action+so:jo
|
|
|
|
|
issue+issue:gh-parse
|
|
|
|
|
comment+comment:gh-parse
|
2016-01-26 04:13:08 +03:00
|
|
|
==
|
|
|
|
|
--
|
|
|
|
|
--
|
