[РЕШЕНО] Xmonad - не могу победить xmobar и лэйауты

.....................

--LayoutHook
myLayoutHook  =  onWorkspace "6:VM" webL $ onWorkspace "8:vid" webL $ onWorkspace "7:games" webL  $ standardLayouts
   where
   standardLayouts =   avoidStruts  $ (tiled |||   Mirror tiled ||| Grid ||| Full)

        Layouts
    tiled     = smartBorders (ResizableTall 1 (2/100) (1/2) [])

    full      = noBorders Full

        --Im Layout
    --Show pidgin tiled left and skype right
       imLayout = avoidStruts $ smartBorders $ withIM ratio pidginRoster $ reflectHoriz $ withIM skypeRatio skypeRoster (tiled ||| reflectTiled ||| Grid) where
                chatLayout      = Grid
            ratio = (1%9)
                skypeRatio = (1%8)
                pidginRoster    = And (ClassName "Pidgin") (Role "buddy_list")
                skypeRoster  = (ClassName "Skype")     `And`
                               (Not (Title "Options")) `And`
                                              (Not (Role "Chats"))    `And`
                                                            (Not (Role "CallWindowForm"))
    --Weblayout
    webL      = avoidStruts $  full ||| tiled ||| reflectHoriz tiled

        VirtualLayout
        fullL = avoidStruts $ full

.....................
-- Main --
main = do
    xmproc <- spawnPipe "xmobar"
    spawn "sh /home/x/.xmonad/autostart.sh"
    xmonad $ withUrgencyHook NoUrgencyHook $ defaultConfig  {
        manageHook = myManageHook
        , layoutHook = avoidStruts myLayoutHook

...................

akmkin
Поделитесь рабочими конфигами

akmkin
есть ли в xmonad'e такие функции?

$ xmobar ~/.xmonad/xmobar.hs
xmobar: /home/x/.xmonad/xmobar.hs: hGetContents: invalid argument (invalid byte sequence

#!/bin/sh
export LANG=ru_UA.UTF-8
export MM_CHARSET=UTF-8
export GTK2_RC_FILES="$HOME/.gtkrc-2.0"
export LIBVA_DRIVER_NAME=vdpau
export VDPAU_DRIVER=nouveau

if [ -d /etc/X11/xinit/xinitrc.d ]; then
for f in /etc/X11/xinit/xinitrc.d/*; do
  [ -x "$f" ] && . "$f"
done
unset f
fi

if [ -z "$DBUS_SESSION_BUS_ADDRESS" ]; then
    eval "$(dbus-launch --sh-syntax --exit-with-session)"
fi

/usr/bin/xdg-user-dirs-update &
setxkbmap -layout us,ru -variant -option grp:caps_toggle,terminate:ctrl_alt_bksp &
xsetroot -cursor_name left_ptr &
xsetroot -solid '#000000' &
xset s 6999 &
xset dpms 6000 6001 6002 &
xset m 5/2 0 &
numlockx &
perWindowLayoutD &
compton -b &
urxvtd -q -f -o &
pcmanfm -d &
feh --bg-center /home/haron/Pictures/pics/xmonad/XMONAD011-2.png &
stalonetray &
python3 /home/haron/lib/gis-weather/gis-weather.py &
exec xmonad

 font = "xft:Terminus Re33:size=12:antialias=true:hinting=true"
, additionalFonts = ["xft:Terminus:size=12:weight=bold:antialias=true:hinting=true","xft:Terminus Re33:size=4:antialias=true:hinting=true"][/code]

Haron_Prime
закомментируйте/удалите все подключённые мною скрипты

Haron_Prime
P.S> кстати, xmobarrc.hs у меня лежит в отдельном каталоге, а чтоб не прописывать каждый раз путь к конфигу я в хомяке создал симлинк на него ~/.xmobarrc - так он подхватывается автоматически

main = do
xmonad =<< xmobar myConfig
….......

main = xmonad =<< statusBar myBar myPP toggleStrutsKey myConfig
myBar = "xmobar"
…....

-- Импорт
import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import qualified XMonad.StackSet as W
-- Основная функция
main = xmonad =<< statusBar myBar myPP toggleStrutsKey myConfig
-- Команда для запуска бара
myBar = "xmobar"
-- Настройка пользовательских PP - определяют то, что пишется в бар
myPP = xmobarPP
     { ppCurrent         = xmobarColor "red" "" . wrap "<" ">"
     , ppHidden          = xmobarColor "blue" "" . wrap "<" ">"
     , ppHiddenNoWindows = xmobarColor "green" "" . wrap "<" ">"
--     , ppTitle           = xmobarColor "blue"  "" . shorten 40
     , ppTitle           = (\str -> "")
     , ppLayout          = xmobarColor "red" ""
--     , ppOrder           = \(ws:_:t:_) -> [ws,t]
     }
-- Назначение клавиш для переключения промежутков бара
toggleStrutsKey XConfig {XMonad.modMask = modMask} = (modMask, xK_b)
-- Главная настройка
myConfig = defaultConfig
         { terminal      = "Terminator"
         , workspaces    = ["1-Term","2-FM","3-web","4-Media","5-Office","6","7","8"]
         , manageHook    = composeAll
                         [ className =? "Terminator"  --> doF (W.shift "1-Term")
                         , className =? "Pcmanfm"     --> doF (W.shift "2-FM")
                         , className =? "Firefox"     --> doF (W.shift "3-web")
                         ]
          }

Config { font          = "xft:Bitstream Vera Sans Mono:size=11:bold:antialias=true"
       , bgColor       = "#000000"
       , fgColor       = "#FFFFFF"
       , position      = Top
       , lowerOnStart  = True
       , commands      = [ Run StdinReader
                       , Run Com "date" ["+%a%e-%b %k:%M"] "mydate" 600
                       , Run Cpu ["-t", "Cpu: <total>% "
                             , "-L", "10"
                             , "-H", "65"
                             , "-l", "blue"
                             , "-n", "green"
                             , "-h", "red"
                       ] 60
                       , Run Memory ["-t","Mem: <usedratio>% "
                             , "-L", "10"
                             , "-H", "65"
                             , "-l", "blue"
                             , "-n", "green"
                             , "-h", "red"
                       ] 60

                       , Run CoreTemp ["Temp:C"
                             , "-L", "53"
                             , "-H", "65"
                             , "-l", "blue"
                             , "-n", "green"
                             , "-h", "red"
                       ] 60
                       ]
       , sepChar =  "%"   -- delineator between plugin names and straight text
       , alignSep = "}{"  -- separator between left-right alignment
       , template = "%StdinReader% }{%coretemp%  %cpu%  %memory%  <fc=#00FF00>%mydate%</fc> "
       }