On Thu, Apr 05, 2018 at 10:39:20AM CDT, Peter Fitzgibbons wrote:
HI Folks, I have 2 displays in portrait-mode, both 1200x1920. ghc 7.6.3 xmonad 0.11 xmobar 0.25
I've been reading several-years-old and even recent google results on this issue. https://mail.haskell.org/pipermail/xmonad/2017-June/015266.html
xmobar --dock made the dock display on main (in display 1), though the window is still full-screen, not giving space for the bar.
Could any of you please describe to me how to: 1) instruct main window to give space for the bar? (other workspaces work fine, only ws2(display-1) does this. 2) display xmobar in both displays? (extra credit for separate bar contents -- not necessary)
Your help is most kindly appreciated! -- Peter Fitzgibbons (224) 307-9689
The lack-of-space problem I'm afraid I don't know much about, but regarding point number 2, I have something like that set up in my xmonad config roughly as follows -- I *think* this snippet contains all the relevant parts, though I may have missed something (and parts of it are likely not relevant to you)...I'm also not the most experienced Haskeller in the world, so there may be better/more-direct ways of achieving this, but: --- 8< --- barKey :: XConfig t -> (KeyMask, KeySym) barKey XConfig { modMask = modm } = (modm, xK_b) wsWinTitle :: (LayoutClass layout a) => S.Workspace String (layout a) Window -> X String wsWinTitle ws = case S.stack ws of Nothing -> return "-" Just stk -> fmap show $ getName $ S.focus stk wsFormat t ws = unwords [S.tag ws, wrap "[" "]:" $ description $ S.layout ws, t] getScreenDesc :: ScreenId -> X (Maybe String) getScreenDesc sid = do screens <- (\w -> (S.current w):(S.visible w)) <$> gets windowset let wsSids = [(ws, s) | S.Screen ws s _ <- screens] wts <- mapM (\(ws, _) -> wsWinTitle ws) wsSids let wtSids = zip wts wsSids return $ listToMaybe [wsFormat wt ws | (wt, (ws, s)) <- wtSids, s == sid] mkPP :: ScreenId -> PP mkPP s = def { ppCurrent = no, ppVisible = no, ppHidden = no, ppTitle = no, ppSep = "", ppLayout = no, ppExtras = [getScreenDesc s] } where no = const "" mkExtraPP :: ScreenId -> Handle -> PP mkExtraPP s h = (mkPP s) { ppOutput = hPutStrLn h } mkStatusBar scr = let barcmd = xbar scr in statusBar barcmd (mkPP scr) barKey xbar :: ScreenId -> String xbar sid = let s = show (toInteger sid) in "xmobar -x " ++ s ++ " $HOME/.dotfiles/xmobarrc-" ++ s numScreens = 3 mainScreen:extraScreens = take numScreens [0..] main = do barpipes <- mapM spawnPipe (xbar <$> extraScreens) let screenbars = zip extraScreens barpipes let lhs = dynamicLogWithPP . uncurry mkExtraPP <$> screenbars let lh = foldl (>>) def lhs mkStatusBar mainScreen (ewmh zConf { logHook = lh }) >>= xmonad --- >8 --- Each xmobar instance uses its own separate config at ~/.dotfiles/xmobbarrc-$NUMBER, each of which contains a StdinReader to display what xmonad sends it, plus whatever else is configured for that screen. Zev