main = do
  dbus <- D.connectSession
  D.requestName dbus (D.busName_ "org.xmonad.Log")
    [D.nameAllowReplacement, D.nameReplaceExisting, D.nameDoNotQueue]

  xmonad $ desktopConfig -- Extends desktopConfig from xmonad
    { terminal = myTerminal
    , workspaces = myWorkspaces
    , focusedBorderColor = myFocusedBorderColor
    , normalBorderColor = myNormalBorderColor
    , borderWidth = 3
    , modMask    = mod4Mask -- Use the "Win" key for the mod key
    , manageHook = myManageHook <+> manageHook desktopConfig
    , layoutHook = desktopLayoutModifiers $ myLayouts
    , startupHook = startupHook desktopConfig <+> myStartupHook
    , logHook = dynamicLogWithPP (myLogHook dbus) <+> raiseHook
    , handleEventHook = handleEventHook desktopConfig --  <+> propertyNotifyHook (logHook desktopConfig)
    -- , handleEventHook =  mconcat [propertyNotifyHook (logHook desktopConfig),
    --                               handleEventHook desktopConfig,
    --                               ewmhDesktopsEventHook]
    }
    `additionalKeysP` myKeys
    `removeKeysP` [("M-<Space>")] -- Reserve for changing fcitx input methods