ElKowar/dots-of-war
1
0
Fork 0
mirror of https://github.com/elkowar/dots-of-war.git synced 2024-11-06 03:12:24 +00:00
Code Issues 1 Projects 1 Releases Packages Wiki Activity

Aasdf

Browse source
This commit is contained in:
Leon Kowarschick 2020-06-20 14:31:37 +02:00
parent e11a711ce2
commit d071db1afa
3 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
files/.xmonad/.stack-work/stack.sqlite3
View file

Binary file not shown.

8
files/.xmonad/lib/Config.hs
View file

@ -23,7 +23,9 @@ import qualified XMonad.Util.ExtensibleState as XS
import qualified Rofi
import qualified DescribedSubmap
import qualified TiledDragging
import qualified WindowSwallowing
--import qualified WindowSwallowing
import XMonad.Hooks.WindowSwallowing as WindowSwallowing
import Data.Foldable ( for_ )
@ -60,6 +62,7 @@ import XMonad.Layout.ThreeColumns
import XMonad.Layout.ResizableThreeColumns
import XMonad.Layout.WindowSwitcherDecoration
import XMonad.Layout.DraggingVisualizer
--import XMonad.Layout.Hidden as Hidden
import XMonad.Util.EZConfig ( additionalKeysP
, removeKeysP
@ -181,6 +184,7 @@ myLayout = avoidStruts
$ ToggleLayouts.toggleLayouts (rename "Tabbed" . makeTabbed . spacingAndGaps $ ResizableTall 1 (3/100) (1/2) [])
$ MTog.mkToggle1 WINDOWDECORATION
$ draggingVisualizer
-- $ Hidden.hiddenWindows
$ layoutHintsToCenter
$ layouts
where
@ -518,7 +522,7 @@ main = do
-- }}}
mySwallowEventHook = WindowSwallowing.swallowEventHook ([className =? "Alacritty", className =? "Termite", className =? "Thunar"]) ([return True])
mySwallowEventHook = WindowSwallowing.swallowEventHook [className =? "Alacritty", className =? "Termite", className =? "Thunar"] [return True]
activateWindowEventHook :: Event -> X All

4
files/.xmonad/lib/WindowSwallowing.hs
View file

@ -29,7 +29,7 @@ swallowEventHook parentQueries childQueries event = do
oldFloating <- XS.gets floatingBeforeClosing
case (maybeSwallowedParent, maybeOldStack) of
(Just parent, Just oldStack) -> do
Hidden.popHiddenWindow parent
--Hidden.popHiddenWindow parent
windows
(\ws ->
updateCurrentStack
@ -58,7 +58,7 @@ swallowEventHook parentQueries childQueries event = do
. copyFloatingState parentWindow childWindow
)
XS.modify (addSwallowedParent parentWindow childWindow)
Hidden.hideWindow parentWindow
--Hidden.hideWindow parentWindow
_ -> return ()
return ()
_ -> return ()