mpo
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update Iosevka statement

This commit is contained in:
EEva 2021-08-25 20:08:49 +03:00
parent 96fcfeee3f
commit 11fb80639d
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/KeyBindings.hs
View File

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