diff options
| author | Josh Rahm <rahm@google.com> | 2022-04-12 11:09:19 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:46 -0600 |
| commit | 78b1ba125ec327512deb4c4c481cdf875d6c7339 (patch) | |
| tree | 459fbedf7461eb60e7fd3890934989699fc9ff20 /src/Rahm/Desktop/Layout/LayoutDraw.hs | |
| parent | 0eae9cfa1f500c304ab55e2ebeddc95cfcf74e56 (diff) | |
| download | rde-78b1ba125ec327512deb4c4c481cdf875d6c7339.tar.gz rde-78b1ba125ec327512deb4c4c481cdf875d6c7339.tar.bz2 rde-78b1ba125ec327512deb4c4c481cdf875d6c7339.zip | |
Clean up Poppable so it's a proper proxy to the underlying layout rather than a LayoutModifier.
Diffstat (limited to 'src/Rahm/Desktop/Layout/LayoutDraw.hs')
| -rw-r--r-- | src/Rahm/Desktop/Layout/LayoutDraw.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Rahm/Desktop/Layout/LayoutDraw.hs b/src/Rahm/Desktop/Layout/LayoutDraw.hs index c3a1918..7e628fc 100644 --- a/src/Rahm/Desktop/Layout/LayoutDraw.hs +++ b/src/Rahm/Desktop/Layout/LayoutDraw.hs @@ -11,7 +11,7 @@ import Control.Monad.Writer (execWriter, tell) import Data.Foldable (find) import Data.Maybe (fromMaybe) import Rahm.Desktop.Hash (quickHash) -import Rahm.Desktop.Layout.Pop (PopMessage(..)) +import Rahm.Desktop.Layout.Pop (setPop) import System.Directory (createDirectoryIfMissing, doesFileExist) import System.FilePath ((</>)) import Text.Printf (printf) @@ -49,7 +49,7 @@ drawLayout = do -- Gotta reset the layout to a consistent state. layout' <- foldM (flip ($)) layout $ [ handleMessage' $ ModifyWindowBorder $ const $ Border 0 0 0 0, - handleMessage' Unpop + handleMessage' $ setPop $ const False ] -- Add some changes for the Mosaic layout to handle so it get's a -- unique looking icon. (The default state is pretty boring). |