aboutsummaryrefslogtreecommitdiff
path: root/xmonad.hs
diff options
context:
space:
mode:
Diffstat (limited to 'xmonad.hs')
-rw-r--r--xmonad.hs20
1 files changed, 12 insertions, 8 deletions
diff --git a/xmonad.hs b/xmonad.hs
index bd87f033..e8b0ffb4 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -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