Browse Source

Fix transparency for unfocused screens and konsole

master
Peter J. Jones 2 months ago
parent
commit
4bac62f5f8
Signed by: Peter Jones <pjones@devalot.com> GPG Key ID: 9DAFAA8D01941E49
3 changed files with 8 additions and 4 deletions
  1. 1
    0
      .gitignore
  2. 6
    3
      src/XMonad/Local/Log.hs
  3. 1
    1
      xmonadrc.hs

+ 1
- 0
.gitignore View File

@@ -1,3 +1,4 @@
/dist/
/result
/dist-newstyle/
/TAGS

+ 6
- 3
src/XMonad/Local/Log.hs View File

@@ -20,10 +20,13 @@ import XMonad.Hooks.FadeWindows
, fadeWindowsLogHook
, transparency
, opaque
, isUnfocused
, isFloating
)

import XMonad.Hooks.FadeInactive
( isUnfocusedOnCurrentWS
)

--------------------------------------------------------------------------------
-- | XMonad @logHook@.
logHook :: X ()
@@ -38,6 +41,6 @@ logHook =
fadeHook :: FadeHook
fadeHook = composeAll
[ opaque
, isUnfocused --> transparency 0.3
, isFloating --> transparency 0.0
, isUnfocusedOnCurrentWS --> transparency 0.25
, isFloating --> transparency 0.0
]

+ 1
- 1
xmonadrc.hs View File

@@ -34,7 +34,7 @@ import qualified XMonad.Local.Workspaces as Workspaces
--
-- config :: XConfig a
config = desktopConfig
{ terminal = "konsole"
{ terminal = "konsole --notransparency"
, layoutHook = avoidStruts Local.layoutHook

, manageHook = manageHook desktopConfig <>

Loading…
Cancel
Save