diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-04-11 23:42:58 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:46 -0600 |
| commit | f140c38f7102c9652deeed11e218870031a8bf1e (patch) | |
| tree | 859904d939b8028116a50c3d1588295336a28214 /src/Rahm/Desktop/Layout | |
| parent | 76ddb5b75808fe61e6f12bd3d9a54270d9b73886 (diff) | |
| download | rde-f140c38f7102c9652deeed11e218870031a8bf1e.tar.gz rde-f140c38f7102c9652deeed11e218870031a8bf1e.tar.bz2 rde-f140c38f7102c9652deeed11e218870031a8bf1e.zip | |
Change LayoutDraw so mosaic looks a little more interesting.
Diffstat (limited to 'src/Rahm/Desktop/Layout')
| -rw-r--r-- | src/Rahm/Desktop/Layout/LayoutDraw.hs | 10 |
1 files changed, 8 insertions, 2 deletions
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' |