From 0b80dad888724f0ba8a5cb5bad06bedfc7a69572 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Sat, 26 Feb 2011 04:21:44 +0100
Subject: Just some optimizations

---
 lib/Storage.hs | 6 +++++-
 xmonad.hs      | 2 ++
 2 files changed, 7 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3