Disable focus follows mouse with the reasoning

src/XMonad/Config/MasseR.hs

@@ -12,7 +12,6 @@ import qualified Data.List                          as List
 import           XMonad
 import           XMonad.Actions.CycleWS             (swapNextScreen)
 import           XMonad.Actions.Search
-import           XMonad.CustomPrompt
 import           XMonad.Hooks.EwmhDesktops          (ewmh, ewmhDesktopsStartup)
 import           XMonad.Hooks.SetWMName             (setWMName)
 import           XMonad.Hooks.UrgencyHook           (args, dzenUrgencyHook,
@@ -82,14 +81,10 @@ scratchSubmaps conf = submapName . mkNamedKeymap conf $ [
 searchSubmaps :: ExtraConfig -> XConfig l -> NamedAction
 searchSubmaps extraConfig conf =
     let mkBrowser = promptSearchBrowser def (extraConfig ^. field @"applications" . field @"browser")
-        _googleP = addName "Search google" $ mkBrowser google
-        _ddgP = addName "Search duckduckgo" $ mkBrowser (searchEngine "duckduckgo" "http://duckduckgo.com/?q=")
-        searx = addName "Search searx" $ mkBrowser (searchEngine "searx" "https://searx.me/?q=")
+        googleP = addName "Search google" $ mkBrowser google
         extras = [(key, addName name $ mkBrowser (searchEngine name url)) | Search{..} <- searchEndpoints extraConfig]
     in submapName . mkNamedKeymap conf $
-            [ ("d", searx) -- Training to use ddg again
-            , ("g", searx) -- training to use ddg again
-            ] ++ extras
+            ("g", googleP) : extras
 
 
 myNav2d :: Navigation2DConfig
@@ -243,7 +238,11 @@ masser extraConfig = xmonad =<< statusBar (bar extraConfig) zenburnPP toggleStru
                        , normalBorderColor = "#262626"
                        , focusedBorderColor = "#7F9F7F"
                        , manageHook = myManageHook
-                       , focusFollowsMouse = True
+                       -- The focus follows mouse is a bad idea for me because
+                       -- it misbehaves with accordion. If I accidentally hover
+                       -- my mouse at the lower edge of the accordion, it will
+                       -- just cycle through to the last accordion
+                       , focusFollowsMouse = False
                        , logHook = updatePointer (0.25, 0.25) (0.25, 0.25)
                      }
     myLayout = toggleLayouts zoom workspaceLayouts