src/XMonad/Config/MasseR.hs

@@ -1,17 +1,15 @@
-{-# LANGUAGE DataKinds         #-}
 {-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RecordWildCards   #-}
-{-# LANGUAGE TypeApplications  #-}
+{-# LANGUAGE RecordWildCards #-}
 module XMonad.Config.MasseR  where
 
 
-import           Control.Lens                       ((^.))
-import           Data.Generics.Product              (field)
+import           XMonad.Password
+import           XMonad.CustomPrompt
+import           XMonad.TopicSpace
 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,
@@ -32,13 +30,11 @@ import           XMonad.Layout.Tabbed               (TabbedDecoration,
                                                      Theme (..), shrinkText,
                                                      tabbed)
 import           XMonad.Layout.ToggleLayouts        (ToggleLayout (..))
-import           XMonad.Password
 import           XMonad.Prompt.RunOrRaise           (runOrRaisePrompt)
 import qualified XMonad.StackSet                    as W
-import           XMonad.TopicSpace
 import           XMonad.Util.EZConfig
 
-import           XMonad.XMobar                      (zenburnPP)
+import           XMonad.XMobar                             (zenburnPP)
 
 import           Data.Monoid                        (Endo, (<>))
 
@@ -77,7 +73,7 @@ scratchSubmaps conf = submapName . mkNamedKeymap conf $ [
 -- Search engines inside submaps
 searchSubmaps :: ExtraConfig -> XConfig l -> NamedAction
 searchSubmaps extraConfig conf =
-    let mkBrowser = promptSearchBrowser def (extraConfig ^. field @"applications" . field @"browser")
+    let mkBrowser = promptSearchBrowser def "qutebrowser"
         _googleP = addName "Search google" $ mkBrowser google
         ddgP = addName "Search duckduckgo" $ mkBrowser (searchEngine "duckduckgo" "http://duckduckgo.com/?q=")
         extras = [(key, addName name $ mkBrowser (searchEngine name url)) | Search{..} <- searchEndpoints extraConfig]

xmonad-masser.cabal

@@ -34,7 +34,5 @@ library
                      , unix
                      , containers
                      , text
-                     , lens
-                     , generic-lens
   hs-source-dirs:      src
   default-language:    Haskell2010