Xmonad и Debian 10.1

[Ogis1975]

Все же, добрался я до Cabal. Отличная и полезная штука. Так вот, из Cabal поставил xmonad и xmobar. Всем доволен, всё работает. Устроился вот так:

[ChubaDuba]

Тоже на днях обновился. Только xmonad-0.15 мой рабочий конфиг от 13-ой версии не подхватил, поэтому остановился на xmonad-0.14.2 и xmonad-contrib-0.14. Xmobar последний - 0.31

[Ogis1975]

Тоже на днях обновился. Только xmonad-0.15 мой рабочий конфиг от 13-ой версии не подхватил, поэтому остановился на xmonad-0.14.2 и xmonad-contrib-0.14. Xmobar последний - 0.31

Не знаю. Мой конфиг он подхватил. Правда, он у меня минимальный.
Вот он:

Код Выделить Развернуть

import XMonad
import XMonad.Layout.NoBorders
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Hooks.EwmhDesktops
import XMonad.Layout.BinarySpacePartition
import XMonad.Layout.Maximize
import XMonad.Layout.ResizableTile (ResizableTall(..))
import XMonad.Layout.ToggleLayouts (ToggleLayout(..), toggleLayouts)
import XMonad.Hooks.ManageHelpers
import XMonad.Util.EZConfig
import System.IO
import XMonad.Actions.WindowBringer


main = do
  xmproc <- spawnPipe "/home/mindaugas/.cabal/bin/xmobar /home/mindaugas/.xmobarrc"
  xmonad $ ewmh def
    { terminal = "urxvt"
    , modMask = mod4Mask
    , manageHook = manageDocks
    , layoutHook = smartBorders $ avoidStruts $ myLayouts
    , handleEventHook = fullscreenEventHook <+> docksEventHook
    , logHook = dynamicLogWithPP $ xmobarPP
                  { ppOutput = hPutStrLn xmproc
                   , ppTitle = xmobarColor "green" "" . shorten 50
                  }
    }

     `additionalKeysP` -- Add some extra key bindings:
      [
        ("M-<Esc>", sendMessage (Toggle "Full"))
      , ("M-S-g",   gotoMenu)
      , ("M-S-b",   bringMenu)
      , ("M-w", spawn "/home/mindaugas/.scripts/screeny")
      , ("M-r", spawn "/home/mindaugas/.scripts/shutdown.sh")
      , ("M-x", spawn "firefox")
      , ("M-M1-<Left>",    sendMessage $ ExpandTowards L)
      , ("M-M1-<Right>",   sendMessage $ ShrinkFrom L)
      , ("M-M1-<Up>",      sendMessage $ ExpandTowards U)
      , ("M-M1-<Down>",    sendMessage $ ShrinkFrom U)
      , ("M-M1-C-<Left>",  sendMessage $ ShrinkFrom R)
      , ("M-M1-C-<Right>", sendMessage $ ExpandTowards R)
      , ("M-M1-C-<Up>",    sendMessage $ ShrinkFrom D)
      , ("M-M1-C-<Down>",  sendMessage $ ExpandTowards D)
      , ("M-s",            sendMessage $ Swap)
      , ("M-M1-s",         sendMessage $ Rotate)
      ]
--------------------------------------------------------------------------------
-- | Customize layouts.
--
-- This layout configuration uses two primary layouts, 'ResizableTall'
-- and 'BinarySpacePartition'.  You can also use the 'M-<Esc>' key
-- binding defined above to toggle between the current layout and a
-- full screen layout.
myLayouts = toggleLayouts (Full) others
  where
others = ResizableTall 1 (1.5/100) (3/5) [] ||| emptyBSP



Тут конфиг xmobar:

Код Выделить Развернуть

Config { font = "-*-progsole-*-*-*-*-*-*-*-*-*-*-*-*"
       , bgColor = "black"
       , fgColor = "grey"
       , position = TopSize C 100 25
       , commands = [ Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10
                    , Run Memory ["-t","Mem: <usedratio>%"] 10
                    , Run Swap [] 10
                    , Run Date "%a %b %_d %l:%M" "date" 10
    , Run Com "/home/mindaugas/.scripts/mpd" [] "mymusic" 10
                    , Run StdinReader
                    ]
       , sepChar = "%"
       , alignSep = "}{"
       , template = "%StdinReader% }{ %mymusic% %cpu% | %memory% * %swap%  <fc=#9bbaf1>%date%</fc>"
       }


Правда, пробовал и более сложный конфиг (он тут). Тоже все работает, но были варнинги в логе. Исправил, и лог стал чистый.