colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use JumpToLayout for fullscreen in xmonad

Browse Source 
Also add a toggle for mirroring
This commit is contained in:
Ivan Malison 2016-09-15 21:47:23 -07:00
parent 8720f956a7
commit 5087f25195
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
dotfiles/xmonad/xmonad.hs
View File

@ -1,13 +1,14 @@
import XMonad import XMonad hiding ( (|||) )
import XMonad.Config () import XMonad.Config ()
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Layout.LayoutCombinators
import XMonad.Layout.MultiToggle import XMonad.Layout.MultiToggle
import XMonad.Util.CustomKeys
import XMonad.Layout.MultiToggle.Instances import XMonad.Layout.MultiToggle.Instances
import XMonad.Layout.NoBorders import XMonad.Layout.NoBorders
import XMonad.Layout.Spacing import XMonad.Layout.Spacing
import XMonad.Layout.ThreeColumns import XMonad.Layout.ThreeColumns
import XMonad.Util.CustomKeys
main = xmonad $ ewmh def main = xmonad $ ewmh def
{ modMask = mod4Mask { modMask = mod4Mask
@ -28,15 +29,16 @@ addKeys XConfig {modMask = modm} =
-- , ((modm, xK_s), sequence_ [shiftNextScreen, nextScreen]) -- , ((modm, xK_s), sequence_ [shiftNextScreen, nextScreen])
-- TODO: Change this to bringing the window to the current workspace -- TODO: Change this to bringing the window to the current workspace
, ((modm, xK_b), spawn "rofi -show run") , ((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 where
tiled = Tall 1 (3/100) (1/2) tiled = Tall 1 (3/100) (1/2)
myLayoutHook = avoidStruts . smartSpacing 10 . noBorders myLayoutHook = avoidStruts . smartSpacing 10 . noBorders
. mkToggle (FULL ?? EOT) $ layouts . mkToggle (MIRROR ?? EOT) $ layouts
myStartup = do myStartup = do
spawn "nm-applet --sm-disable" spawn "nm-applet --sm-disable"