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

try to fix intellij

This commit is contained in:
qvalentin 2021-12-02 13:50:10 +01:00
parent 2a1d469dd4
commit 0d46fe9c68
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
xmonad

@ -1 +1 @@
Subproject commit dbe9c4f799fd826c199169d012c2d2687b210a7f Subproject commit eb2ee340e4180d1f7741605d846b154e777b509b

9
xmonad.hs
View File

@ -98,6 +98,7 @@ import XMonad.Util.Loggers (logTitles)
import XMonad.Util.SpawnOnce (spawnOnce) import XMonad.Util.SpawnOnce (spawnOnce)
import XMonad.Util.Ungrab (unGrab) import XMonad.Util.Ungrab (unGrab)
import XMonad.Util.WorkspaceCompare (getSortByIndex) import XMonad.Util.WorkspaceCompare (getSortByIndex)
import XMonad.Hooks.SetWMName (setWMName)
main :: IO () main :: IO ()
main = do main = do
@ -112,13 +113,10 @@ main = do
normalBorderColor = "#000000", normalBorderColor = "#000000",
focusedBorderColor = colors !! 7, focusedBorderColor = colors !! 7,
workspaces = myWorkspaces, workspaces = myWorkspaces,
manageHook = manageHook = myManageHook,
placeHook simpleSmart
<+> myManageHook,
layoutHook = myLayout, layoutHook = myLayout,
handleEventHook = handleEventHook =
handleEventHook def <+> fullscreenEventHook handleEventHook def <+> fullscreenEventHook
-- 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"),
@ -186,6 +184,7 @@ myXmobarPP colors =
myStartupHook :: X () myStartupHook :: X ()
myStartupHook = do myStartupHook = do
setWMName "LG3D"
spawnOnce "picom &" spawnOnce "picom &"
spawnOnce "sh $HOME/.fehbg" spawnOnce "sh $HOME/.fehbg"
spawnOnce "setxkbmap -option caps:escape" spawnOnce "setxkbmap -option caps:escape"