qvalentin
/
xmonad
1
1
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

change intellij settings, add ewmh settings

This commit is contained in:
qvalentin 2021-10-02 18:15:13 +02:00
parent b0ed135a95
commit 8f212ce394
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
xmonad.hs
View File

@ -8,13 +8,15 @@ import XMonad.Hooks.StatusBar
import qualified XMonad.Layout.LayoutModifier import qualified XMonad.Layout.LayoutModifier
import XMonad.Layout.Spacing import XMonad.Layout.Spacing
import XMonad.Layout.WindowNavigation import XMonad.Layout.WindowNavigation
import XMonad.StackSet (Workspace (tag), currentTag, integrate', stack, greedyView, shift) import XMonad.StackSet (Workspace (tag), currentTag, integrate', stack, greedyView, shift, focusWindow)
import XMonad.Util.EZConfig import XMonad.Util.EZConfig
import XMonad.Util.Loggers import XMonad.Util.Loggers
import XMonad.Util.SpawnOnce import XMonad.Util.SpawnOnce
import XMonad.Util.Ungrab import XMonad.Util.Ungrab
import XMonad.Util.WorkspaceCompare (getSortByIndex) import XMonad.Util.WorkspaceCompare (getSortByIndex)
import XMonad.Hooks.InsertPosition (insertPosition, Position(Master, End), Focus (Newer)) import XMonad.Hooks.InsertPosition (insertPosition, Position(Master, End), Focus (Newer))
import XMonad.Hooks.ManageHelpers
import Data.List (isInfixOf)
main :: IO () main :: IO ()
main = do main = do
@ -30,11 +32,13 @@ main = do
focusedBorderColor = colors !! 7, focusedBorderColor = colors !! 7,
workspaces = myWorkspaces, workspaces = myWorkspaces,
manageHook = myManageHook, manageHook = myManageHook,
layoutHook = myLayout layoutHook = myLayout,
logHook = activateLogHook (reader focusWindow >>= doF)<+> logHook def
} }
`additionalKeysP` [ ("M-S-z", spawn "xscreensaver-command -lock"), `additionalKeysP` [ ("M-S-z", spawn "xscreensaver-command -lock"),
("M-S-s", unGrab *> spawn "cast_screenshot"), ("M-S-s", unGrab *> spawn "cast_screenshot"),
("M-f", runOrRaise "brave" (className =? "Brave-browser")), ("M-f", runOrRaise "brave" (className =? "Brave-browser")),
("M-i", raise (className =? "jetbrains-idea")),
("M-<Space>", spawn "rofi -show drun") , ("M-<Space>", spawn "rofi -show drun") ,
("M-p", spawn "dmen") , ("M-p", spawn "dmen") ,
@ -46,7 +50,9 @@ main = do
("M-l", sendMessage $ Go R), ("M-l", sendMessage $ Go R),
("M-h", sendMessage $ Go L), ("M-h", sendMessage $ Go L),
-- layout switching -- layout switching
("M-<Tab>", sendMessage NextLayout) ("M-<Tab>", sendMessage NextLayout),
-- dmenu stuff
("M1-<F4>", spawn "dshutdown")
] ]
myXmobarPP :: [String] -> PP myXmobarPP :: [String] -> PP
@ -138,6 +144,12 @@ myManageHook =
className =? "Gimp" --> doShift (myWorkspaces !! 8), className =? "Gimp" --> doShift (myWorkspaces !! 8),
className =? "VirtualBox Manager" --> doShift (myWorkspaces !! 4), className =? "VirtualBox Manager" --> doShift (myWorkspaces !! 4),
(className =? "firefox" <&&> resource =? "Dialog") --> doFloat, -- Float Firefox Dialog (className =? "firefox" <&&> resource =? "Dialog") --> doFloat, -- Float Firefox Dialog
appName =? "sun-awt-X11-XWindowPeer" <&&> className =? "jetbrains-idea" --> doIgnore className =? "jetbrains-idea" --> viewShift (myWorkspaces !! 4) ,
(className =? "jetbrains-studio") <&&> (title ~=? "win") --> doIgnore
] <+> insertPosition End Newer ] <+> insertPosition End Newer
where viewShift = doF . liftM2 (.) greedyView shift where viewShift = doF . liftM2 (.) greedyView shift
-- IntelliJ fix
(~=?) :: Eq a => Query [a] -> [a] -> Query Bool
q ~=? x = fmap (isInfixOf x) q