有时,当我在 Xmonad 中 mod-L
或 mod-H
时,我的窗口不会调整大小。我相信这是我不小心更改了主 Pane 中窗口数量的结果。有时我很幸运能够点击适量的 mod-,
或 mod-.
回到可以调整大小的位置,但并不经常。
如何将 Pane 重置为其默认值,即 Xmonad 在启动时为其提供的默认值?我的 xmonad.hs:
import XMonad
import qualified XMonad.StackSet as W
import qualified Data.Map as M
import System.Exit
import Graphics.X11.Xlib
import IO (Handle, hPutStrLn)
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.SetWMName
import XMonad.Layout.IM
import XMonad.Layout.Reflect
import XMonad.Layout.NoBorders
import XMonad.Layout.ResizableTile
import XMonad.Layout.PerWorkspace
import XMonad.Layout.LayoutHints
import XMonad.Layout.LayoutCombinators hiding ((|||))
import XMonad.Layout.LayoutHints
import XMonad.Layout.NoBorders
import XMonad.Layout.ComboP
import XMonad.Layout.PerWorkspace
import XMonad.Layout.ResizableTile
import XMonad.Layout.Tabbed
import XMonad.Layout.TwoPane
import XMonad.Util.Run (spawnPipe)
import qualified XMonad.StackSet as W
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.NoBorders
main = do
h <- spawnPipe "/usr/bin/xmobar"
xmonad defaultConfig
{ workspaces = workspaces'
, borderWidth = borderWidth'
, logHook = logHook' h
, terminal = terminal'
, modMask = mod4Mask
, layoutHook = layoutHook'
, manageHook = manageHook'
, startupHook = setWMName "LG3D"
}
customPP :: PP
customPP = defaultPP { ppCurrent = xmobarColor "#AFAF87" "" . wrap "<" ">"
, ppTitle = shorten 80
, ppSep = "<fc=#AFAF87> | </fc>"
, ppHiddenNoWindows = xmobarColor "#AFAF87" ""
, ppUrgent = xmobarColor "#FFFFAF" "" . wrap "[" "]"
}
logHook' :: Handle -> X ()
logHook' h = dynamicLogWithPP $ customPP { ppOutput = hPutStrLn h }
manageHook' :: ManageHook
manageHook' = composeAll [
isFullscreen --> doFullFloat
]
layoutHook' = customLayout
borderWidth' :: Dimension
borderWidth' = 1
normalBorderColor', focusedBorderColor' :: String
normalBorderColor' = "#333333"
focusedBorderColor' = "#AFAF87"
workspaces' :: [WorkspaceId]
workspaces' = ["1", "2", "3", "4", "5", "6"]
customLayout = avoidStruts $ layoutHints $ smartBorders (Full ||| resizableTile ||| Mirror resizableTile)
where
resizableTile = ResizableTall nmaster delta ratio []
nmaster = 1
ratio = toRational (2/(1+sqrt(5)::Double))
delta = 3/100
terminal' :: String
terminal' = "urxvt"
我对这个文件的编辑太少了,以至于我几乎忘记了从手册页和 haddock 编译中费力挑选所收集到的有关 Xmonad API 的所有内容。是否有 Xmonad API 的优秀文档资源,但不是严格的引用工作?
最佳答案
默认情况下,mod+shift+space 会重置您的布局。如果您不喜欢 mod- 和 mod-. 的行为,可以使用 removeKeysP
从配置中删除它们:
import XMonad.Util.EZConfig -- add this line near the top, to the other imports
main = do
h <- spawnPipe "/usr/bin/xmobar" -- no change here
xmonad $ defaultConfig -- note the extra ($) here
{ workspaces = workspaces'
-- etc.
} `removeKeysP`
[ "M-,", "M-." ]
我不知道还有比 xmonad.org 上的文档选项卡上提供的更好的文档源了。
关于haskell - Xmonad:如何重置主 Pane 中的窗口数量?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/7856455/