MasseR/xmonad-masser
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: MasseR:6e2a821531ef47757e1217c35871f9b0c2da765d
Branches Tags
MasseR:master
MasseR:views
MasseR:searching
...
compare: MasseR:a69b41e652b8a322b7be52dc07c223d2738ac9a0
Branches Tags
MasseR:master
MasseR:views
MasseR:searching

2 Commits
6e2a821531 ... a69b41e652

Author SHA1 Message Date
Mats Rauhala
a69b41e652 Disable focus follows mouse with the reasoning 2020-02-03 09:48:52 +02:00
Mats Rauhala
321ed016a0 Go back to google 2020-02-03 09:48:41 +02:00
1 changed files with 7 additions and 8 deletions
Show Stats Expand all files Collapse all files

15
src/XMonad/Config/MasseR.hs
View File

@ -12,7 +12,6 @@ import qualified Data.List as List
import XMonad import XMonad
import XMonad.Actions.CycleWS (swapNextScreen) import XMonad.Actions.CycleWS (swapNextScreen)
import XMonad.Actions.Search import XMonad.Actions.Search
import XMonad.CustomPrompt
import XMonad.Hooks.EwmhDesktops (ewmh, ewmhDesktopsStartup) import XMonad.Hooks.EwmhDesktops (ewmh, ewmhDesktopsStartup)
import XMonad.Hooks.SetWMName (setWMName) import XMonad.Hooks.SetWMName (setWMName)
import XMonad.Hooks.UrgencyHook (args, dzenUrgencyHook, import XMonad.Hooks.UrgencyHook (args, dzenUrgencyHook,
@ -82,14 +81,10 @@ scratchSubmaps conf = submapName . mkNamedKeymap conf $ [
searchSubmaps :: ExtraConfig -> XConfig l -> NamedAction searchSubmaps :: ExtraConfig -> XConfig l -> NamedAction
searchSubmaps extraConfig conf = searchSubmaps extraConfig conf =
let mkBrowser = promptSearchBrowser def (extraConfig ^. field @"applications" . field @"browser") let mkBrowser = promptSearchBrowser def (extraConfig ^. field @"applications" . field @"browser")
_googleP = addName "Search google" $ mkBrowser google 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=")
extras = [(key, addName name $ mkBrowser (searchEngine name url)) | Search{..} <- searchEndpoints extraConfig] extras = [(key, addName name $ mkBrowser (searchEngine name url)) | Search{..} <- searchEndpoints extraConfig]
in submapName . mkNamedKeymap conf $ in submapName . mkNamedKeymap conf $
[ ("d", searx) -- Training to use ddg again ("g", googleP) : extras
, ("g", searx) -- training to use ddg again
] ++ extras
myNav2d :: Navigation2DConfig myNav2d :: Navigation2DConfig
@ -243,7 +238,11 @@ masser extraConfig = xmonad =<< statusBar (bar extraConfig) zenburnPP toggleStru
, normalBorderColor = "#262626" , normalBorderColor = "#262626"
, focusedBorderColor = "#7F9F7F" , focusedBorderColor = "#7F9F7F"
, manageHook = myManageHook , 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) , logHook = updatePointer (0.25, 0.25) (0.25, 0.25)
} }
myLayout = toggleLayouts zoom workspaceLayouts myLayout = toggleLayouts zoom workspaceLayouts