reworked api speech type

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

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

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] ~)
       ==
     ::

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