From f140c38f7102c9652deeed11e218870031a8bf1e Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Mon, 11 Apr 2022 23:42:58 -0600 Subject: Change LayoutDraw so mosaic looks a little more interesting. --- src/Rahm/Desktop/Layout/LayoutDraw.hs | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'src/Rahm/Desktop/Layout/LayoutDraw.hs') diff --git a/src/Rahm/Desktop/Layout/LayoutDraw.hs b/src/Rahm/Desktop/Layout/LayoutDraw.hs index 99828e3..c3a1918 100644 --- a/src/Rahm/Desktop/Layout/LayoutDraw.hs +++ b/src/Rahm/Desktop/Layout/LayoutDraw.hs @@ -16,6 +16,7 @@ import System.Directory (createDirectoryIfMissing, doesFileExist) import System.FilePath (()) import Text.Printf (printf) import XMonad.Layout.Spacing (SpacingModifier(..), Border(..)) +import XMonad.Layout.MosaicAlt (expandWindowAlt, shrinkWindowAlt) import XMonad (X, Rectangle(..), @@ -46,10 +47,15 @@ drawLayout = do let layout = S.layout $ S.workspace $ S.current winset -- Gotta reset the layout to a consistent state. - layout' <- foldM (flip ($)) layout [ + layout' <- foldM (flip ($)) layout $ [ handleMessage' $ ModifyWindowBorder $ const $ Border 0 0 0 0, handleMessage' Unpop - ] + ] + -- Add some changes for the Mosaic layout to handle so it get's a + -- unique looking icon. (The default state is pretty boring). + ++ replicate 10 (handleMessage' (expandWindowAlt 1)) + ++ replicate 5 (handleMessage' (expandWindowAlt 4)) + ++ replicate 1 (handleMessage' (expandWindowAlt 3)) (cached, xpm) <- drawXpmIO layout' -- cgit