diff options
| author | la-ninpre <leobrekalini@gmail.com> | 2022-06-26 23:36:13 +0300 |
|---|---|---|
| committer | la-ninpre <leobrekalini@gmail.com> | 2022-06-26 23:36:13 +0300 |
| commit | 5025c65f295bcfaadf67022f0396380013faf7d7 (patch) | |
| tree | 697e61249e20f72c7a455b0984aad379c010c478 | |
| parent | fceab1c004d194b966960452d61ceb901a684aff (diff) | |
| download | xmonad-config-5025c65f295bcfaadf67022f0396380013faf7d7.tar.gz xmonad-config-5025c65f295bcfaadf67022f0396380013faf7d7.zip | |
stylistic changes
| -rw-r--r-- | xmonad.hs | 13 |
1 files changed, 6 insertions, 7 deletions
@@ -1,4 +1,3 @@ -import qualified Data.Map as M import System.Exit import XMonad @@ -74,7 +73,7 @@ myKeys = [ ("M-<Return>", spawn myTerminal) , ("M-S-t", sinkAll) , ("M-<Tab>", toggleWindowSpacingEnabled >> toggleScreenSpacingEnabled) - , ("M-S-q", io (exitWith ExitSuccess)) + , ("M-S-q", io exitSuccess) , ("M-S-r", spawn "xmonad --recompile && xmonad --restart") , ("<XF86AudioPlay>", spawn $ myMocp ++ " -G") @@ -85,7 +84,7 @@ myKeys = [ ("M-<Return>", spawn myTerminal) ] ++ [("M-" ++ m ++ show k, windows $ f i) - | (i, k) <- zip (myWorkspaces) [1..9] + | (i, k) <- zip myWorkspaces [1..9] , (f, m) <- [(W.greedyView, ""), (W.shift, "S-")] ] @@ -138,11 +137,11 @@ myLayout = windowNavigation where tiled = renamed [Replace "\xe624"] -- lawa $ addTabs shrinkText myTabTheme - $ subLayout [] (Simplest) + $ subLayout [] Simplest $ spacingWithEdge space $ ResizableTall nmaster delta ratio [] threeCol = renamed [Replace "\xe665"] -- supa $ addTabs shrinkText myTabTheme - $ subLayout [] (Simplest) + $ subLayout [] Simplest $ spacingWithEdge space $ ResizableThreeColMid nmaster delta ratio [] full = renamed [Replace "\xe663"] -- suli $ noBorders Full @@ -158,11 +157,11 @@ myConfig = def , manageHook = myManageHook , workspaces = myWorkspaces , borderWidth = myBorderWidth - , keys = const M.empty -- discard default keybindings + , keys = (`mkKeymap` myKeys) , normalBorderColor = col_bg_alt def , focusedBorderColor = col_fg_alt def , startupHook = return () >> checkKeymap myConfig myKeys - } `additionalKeysP` myKeys + } main :: IO () main = xmonad |