neocturne/xmonad-conf
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Just some optimizations

Browse source
This commit is contained in:
Matthias Schiffer 2011-02-26 04:21:44 +01:00
parent ee3027dcdf
commit 0b80dad888
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/Storage.hs
View file

@ -49,10 +49,14 @@ storage :: (LayoutClass l a, StoreData d) => d -> l a -> ModifiedLayout (Storage
storage def = ModifiedLayout $ Storage def 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 :: StoreData d => X (Maybe d)
getStoreData = do getStoreData = do
ref <- io . newIORef $ Nothing ref <- io . newIORef $ Nothing
broadcastMessage $ GetStoreData ref sendMessage' $ GetStoreData ref
io . readIORef $ ref io . readIORef $ ref

2
xmonad.hs
View file

@ -82,6 +82,8 @@ myManageHook = composeAll
[ isDialog -?> doFloat [ isDialog -?> doFloat
, className =? "Guake.py" -?> (doFloatMaybeFullscreen <+> doIgnoreProcessWorkspace) -- <+> doConfigBorderOff) , className =? "Guake.py" -?> (doFloatMaybeFullscreen <+> doIgnoreProcessWorkspace) -- <+> doConfigBorderOff)
--, className =? "Do" -?> (doFloat <+> doConfigBorderOff) --, className =? "Do" -?> (doFloat <+> doConfigBorderOff)
, className =? "Gmpc" -?> doIgnoreProcessWorkspace
, className =? "Liferea" -?> doIgnoreProcessWorkspace
, className =? "MPlayer" -?> doCenterFloat , className =? "MPlayer" -?> doCenterFloat
, className =? "Gimp" -?> doFloat , className =? "Gimp" -?> doFloat
, className =? "Display" -?> doFloat , className =? "Display" -?> doFloat