twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-14 03:35:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

Use existing connection in X.H.DynamicBars

Browse Source 
Adapted from patch attributed to geekosaur
(https://code.google.com/p/xmonad/issues/detail?id=538).
This commit is contained in:
Dmitri Iouchtchenko
2015-08-24 01:56:46 -04:00
parent 05f3eb17f5
commit 42a69bfa98
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
XMonad/Hooks/DynamicBars.hs
View File

@@ -77,10 +77,9 @@ type DynamicStatusBarCleanup = IO ()
dynStatusBarStartup :: DynamicStatusBar -> DynamicStatusBarCleanup -> X () dynStatusBarStartup :: DynamicStatusBar -> DynamicStatusBarCleanup -> X ()
dynStatusBarStartup sb cleanup = do dynStatusBarStartup sb cleanup = do
liftIO $ do dpy <- asks display
dpy <- openDisplay "" root <- asks theRoot
xrrSelectInput dpy (defaultRootWindow dpy) rrScreenChangeNotifyMask io $ xrrSelectInput dpy root rrScreenChangeNotifyMask
closeDisplay dpy
updateStatusBars sb cleanup updateStatusBars sb cleanup
dynStatusBarEventHook :: DynamicStatusBar -> DynamicStatusBarCleanup -> Event -> X All dynStatusBarEventHook :: DynamicStatusBar -> DynamicStatusBarCleanup -> Event -> X All