--------------------------------------------------------------------------------

main :: IO ()
main =
  getArgs >>= \case
    ["--restart"] -> sendRestart
    _ ->
      launch
        =<< statusBar "d12-xmobar" statusBarPP toggleStrutsKey xmonadConfig

--------------------------------------------------------------------------------
main :: IO ()
main =
  getArgs >>= \case
    ["--restart"] -> sendRestart
    _ ->
      launch
        =<< statusBar "d12-xmobar" statusBarPP toggleStrutsKey xmonadConfig

--------------------------------------------------------------------------------
main =
  getArgs >>= \case
    ["--restart"] -> sendRestart
    _ ->
      launch
        =<< statusBar "d12-xmobar" statusBarPP toggleStrutsKey xmonadConfig

--------------------------------------------------------------------------------