From 5087f2519548cf54f3e83664a654d612caa1bc99 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Thu, 15 Sep 2016 21:47:23 -0700 Subject: [PATCH] Use JumpToLayout for fullscreen in xmonad Also add a toggle for mirroring --- dotfiles/xmonad/xmonad.hs | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index 7b3c234d..aa7658ab 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -1,13 +1,14 @@ -import XMonad +import XMonad hiding ( (|||) ) import XMonad.Config () import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.ManageDocks +import XMonad.Layout.LayoutCombinators import XMonad.Layout.MultiToggle -import XMonad.Util.CustomKeys import XMonad.Layout.MultiToggle.Instances import XMonad.Layout.NoBorders import XMonad.Layout.Spacing import XMonad.Layout.ThreeColumns +import XMonad.Util.CustomKeys main = xmonad $ ewmh def { modMask = mod4Mask @@ -28,15 +29,16 @@ addKeys XConfig {modMask = modm} = -- , ((modm, xK_s), sequence_ [shiftNextScreen, nextScreen]) -- TODO: Change this to bringing the window to the current workspace , ((modm, xK_b), spawn "rofi -show run") - , ((modm .|. controlMask, xK_space), sendMessage $ Toggle FULL) + , ((modm .|. controlMask, xK_space), sendMessage $ JumpToLayout "Full") + , ((modm, xK_slash), sendMessage $ Toggle MIRROR) ] -layouts = tiled ||| ThreeCol 1 (3/100) (1/3) ||| Mirror tiled +layouts = tiled ||| Full ||| ThreeCol 1 (3/100) (1/3) where tiled = Tall 1 (3/100) (1/2) myLayoutHook = avoidStruts . smartSpacing 10 . noBorders - . mkToggle (FULL ?? EOT) $ layouts + . mkToggle (MIRROR ?? EOT) $ layouts myStartup = do spawn "nm-applet --sm-disable"