import XMonad
import XMonad.Util.EZConfig
import XMonad.Util.Ungrab
import XMonad.Layout.ThreeColumns
import XMonad.Layout.Magnifier
import XMonad.Layout.NoBorders
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.StatusBar
import XMonad.Hooks.StatusBar.PP

main :: IO ()
main = xmonad
. ewmhFullscreen
. ewmh
. withEasySB (statusBarProp "xmobar" (pure def)) defToggleStrutsKey
$ myConfig
myConfig = def
{ terminal = "alacritty"
, modMask = mod4Mask
, layoutHook = myLayout
, focusFollowsMouse = True
, clickJustFocuses = False
, focusedBorderColor = "#000000"
}
additionalKeysP
[ ("M-l", spawn "dm-tool lock")
]
myLayout = smartBorders $ tiled ||| Mirror tiled ||| Full ||| threeCol
where
--threeCol = magnifiercz' 1.3 $ ThreeColMid nmaster delta ratio
threeCol = ThreeColMid nmaster delta ratio
tiled = Tall nmaster delta ratio
nmaster = 1 -- Default number of windows in master pane
ratio = 1/2 -- Default proportion of screen occupied by master pane
delta = 3/100 -- percent of the screen to increment by when resizing