diff options
author | Adrian Kummerlaender | 2018-06-12 20:32:23 +0200 |
---|---|---|
committer | Adrian Kummerlaender | 2018-06-12 20:32:23 +0200 |
commit | 637b38f08fad012ca33e64c93234dbed2bab214c (patch) | |
tree | 588a2cace6dd8f29c10c4322c3fb23db919f7e64 | |
parent | 380c6c18be525a07386c47b807e2781a748bac35 (diff) | |
download | nixos_home-637b38f08fad012ca33e64c93234dbed2bab214c.tar nixos_home-637b38f08fad012ca33e64c93234dbed2bab214c.tar.gz nixos_home-637b38f08fad012ca33e64c93234dbed2bab214c.tar.bz2 nixos_home-637b38f08fad012ca33e64c93234dbed2bab214c.tar.lz nixos_home-637b38f08fad012ca33e64c93234dbed2bab214c.tar.xz nixos_home-637b38f08fad012ca33e64c93234dbed2bab214c.tar.zst nixos_home-637b38f08fad012ca33e64c93234dbed2bab214c.zip |
Replace layout rotation with toggling and and transformations
-rw-r--r-- | gui/conf/xmonad.hs | 24 |
1 files changed, 14 insertions, 10 deletions
diff --git a/gui/conf/xmonad.hs b/gui/conf/xmonad.hs index 0ddb88c..449bed5 100644 --- a/gui/conf/xmonad.hs +++ b/gui/conf/xmonad.hs @@ -6,7 +6,9 @@ import XMonad.Hooks.EwmhDesktops import XMonad.Layout.NoBorders import XMonad.Layout.Tabbed -import XMonad.Layout.Reflect +import XMonad.Layout.ToggleLayouts +import XMonad.Layout.MultiToggle +import XMonad.Layout.MultiToggle.Instances import XMonad.Util.Themes import XMonad.Util.NamedScratchpad @@ -35,15 +37,15 @@ customTabTheme = (theme xmonadTheme) , activeBorderColor = "#909737" , inactiveBorderColor = "#161616" } -availableLayouts = smartBorders $ tabs ||| tilesLM ||| tilesRM ||| tilesTM ||| tilesBM +availableLayouts = id + . smartBorders + . mkToggle (single NBFULL) + $ toggleLayouts tabs tiles where - tabs = tabbed shrinkText customTabTheme - tilesLM = Tall 1 delta ratio - tilesRM = reflectHoriz tilesLM - tilesTM = Mirror tilesLM - tilesBM = reflectVert tilesTM - ratio = 1/2 - delta = 3/100 + tabs = tabbed shrinkText customTabTheme + tiles = mkToggle (single MIRROR) $ Tall 1 delta ratio + ratio = 1/2 + delta = 3/100 windowBringerDmenuConfig = def { menuCommand = "rofi" , menuArgs = [ "-p", "win", "-dmenu", "-i" ] } @@ -99,7 +101,9 @@ keybindings = , (p, f) <- [ ("M-" , greedyView) , ("M-S-" , shift) ] ] ++ -- workspace management - [ ("M-s l" , sendMessage NextLayout) + [ ("M-s l" , sendMessage ToggleLayout) + , ("M-s m" , sendMessage $ XMonad.Layout.MultiToggle.Toggle MIRROR) + , ("M-s f" , sendMessage $ XMonad.Layout.MultiToggle.Toggle NBFULL) , ("M-s p" , toggleWS' ["NSP"]) , ("M-s j" , moveTo Next nonEmptyWS) , ("M-s k" , moveTo Prev nonEmptyWS) |