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 Rofi
import qualified DescribedSubmap import qualified DescribedSubmap
import qualified TiledDragging import qualified TiledDragging
import qualified WindowSwallowing --import qualified WindowSwallowing
import XMonad.Hooks.WindowSwallowing as WindowSwallowing
import Data.Foldable ( for_ ) import Data.Foldable ( for_ )
@ -60,6 +62,7 @@ import XMonad.Layout.ThreeColumns
import XMonad.Layout.ResizableThreeColumns import XMonad.Layout.ResizableThreeColumns
import XMonad.Layout.WindowSwitcherDecoration import XMonad.Layout.WindowSwitcherDecoration
import XMonad.Layout.DraggingVisualizer import XMonad.Layout.DraggingVisualizer
--import XMonad.Layout.Hidden as Hidden
import XMonad.Util.EZConfig ( additionalKeysP import XMonad.Util.EZConfig ( additionalKeysP
, removeKeysP , removeKeysP
@ -181,6 +184,7 @@ myLayout = avoidStruts
$ ToggleLayouts.toggleLayouts (rename "Tabbed" . makeTabbed . spacingAndGaps $ ResizableTall 1 (3/100) (1/2) []) $ ToggleLayouts.toggleLayouts (rename "Tabbed" . makeTabbed . spacingAndGaps $ ResizableTall 1 (3/100) (1/2) [])
$ MTog.mkToggle1 WINDOWDECORATION $ MTog.mkToggle1 WINDOWDECORATION
$ draggingVisualizer $ draggingVisualizer
-- $ Hidden.hiddenWindows
$ layoutHintsToCenter $ layoutHintsToCenter
$ layouts $ layouts
where 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 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 oldFloating <- XS.gets floatingBeforeClosing
case (maybeSwallowedParent, maybeOldStack) of case (maybeSwallowedParent, maybeOldStack) of
(Just parent, Just oldStack) -> do (Just parent, Just oldStack) -> do
Hidden.popHiddenWindow parent --Hidden.popHiddenWindow parent
windows windows
(\ws -> (\ws ->
updateCurrentStack updateCurrentStack
@ -58,7 +58,7 @@ swallowEventHook parentQueries childQueries event = do
. copyFloatingState parentWindow childWindow . copyFloatingState parentWindow childWindow
) )
XS.modify (addSwallowedParent parentWindow childWindow) XS.modify (addSwallowedParent parentWindow childWindow)
Hidden.hideWindow parentWindow --Hidden.hideWindow parentWindow
_ -> return () _ -> return ()
return () return ()
_ -> return () _ -> return ()