From 11fb80639d6790d3bb77e6c08dac87637b22e423 Mon Sep 17 00:00:00 2001
From: EEva <eeva@samae>
Date: Wed, 25 Aug 2021 20:08:49 +0300
Subject: [PATCH] Update Iosevka statement

---
 lib/KeyBindings.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lib/KeyBindings.hs b/lib/KeyBindings.hs
index 4fa6187..8038011 100644
--- a/lib/KeyBindings.hs
+++ b/lib/KeyBindings.hs
@@ -4,6 +4,7 @@ module KeyBindings (
 ) where
 
 import Control.Monad (void)
+import Data.Foldable (forM_)
 import Data.List (sort, isSuffixOf)
 import Data.Maybe (isJust)
 import Graphics.X11.Types
@@ -70,9 +71,7 @@ modify conf = conf
 viewProject :: WorkspaceId -> X ()
 viewProject id = do
   project <- lookupProject id
-  case project of
-    Just p -> switchProject p
-    Nothing -> return ()
+  forM_ project switchProject
 
 -- Borrowed from https://www.reddit.com/r/xmonad/comments/gzq316/how_can_i_centre_a_floating_window_without/fthtx29/
 centerWindow :: Window -> X ()
@@ -93,7 +92,7 @@ promptConfig = def
   , fgHLight          = N.background
   --
   , defaultText       = ""
-  , font              = "xft:Iosevka Samae:style=Regular:size=8"
+  , font              = "xft:Iosevka Samae:style=Regular:size=8:charwidth=5"
   , height            = 24
   , promptBorderWidth = 5
   }