xmonad: use picom to distinguish active window
This commit is contained in:
parent
3d444c672e
commit
bbdd967095
@ -41,7 +41,7 @@ main =
|
|||||||
, manageHook = myManageHook
|
, manageHook = myManageHook
|
||||||
<+> manageHook defaultConfig
|
<+> manageHook defaultConfig
|
||||||
<+> manageDocks
|
<+> manageDocks
|
||||||
, borderWidth = 1
|
, borderWidth = 0
|
||||||
, logHook = takeTopFocus
|
, logHook = takeTopFocus
|
||||||
}
|
}
|
||||||
`additionalKeys` myKeys
|
`additionalKeys` myKeys
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
{ autostart, screenshots, touchtoggle, dzvol, stoggle }: ''
|
{ autostart, screenshots, touchtoggle, dzvol, pkgs, stoggle }: ''
|
||||||
-- Function for fullscreen toggle
|
-- Function for fullscreen toggle
|
||||||
fullToggle :: X ()
|
fullToggle :: X ()
|
||||||
fullToggle = do
|
fullToggle = do
|
||||||
@ -13,6 +13,7 @@
|
|||||||
myAutostart :: X ()
|
myAutostart :: X ()
|
||||||
myAutostart = do
|
myAutostart = do
|
||||||
spawn "${autostart}"
|
spawn "${autostart}"
|
||||||
|
spawn "feh --bg-fill --no-fehbg ${pkgs.adapta-backgrounds}/share/backgrounds/adapta/tri-fadeno.jpg"
|
||||||
setWMName "LG3D"
|
setWMName "LG3D"
|
||||||
sendMessage $ SetStruts [] [minBound .. maxBound]
|
sendMessage $ SetStruts [] [minBound .. maxBound]
|
||||||
setDefaultCursor xC_left_ptr
|
setDefaultCursor xC_left_ptr
|
||||||
|
@ -14,5 +14,14 @@
|
|||||||
config = import ./xmonad.hs.nix { inherit pkgs; };
|
config = import ./xmonad.hs.nix { inherit pkgs; };
|
||||||
};
|
};
|
||||||
|
|
||||||
|
services.picom = {
|
||||||
|
enable = true;
|
||||||
|
inactiveOpacity = "0.8";
|
||||||
|
settings = {
|
||||||
|
"unredir-if-possible" = true;
|
||||||
|
"focus-exclude" = "id = 0x2400001";
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
programs.slock.enable = true;
|
programs.slock.enable = true;
|
||||||
}
|
}
|
||||||
|
@ -14,6 +14,6 @@ let
|
|||||||
in ''
|
in ''
|
||||||
${readFile ./_xmonad.hs}
|
${readFile ./_xmonad.hs}
|
||||||
${import ./_xmonad.nix {
|
${import ./_xmonad.nix {
|
||||||
inherit screenshots touchtoggle autostart dzvol stoggle;
|
inherit screenshots touchtoggle autostart dzvol stoggle pkgs;
|
||||||
}}
|
}}
|
||||||
''
|
''
|
||||||
|
Loading…
Reference in New Issue
Block a user