Just some optimizations

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
 
 

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