diff options
| author | Adrian Kummerlaender | 2019-01-29 20:27:38 +0100 |
|---|---|---|
| committer | Adrian Kummerlaender | 2019-01-31 20:36:04 +0100 |
| commit | 02adc98ce764eacdbd6ac2f2d20aaf893349868c (patch) | |
| tree | ec5fd6cec07fe5c808eb6f3cbed5d30db769a883 /gui/conf/xmonad.hs | |
| parent | 72238630db12c37306e6ee336fa31bf6c550a37c (diff) | |
| download | nixos_home-02adc98ce764eacdbd6ac2f2d20aaf893349868c.tar nixos_home-02adc98ce764eacdbd6ac2f2d20aaf893349868c.tar.gz nixos_home-02adc98ce764eacdbd6ac2f2d20aaf893349868c.tar.bz2 nixos_home-02adc98ce764eacdbd6ac2f2d20aaf893349868c.tar.lz nixos_home-02adc98ce764eacdbd6ac2f2d20aaf893349868c.tar.xz nixos_home-02adc98ce764eacdbd6ac2f2d20aaf893349868c.tar.zst nixos_home-02adc98ce764eacdbd6ac2f2d20aaf893349868c.zip | |
Add basic touchegg setup for athena
Diffstat (limited to 'gui/conf/xmonad.hs')
| -rw-r--r-- | gui/conf/xmonad.hs | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/gui/conf/xmonad.hs b/gui/conf/xmonad.hs index b64d561..e937e74 100644 --- a/gui/conf/xmonad.hs +++ b/gui/conf/xmonad.hs @@ -149,13 +149,14 @@ commonKeybindings host = -- window management , ("M-q" , windows $ S.shift "NSP") , ("M-S-q" , kill) + , ("M-h" , sendMessage Shrink) + , ("M-l" , sendMessage Expand) + , ("M-<Backspace>" , nextMatch History (return True)) +-- window movement , ("M-j" , windows S.focusDown) , ("M-k" , windows S.focusUp) , ("M-S-j" , windows S.swapDown) , ("M-S-k" , windows S.swapUp) - , ("M-h" , sendMessage Shrink) - , ("M-l" , sendMessage Expand) - , ("M-<Backspace>" , nextMatch History (return True)) -- window bringer , ("M-a" , gotoMenuConfig windowBringerDmenuConfig) , ("M-S-a" , bringMenuConfig windowBringerDmenuConfig) @@ -167,12 +168,12 @@ commonKeybindings host = [ (p ++ [k] , windows $ f i) | (i, k) <- zip Main.workspaces ['1' .. '9'] , (p, f) <- [ ("M-" , S.view) , ("M-S-" , S.shift) ] ] ++ - [ ("M-s p" , toggleWS' ["NSP"]) + [ ("C-<Backspace>" , toggleWS' ["NSP"]) -- workspace movement - , ("M-s j" , moveTo Next nonEmptyWS) - , ("M-s k" , moveTo Prev nonEmptyWS) - , ("M-S-s j" , shiftTo Next nonEmptyWS >> moveTo Next nonEmptyWS) - , ("M-S-s k" , shiftTo Prev nonEmptyWS >> moveTo Prev nonEmptyWS) + , ("C-j" , moveTo Next nonEmptyWS) + , ("C-k" , moveTo Prev nonEmptyWS) + , ("C-S-j" , shiftTo Next nonEmptyWS >> moveTo Next nonEmptyWS) + , ("C-S-k" , shiftTo Prev nonEmptyWS >> moveTo Prev nonEmptyWS) -- workspace layout management , ("M-v" , layoutMenu) , ("M-s l" , sendMessage NextLayout) @@ -234,7 +235,7 @@ main = do $ docks $ def { modMask = mod4Mask -- super key as modifier - , borderWidth = 3 + , borderWidth = 6 , normalBorderColor = "#161616" , focusedBorderColor = "#909636" , keys = \c -> mkKeymap c (customKeybindings host) |