fix fullscreen + status bar (use fullscreenSupport)

master
Paul Walko 2017-05-16 22:27:26 -04:00
parent ae9bd2c49f
commit 40959a8938
4 changed files with 5 additions and 12 deletions

Binary file not shown.

View File

@ -4,17 +4,12 @@ xmonad.hs:35:75: warning: [-Wdeprecations]
(imported from XMonad, but defined in XMonad.Config):
Deprecated: "Use def (from Data.Default, and re-exported by XMonad and XMonad.Config) instead."
xmonad.hs:51:14: warning: [-Wdeprecations]
xmonad.hs:51:32: warning: [-Wdeprecations]
In the use of defaultConfig
(imported from XMonad, but defined in XMonad.Config):
Deprecated: "Use def (from Data.Default, and re-exported by XMonad and XMonad.Config) instead."
xmonad.hs:58:31: warning: [-Wdeprecations]
In the use of defaultConfig
(imported from XMonad, but defined in XMonad.Config):
Deprecated: "Use def (from Data.Default, and re-exported by XMonad and XMonad.Config) instead."
xmonad.hs:60:56: warning: [-Wdeprecations]
xmonad.hs:58:32: warning: [-Wdeprecations]
In the use of defaultConfig
(imported from XMonad, but defined in XMonad.Config):
Deprecated: "Use def (from Data.Default, and re-exported by XMonad and XMonad.Config) instead."

View File

@ -48,16 +48,14 @@ main = do
dzenLeftBar <- spawnPipe myXmonadBar
dzenRightBar <- spawnPipe myStatusBar
setRandomWallpaper ["$HOME/images/wallpaper"]
xmonad $ defaultConfig
xmonad $ fullscreenSupport defaultConfig
{ terminal = myTerminal
, layoutHook = myLayoutHook
, borderWidth = myBorderWidth
, logHook = myLogHook dzenLeftBar >> fadeInactiveLogHook 0xdddddddd
, logHook = myLogHook dzenLeftBar >> fadeInactiveLogHook 0xdddddddd
, handleEventHook = mconcat
[ docksEventHook
, handleEventHook defaultConfig <+> fullscreenEventHook]
-- Video hax
, manageHook = manageDocks <+> manageHook defaultConfig
, handleEventHook defaultConfig]
} `additionalKeys` myAdditionalKeys
--}}}

Binary file not shown.