Just some optimizations

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
 
 
diff --git a/xmonad.hs b/xmonad.hs
index 496e294..d4cdfa0 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -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