summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/Storage.hs6
-rw-r--r--xmonad.hs2
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