diff options
| -rw-r--r-- | xmonad.hs | 20 |
1 files changed, 12 insertions, 8 deletions
@@ -10,6 +10,7 @@ import XMonad.Actions.Navigation2D import XMonad.Actions.CycleSelectedLayouts import XMonad.Actions.GridSelect import XMonad.Actions.SwapWorkspaces +import XMonad.Actions.WindowBringer -- layouts modifiers import XMonad.Layout.Spacing @@ -28,6 +29,7 @@ import XMonad.Layout.ThreeColumns -- hooks import XMonad.Hooks.SetWMName +-- import XMonad.Hooks.WallpaperSetter -- utilities import XMonad.Util.SpawnOnce @@ -64,6 +66,7 @@ myBrowser = "firefox" -- myEditor :: String -- myEditor = "vim" + -- ~defaults~ -- wm variables @@ -91,10 +94,6 @@ windowGaps i j = spacingRaw False (Border i i i i) True (Border j j j j) True $ -- keybindings -notMyKeys = [ -- removed keybindings - (mod4Mask, xK_Return) - ] - myKeys = [ ((mod4Mask, xK_Return), spawn myTerminal), @@ -134,17 +133,22 @@ myKeys = [ ((mod1Mask, xK_k), windows W.focusUp), -- grid select - ((mod1Mask, xK_n), goToSelected defaultGSConfig) + ((mod1Mask, xK_n), goToSelected defaultGSConfig), + + -- windowbringer + ((mod1Mask, xK_b), bringMenu), + ((mod1Mask, xK_g), gotoMenu) ] ++ [ -- for extra workspace(s) ((myModMask, key), (windows $ W.greedyView ws)) | (key,ws) <- myExtraWorkspaces - ] ++ [ + ] ++ [ -- also for extra workspaces ((myModMask .|. shiftMask, key), (windows $ W.shift ws)) | (key,ws) <- myExtraWorkspaces ] ++ [ -- to swap workspaces ((mod4Mask .|. controlMask, k), windows $ swapWithCurrent i) - | (i, k) <- zip myWorkspaces [xK_1 ..]] + | (i, k) <- zip myWorkspaces [xK_1 ..] + ] -- ~keybindings~ @@ -165,7 +169,7 @@ main = do layoutHook = myLayoutHook, --manageHook = myManageHook, --handleEventHook = myEventHook, - --logHook = myLogHook, +-- logHook = wallpaperSetterHook, startupHook = myStartupHook } `additionalKeys` myKeys |