Xmonad переключить полноэкранный режим / xmobar

попробуйте lowerOnStart = True В вы .xmobarrc, есть avoidStruts (у вас уже есть) и сочетание клавиш для переключения стоек, например:

((mod4Mask .|. shiftMask, xK_f), sendMessage ToggleStruts)

Это то, что у меня есть в моей конфигурации (переформатировано немного, чтобы больше походить на ваш):

main = do
    config <- statusBar "xmobar" myPP toggleXMobarKey myConfig
    xmonad config

myPP = xmobarPP { -- your PP customizations...
                  ppOutput = hPutStrLn xmproc
                , ppTitle = xmobarColor "green" "" . shorten 50
                }

toggleXMobarKey XConfig { XMonad.modMask = modMask } = (modMask, xK_b)

myConfig = defaultConfig { -- put your config here...
                           -- not including your logHook
                         }

вам не нужно плавать ваши окна, чтобы сделать полноэкранный режим работы, хотя.

используя полноэкранный макет модификаторы, вы можете иметь хорошие полноэкранные возможности, которые, например, позволяют переключаться на другие окна (но все еще показывает xmobar).

Я написал небольшой модификатор макета поверх макета.Полноэкранный режим, который использует SetStruts (от крючков.ManageDocks), чтобы Скрыть / Показать панель, когда windows go полноэкранный режим:

{-# LANGUAGE DeriveDataTypeable, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}
import XMonad
import qualified XMonad.Layout.Fullscreen as FS
import XMonad.Hooks.ManageDocks (SetStruts(..))
import XMonad.Layout.LayoutModifier (LayoutModifier(..), ModifiedLayout(..))
import Data.List (delete, nub)

fullscreenToggleStruts = ModifiedLayout $ FullscreenToggleStruts []
data FullscreenToggleStruts a = FullscreenToggleStruts [a]
     deriving (Read, Show)
instance LayoutModifier FullscreenToggleStruts Window where
    handleMess ff@(FullscreenToggleStruts fulls) m = case fromMessage m of
        Just (FS.AddFullscreen win) -> setStruts $ nub $ win:fulls
        Just (FS.RemoveFullscreen win) -> setStruts $ delete win fulls
        Just FS.FullscreenChanged -> return $ Just ff
        _ -> return Nothing
        where setStruts f = do
                let m = if null f
                        then SetStruts [minBound .. maxBound] []
                        else SetStruts [] [minBound .. maxBound]
                sendMessage m
                return $ Just $ FullscreenToggleStruts f

используйте его так, например:

layoutHook = fullscreenToggleStruts $ FS.fullscreenFocus $ avoidStruts $ layoutHook'

Он даже хорошо работает с несколькими мониторами !

посмотреть мой github для моей конфигурации xmonad+xmobar

Я думаю, что я получил это от одной из конфигураций по умолчанию, которые я нашел где-то. Мои часы для полноэкранных окон, а затем устанавливает в полноэкранный режим, используя управления крюком.

myManageHook = composeAll
    [ className =? "Firefox"        --> doShift (head myWorkspaces)
    , className =? "banshee"        --> doShift (last myWorkspaces)
    , resource  =? "desktop_window" --> doIgnore
    , isFullscreen                  --> doFullFloat ] -- this one

затем он просто добавляет Это в список крючков.

allHooks = [manageDocks, myManageHook, manageHook defaultConfig, manageSpawn]

наконец, составьте все крючки вместе

defaults xmproc = defaultConfig
   { -- Simple Stuff
     terminal           = myTerminal
   , focusFollowsMouse  = myFocusFollowsMouse
   , borderWidth        = myBorderWidth
   , modMask            = myModMask
     -- numlockMask        = myNumlockMask,
   , workspaces         = myWorkspaces
   , normalBorderColor  = myNormalBorderColor
   , focusedBorderColor = myFocusedBorderColor

     -- key bindings
   , keys               = myKeys
   , mouseBindings      = myMouseBindings
     -- hooks, layouts
   , layoutHook         = myLayout
   , manageHook         = foldr1 (<+>) allHooks -- Right here
   , logHook            = myLogHook xmproc
   , startupHook        = myStartupHook
   }

Это не самый минимальный пример, как это сделать, но я просто скопировал и вставил его из моей конфигурации.