Решил попробовать xmonad и под свои нужды получил минимальный конфиг, который меня устраивает, но мне хотелось бы прикрутить туда ещё xmobar, с выводом: mpd, загрузкой памяти, места на дисках, часами и на два монитора - и вот тут возникают проблемы: не понимаю как отделить место под бар сверху, не получается скомпилировать с xmproc как в примерах из интернета.
import XMonad
import System.IO
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.EZConfig (additionalKeysP)
import XMonad.Util.Run (spawnPipe)
import XMonad.Layout.IndependentScreens
import XMonad.Hooks.SetWMName
import XMonad.Layout.Fullscreen
main :: IO ()
main =
xmonad
$ def {
borderWidth = 0
,modMask = mod4Mask
,terminal = "urxvtc"
,startupHook = startup
,workspaces = withScreens 2 myWorkspaces
,handleEventHook = fullscreenEventHook
}`additionalKeysP` myAditionalKeys
myAditionalKeys :: [(String, X ())]
myAditionalKeys =
[
("M-<Return>", spawn "urxvtc")
,("S-C-t", spawn "mpc -q toggle")
,("S-C-n", spawn "mpc -q next")
,("S-C-p", spawn "mpc -q prev")
,("S-C-f", spawn "firefox")
,("S-C-l", spawn "slock")
,("S-C-q", spawn "loginctl poweroff")
,("S-C-r", spawn "loginctl reboot")
,("S-C-e", spawn "emacsclient -c")
]
myWorkspaces = ["1","2","3","4","5","6","7","8","9"]
startup :: X ()
startup = do
setWMName "LG3D"
spawn "slock"
spawn "emacs --daemon"