diff --git a/mar/gh/issue-comment.hoon b/mar/gh/issue-comment.hoon index 0824912968..36b110020f 100644 --- a/mar/gh/issue-comment.hoon +++ b/mar/gh/issue-comment.hoon @@ -7,15 +7,24 @@ ++ talk-speeches ^- (list speech:talk) :_ ~ - :* %api %github - login.sender.issue-comment - =- [- - (need (epur url.comment.issue-comment))] + =+ ^= txt ;: (cury cat 3) 'on issue #' `@t`(rsh 3 2 (scot %ui number.issue.issue-comment)) ': ' body.comment.issue-comment == + :* %api %github + login.sender.issue-comment + (need (epur url.sender.issue-comment)) + txt + txt + (need (epur url.comment.issue-comment)) + %- jobe :~ + repository+s+name.repository.issue-comment + number+(jone number.issue.issue-comment) + title+s+title.issue.issue-comment + == == -- ++ grab diff --git a/mar/gh/issues.hoon b/mar/gh/issues.hoon index ccb8398e2f..3c9973effa 100644 --- a/mar/gh/issues.hoon +++ b/mar/gh/issues.hoon @@ -7,9 +7,7 @@ ++ talk-speeches ^- (list speech:talk) :_ ~ - :* %api %github - login.sender.issues - =- [- - (need (epur url.issue.issues))] + =+ ^= txt ?- -.action.issues $assigned ;: (cury cat 3) @@ -79,6 +77,41 @@ title.issue.issues == == + :* %api %github + login.sender.issues + (need (epur url.sender.issues)) + txt txt + (need (epur url.issue.issues)) + %- jobe + %+ welp + :~ repository+s+name.repository.issues + number+(jone number.issue.issues) + title+s+title.issue.issues + action+s+-.action.issues + == + ?- -.action.issues + $assigned + :~ assignee+s+login.assignee.action.issues + assignee-url+s+url.assignee.action.issues + == + :: + $unassigned + :~ assignee+s+login.assignee.action.issues + assignee-url+s+url.assignee.action.issues + == + :: + $labeled + :~ label+s+name.label.action.issues + == + :: + $unlabeled + :~ label+s+name.label.action.issues + == + :: + $opened ~ + $closed ~ + $reopened ~ + == == -- ++ grab diff --git a/mar/talk/report.hoon b/mar/talk/report.hoon index c785b79885..4d04921c40 100644 --- a/mar/talk/report.hoon +++ b/mar/talk/report.hoon @@ -91,6 +91,17 @@ $app (jobe txt+[%s q.a] src+[%s p.a] ~) $fat (jobe tor+(tors p.a) taf+$(a q.a) ~) $mor a+(turn p.a spec) + $api + %- jobe :~ + service+s+service.a + id+s+id.a + ~& url=`*`id-url.a + id-url+s+(crip (earn id-url.a)) + summary+s+summary.a + body+s+body.a + url+s+(crip (earn url.a)) + meta+meta.a + == :: %inv (jobe ship+(jope p.a) party+[%s q.a] ~) == :: diff --git a/sur/talk.hoon b/sur/talk.hoon index 839c01315b..0c03d955dd 100644 --- a/sur/talk.hoon +++ b/sur/talk.hoon @@ -65,7 +65,15 @@ {$lin p/? q/@t} :: no/@ text line {$mor p/(list speech)} :: multiplex {$app p/@tas q/@t} :: app message - {$api service/@tas id/@t summary/@t body/@t url/purl} :: api message + $: $api :: api message + service/@tas :: service name + id/@t :: id on the service + id-url/purl :: link to id + summary/@t :: summary of event + body/@t :: body of event + url/purl :: link to event + meta/json :: other data for web + == :: == :: ++ serial @uvH :: unique identity ++ partner (each station passport) :: interlocutor