diff options
| -rw-r--r-- | XMonad/Layout/Decoration.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/XMonad/Layout/Decoration.hs b/XMonad/Layout/Decoration.hs index 88a3a57..c830e6c 100644 --- a/XMonad/Layout/Decoration.hs +++ b/XMonad/Layout/Decoration.hs @@ -118,7 +118,9 @@ defaultDeConfig = mkDefaultDeConfig DefaultStyle instance (DecorationStyle ds Window, Shrinker s) => LayoutModifier (Decoration ds s) Window where redoLayout (Decoration st sh c) sc stack wrs - | decorate_first = do whenIJust st $ \s -> deleteWindows (getDWs $ decos s) + | decorate_first = do whenIJust st $ \s -> do + deleteWindows (getDWs $ decos s) + releaseXMF (font s) return (wrs, Just $ Decoration (I Nothing) sh c) | I Nothing <- st = initState c wrs >>= processState | I (Just s) <- st = do let dwrs = decos s |