Show viewerHasReacted info in reaction

Author: blahgeek

graphql/get-pull-request.graphql

@@ -22,6 +22,7 @@ query($repo_owner:String!, $repo_name:String!, $pr_id:Int!) {
       reactionGroups {
         content
         reactors { totalCount }
+        viewerHasReacted
       }
       author {
         login
@@ -98,6 +99,7 @@ query($repo_owner:String!, $repo_name:String!, $pr_id:Int!) {
               reactionGroups {
                 content
                 reactors { totalCount }
+                viewerHasReacted
               }
             }
           }
@@ -178,6 +180,7 @@ query($repo_owner:String!, $repo_name:String!, $pr_id:Int!) {
             reactionGroups {
               content
               reactors { totalCount }
+              viewerHasReacted
             }
           }
           ... on PullRequestReview {
@@ -194,6 +197,7 @@ query($repo_owner:String!, $repo_name:String!, $pr_id:Int!) {
             reactionGroups {
               content
               reactors { totalCount }
+              viewerHasReacted
             }
 
             comments(first: 100) {

pr-review-render.el

@@ -175,9 +175,13 @@ INDENT is an optional number of extra spaces at the start of the line."
         (when (and (> .reactors.totalCount 0) .content)
           (when s
             (setq s (concat s "  ")))
-          (setq s (concat s (format "%s*%d"
-                                    (alist-get .content pr-review-reaction-emojis .content nil 'equal)
-                                    .reactors.totalCount))))))
+          (setq s (concat
+                   s
+                   (format "%s*%d"
+                           (alist-get .content pr-review-reaction-emojis .content nil 'equal)
+                           .reactors.totalCount)
+                   (when .viewerHasReacted
+                     "#"))))))
     (when s
       (when indent
         (insert (propertize " " 'display `(space :width (,(* indent pr-review--char-pixel-width))))))