On windows show 'Y' in checkbox, instead of 'I'

haskell · Nov 14, 2024 · 71f5738 · 71f5738
1 parent a32a559
commit 71f5738
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/lib-tui/GHCup/Brick/Common.hs b/lib-tui/GHCup/Brick/Common.hs
@@ -27,6 +27,7 @@ module GHCup.Brick.Common  (
   installedSign,
   setSign,
   notInstalledSign,
+  checkBoxSelectedSign,
   showKey,
   showMod,
   keyToWidget,
@@ -179,6 +180,13 @@ notInstalledSign = "X "
 notInstalledSign = "✗ "
 #endif
 
+checkBoxSelectedSign :: String
+#if IS_WINDOWS
+checkBoxSelectedSign = "Y "
+#else
+checkBoxSelectedSign = "✓ "
+#endif
+
 
 showKey :: Vty.Key -> String
 showKey (Vty.KChar c) = [c]

diff --git a/lib-tui/GHCup/Brick/Widgets/Menu.hs b/lib-tui/GHCup/Brick/Widgets/Menu.hs
@@ -228,7 +228,7 @@ createCheckBoxInput = FieldInput False Right "" checkBoxRender checkBoxHandler
     border w = Brick.txt "[" <+> (Brick.padRight (Brick.Pad 1) $ Brick.padLeft (Brick.Pad 2) w) <+> Brick.txt "]"
     drawBool b =
         if b
-          then border . Brick.withAttr Attributes.installedAttr    $ Brick.str Common.installedSign
+          then border . Brick.withAttr Attributes.installedAttr    $ Brick.str Common.checkBoxSelectedSign
           else border . Brick.withAttr Attributes.notInstalledAttr $ Brick.str Common.notInstalledSign
     checkBoxRender focus _ help _ check f = (, Nothing) $
       let core = f $ drawBool check