Issues/PRs: show unicode symbol

Author: thomasjm

app/Sauron/UI/Issue.hs

@@ -123,7 +123,8 @@ issueLine now toggled' (Issue {issueNumber=(IssueNumber number), ..}) animationC
   where
     markerAttr = if issueState == StateOpen then openStateMarkerAttr else closedStateMarkerAttr
     line1 = hBox [
-      withAttr markerAttr $ str (if toggled' then "[-] " else "[+] ")
+      withAttr openMarkerAttr $ str (if toggled' then "[-] " else "[+] ")
+      , withAttr markerAttr $ str (if issueState == StateOpen then "⊙  " else "☑  ")
       , withAttr normalAttr $ str $ toString issueTitle
       , fetchableQuarterCircleSpinner animationCounter fetchableState
       , padLeft Max $ str (if issueComments > 0 then [i|🗨  #{issueComments}|] else "")

app/Sauron/UI/Pull.hs

@@ -106,7 +106,8 @@ pullLine now toggled' (Issue {issueNumber=(IssueNumber number), ..}) animationCo
   where
     markerAttr = if issueState == StateOpen then openStateMarkerAttr else closedStateMarkerAttr
     line1 = hBox [
-      withAttr markerAttr $ str (if toggled' then "[-] " else "[+] ")
+      withAttr openMarkerAttr $ str (if toggled' then "[-] " else "[+] ")
+      , withAttr markerAttr $ str (if issueState == StateOpen then "⊙  " else "☑  ")
       , withAttr normalAttr $ str $ toString issueTitle
       , fetchableQuarterCircleSpinner animationCounter fetchableState
       , padLeft Max $ str "" -- (if pullComments > 0 then [i|🗨  #{pullComments}|] else "")