|
|
|
|
@ -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)
|
|
|
|
|
@ -55,9 +59,9 @@ import XMonad.Hooks.DynamicLog (statusBar)
|
|
|
|
|
|
|
|
|
|
import qualified Data.Set as S
|
|
|
|
|
|
|
|
|
|
spotify :: XConfig l -> NamedAction
|
|
|
|
|
spotify conf = submapName . mkNamedKeymap conf $
|
|
|
|
|
[ ("M-p", addName "Play" $ spawn "sp play") ]
|
|
|
|
|
spotify :: ExtraConfig -> XConfig l -> NamedAction
|
|
|
|
|
spotify extraConf conf = submapName . mkNamedKeymap conf $
|
|
|
|
|
[ ("M-p", addName "Play" $ spawn (musicToggle . applications $ extraConf)) ]
|
|
|
|
|
|
|
|
|
|
scratchpads :: [NamedScratchpad]
|
|
|
|
|
scratchpads = [
|
|
|
|
|
@ -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]
|
|
|
|
|
@ -174,9 +178,8 @@ myKeys extraConfig conf =
|
|
|
|
|
, ("<XF86AudioLowerVolume>", addName "Decrease volume" $ spawn "amixer set Master 2%-")
|
|
|
|
|
, ("M-<plus>", addName "Increase volume" $ spawn "amixer set Master 2+")
|
|
|
|
|
, ("M-<minus>", addName "Decrease volume" $ spawn "amixer set Master 2-")
|
|
|
|
|
-- , ("<XF86AudioPlay>", addName "Play/pause spotify" $ spawn "/home/masse/.local/bin/sp play")
|
|
|
|
|
, ("<XF86AudioPlay>", addName "Play/pause mopidy" $ spawn "mpc toggle")
|
|
|
|
|
, ("M-m", spotify conf)
|
|
|
|
|
, ("M-m", spotify extraConfig conf)
|
|
|
|
|
, ("M-S-<Space>", addName "Swap screens" swapNextScreen)
|
|
|
|
|
, ("M-<Backspace>", addName "Kill window" kill)
|
|
|
|
|
-- scrot requires `unGrab`
|
|
|
|
|
|
