Browse Source

xmonad: new statusbar stuff to resuscitate xmobar, trayer

...they'd been disappearing behind other windows.

This is as much as I will know how to Haskell anything until the next
time this shit breaks.
externality
Brennen Bearnes 3 years ago
parent
commit
edc8e06ed7
1 changed files with 11 additions and 11 deletions
  1. +11
    -11
      home/.xmonad/xmonad.hs

+ 11
- 11
home/.xmonad/xmonad.hs View File

@ -91,7 +91,7 @@ scratchpads =
(customFloating $ W.RationalRect 0.3 0.0 0.7 0.95)
] where role = stringProperty "WM_WINDOW_ROLE"
myTabConfig = defaultTheme
myTabConfig = def
{ inactiveBorderColor = colorBackground
, activeBorderColor = colorGreen
, activeColor = colorCurrent
@ -144,19 +144,19 @@ myWorkspaces =
-- ewmh is Extended Window Manager Hints, useful for wmctrl(1):
-- https://en.wikipedia.org/wiki/Extended_Window_Manager_Hints
main = do
xmproc <- spawnPipe "xmobar"
xmonad $ ewmh defaults {
config_with_xmobar <- statusBar myBar myPP toggleStrutsKey defaults
xmonad $ ewmh config_with_xmobar {
manageHook = manageDocks <+> myManageHook,
-- This seems to need to happen here so that xmproc is available:
logHook = dynamicLogWithPP $ xmobarPP
{ ppOutput = hPutStrLn xmproc
, ppTitle = xmobarColor "green" "" . shorten 50
},
modMask = mod4Mask
}
-- xmobar setup:
-- https://wiki.archlinux.org/index.php/Xmonad#More_configurable
-- https://stackoverflow.com/questions/21218309/how-to-use-dzen-instead-of-xmobar-in-this-unusual-setup#21445159
myBar = "xmobar"
myPP = xmobarPP { ppCurrent = xmobarColor "green" "" . wrap "<" ">" . shorten 50 }
toggleStrutsKey XConfig { XMonad.modMask = modMask } = (modMask, xK_b)
defaults = def {
terminal = myTerminal
, borderWidth = 3
@ -178,7 +178,7 @@ defaults = def {
, ("M-S-<Right>", shiftNextScreen)
, ("M-S-<Left>", shiftPrevScreen)
, ("M-z", toggleWS)
, ("M-g", goToSelected defaultGSConfig)
, ("M-g", goToSelected def)
, ("M-S-g", spawn "jump-to-window")
-- A basic scratchpad, by analogy to the ~ console in Quake:


Loading…
Cancel
Save