From 9f176adbff807dafec2caee5e3b104e65caf9029 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Fri, 8 Dec 2023 16:13:24 -0700 Subject: Got the pin window layout to work. It works better than the main branch for now except the border color does not change. --- src/Rahm/Desktop/Layout.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/Rahm/Desktop/Layout.hs') diff --git a/src/Rahm/Desktop/Layout.hs b/src/Rahm/Desktop/Layout.hs index f6fb49e..4dfba25 100644 --- a/src/Rahm/Desktop/Layout.hs +++ b/src/Rahm/Desktop/Layout.hs @@ -18,7 +18,7 @@ import Rahm.Desktop.Layout.List nil, (|:), ) -import Rahm.Desktop.Layout.PinWindow (PinWindowLayout (PinWindowLayout)) +import Rahm.Desktop.Layout.PinWindow (PinWindowLayout (PinWindowLayout), pinnable) import Rahm.Desktop.Layout.Pop (poppable) import Rahm.Desktop.Layout.Redescribe (Describer (..), Redescribe (..)) import Rahm.Desktop.Layout.ReinterpretMessage (DoReinterpret (..), ReinterpretMessage (..)) @@ -42,14 +42,13 @@ import XMonad.Layout.Spiral (spiral) myLayout = fullscreenFull $ - PinWindowLayout $ hole $ avoidStruts myLayoutList mySpacing = spacingRaw True (Border 5 5 5 5) True (Border 5 5 5 5) True mods = - mySpacing . poppable . flippable . rotateable + pinnable . poppable . mySpacing . flippable . rotateable myLayoutList = layoutList $ -- cgit