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

Add fullscreen toggle

Browse Source
This commit is contained in:
Ivan Malison 2016-09-15 01:49:15 -07:00
parent 9d054443b2
commit 1bed975e86
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
dotfiles/xmonad/xmonad.hs
View File

@ -1,8 +1,9 @@
import XMonad import XMonad
import XMonad.Config() import XMonad.Config()
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Layout.MultiToggle
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
@ -19,6 +20,7 @@ main = xmonad $ ewmh def
, terminal = "urxvt" , terminal = "urxvt"
, manageHook = manageDocks <+> manageHook def , manageHook = manageDocks <+> manageHook def
, layoutHook = myLayoutHook , layoutHook = myLayoutHook
-- , logHook = myLogHook topBar
, handleEventHook = handleEventHook def <+> fullscreenEventHook , handleEventHook = handleEventHook def <+> fullscreenEventHook
, startupHook = myStartup , startupHook = myStartup
} `additionalKeys` } `additionalKeys`
@ -26,9 +28,13 @@ main = xmonad $ ewmh def
, ((myModMask, xK_g), spawn "rofi -show window") , ((myModMask, xK_g), spawn "rofi -show window")
-- TODO: Change this to bringing the window to the current workspace -- TODO: Change this to bringing the window to the current workspace
, ((myModMask, xK_b), spawn "rofi -show run") , ((myModMask, xK_b), spawn "rofi -show run")
, ((myModMask .|. controlMask, xK_space), sendMessage $ Toggle FULL)
] ]
myLayoutHook = avoidStruts $ smartSpacing 10 $ noBorders $ layoutHook def myLayoutHook = avoidStruts . smartSpacing 10 . noBorders
. mkToggle (FULL ?? EOT) $
Tall 1 (3/100) (1/2) ||| ThreeCol 1 (3/100) (1/3)
myStartup :: X() myStartup :: X()
myStartup = do myStartup = do