diff options
| -rw-r--r-- | lib/Storage.hs | 6 | ||||
| -rw-r--r-- | xmonad.hs | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lib/Storage.hs b/lib/Storage.hs index 6a8608b..d8fae48 100644 --- a/lib/Storage.hs +++ b/lib/Storage.hs @@ -49,10 +49,14 @@ storage :: (LayoutClass l a, StoreData d) => d -> l a -> ModifiedLayout (Storage storage def = ModifiedLayout $ Storage def +sendMessage' :: Message a => a -> X () +sendMessage' a = W.workspace . W.current <$> gets windowset >>= sendMessageWithNoRefresh a + + getStoreData :: StoreData d => X (Maybe d) getStoreData = do ref <- io . newIORef $ Nothing - broadcastMessage $ GetStoreData ref + sendMessage' $ GetStoreData ref io . readIORef $ ref @@ -82,6 +82,8 @@ myManageHook = composeAll [ isDialog -?> doFloat , className =? "Guake.py" -?> (doFloatMaybeFullscreen <+> doIgnoreProcessWorkspace) -- <+> doConfigBorderOff) --, className =? "Do" -?> (doFloat <+> doConfigBorderOff) + , className =? "Gmpc" -?> doIgnoreProcessWorkspace + , className =? "Liferea" -?> doIgnoreProcessWorkspace , className =? "MPlayer" -?> doCenterFloat , className =? "Gimp" -?> doFloat , className =? "Display" -?> doFloat |