import XMonad
import XMonad.Util.EZConfig (additionalKeys)
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.StatusBar
import XMonad.Hooks.StatusBar.PP
import Control.Monad (when)
import Text.Printf (printf)
import System.Posix.Process (executeFile)
import System.Info (arch,os)
import System.Environment (getArgs)
import System.FilePath ((</>))

myLayout = avoidStruts (tiled ||| Mirror tiled ||| Full)
  where
    tiled   = Tall nmaster delta ratio
    nmaster = 1      -- Default number of windows in the master pane
    ratio   = 1/2    -- Default proportion of screen occupied by master pane
    delta   = 3/100  -- Percent of screen to increment by when resizing panes

myConfig = defaultConfig
  { modMask = mod1Mask
  , layoutHook = myLayout
  , focusedBorderColor = "#4eb4fa"
  , terminal = "alacritty" }
  `additionalKeys`
  [ ( (mod1Mask, xK_q), restart "xmonad" True ) ]

mySB = statusBarProp "xmobar" (pure xmobarPP)
-- main = xmonad $ withEasySB mySB defToggleStrutsKey def

main = getDirectories >>= launch (docks $ withSB mySB myConfig)