Compare commits
2 Commits
bd4f5d7e30
...
dbd3024d98
Author | SHA1 | Date | |
---|---|---|---|
dbd3024d98 | |||
9b16e074ef |
@ -1,15 +1,17 @@
|
||||
{-# LANGUAGE DataKinds #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
{-# LANGUAGE RecordWildCards #-}
|
||||
{-# LANGUAGE TypeApplications #-}
|
||||
module XMonad.Config.MasseR where
|
||||
|
||||
|
||||
import XMonad.Password
|
||||
import XMonad.CustomPrompt
|
||||
import XMonad.TopicSpace
|
||||
import Control.Lens ((^.))
|
||||
import Data.Generics.Product (field)
|
||||
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,
|
||||
@ -30,8 +32,10 @@ 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)
|
||||
@ -73,7 +77,7 @@ scratchSubmaps conf = submapName . mkNamedKeymap conf $ [
|
||||
-- Search engines inside submaps
|
||||
searchSubmaps :: ExtraConfig -> XConfig l -> NamedAction
|
||||
searchSubmaps extraConfig conf =
|
||||
let mkBrowser = promptSearchBrowser def "qutebrowser"
|
||||
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=")
|
||||
extras = [(key, addName name $ mkBrowser (searchEngine name url)) | Search{..} <- searchEndpoints extraConfig]
|
||||
|
@ -34,5 +34,7 @@ library
|
||||
, unix
|
||||
, containers
|
||||
, text
|
||||
, lens
|
||||
, generic-lens
|
||||
hs-source-dirs: src
|
||||
default-language: Haskell2010
|
||||
|
Loading…
Reference in New Issue
Block a user