XMonad 0.13

Неа, не получается
xmonad.hs:63:35: error: Variable not in scope: xmproc :: Handle

Уже всяко вертел чтобы как-то попробовать впихнуть xmobar после xmonad $
Чет не получается.
Но зацепило, "уже не в очках дело, пусть скажут они есть или их нет" (Жванецкий)
Буду копать)
нууу... можно попробовать вот так
main = do
    spawn "feh --bg-center /usr/share/backgrounds/003.jpg"
    xmonad $ xmobar $ withUrgencyHook NoUrgencyHook $ defaultConfig { manageHook = myManageHook <+> manageDocks
            , modMask = mod4Mask
            , layoutHook = myLayoutHook
            , logHook = myLogHook >>= xmonadPropLog
            , terminal = myTerminal
            , workspaces = myWorkspaces
            , borderWidth = myBorderWidth
            , normalBorderColor = myNormalBorderColor
            , focusedBorderColor = myFocusedBorderColor
            , keys = myKeys
            , startupHook = do
            --windows $ W.greedyView $ myWorkspaces !! 0
            ewmhDesktopsStartup >> setWMName "LG3D"
            setDefaultCursor xC_left_ptr
            spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe"
            }
т.е. оставить только xmonad $ xmobar , изменить logHook на
, logHook = myLogHook >>= xmonadPropLog
и добавить блок настроек

myLogHook = do
    currentWorkspaceOnTop
    dynamicLogString $ xmobarPP {
          ppCurrent         = xmobarColor "#9fdfff" ""
        , ppUrgent          = xmobarColor "#ff6500" ""
        , ppTitle           = (\str -> "")
        }
но это вообще полное переписывание вывода xmobar ((((
не уверен на 100%, но возможно придётся прописывать и это
myXPConfig = def {
          font              = "xft:Terminus Re33:size=12:antialias=true:hinting=true"
        , bgColor           = "#151515"
        , fgColor           = "#959595"
        , bgHLight          = "#151515"
        , fgHLight          = "#9df"
        , promptBorderWidth = 0
        , position          = Top
        , height            = 20
        , alwaysHighlight   = True
        , historySize       = 100
    }

*кстати, defaultConfig надо везде поменять на def - это новая фишка xmonad
смотрите в файле ~/.xmonad/xmonad.errors - там будут перечислены все строки, где старый вариант написания нужно заменить на новый (def)
Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad
GitHub , BitBuket
xmonad $ xmobar вызывает сразу кучу ошибок(((
а про новую фишку я знаю, эту ветку с самого начала читаю, просто не успел, теперь уже поменял)
тогда я сдаюсь....
Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad
GitHub , BitBuket
а если
main = do
    xmonad =<< xmobar def {
}
а withUrgencyHook NoUrgencyHook пока в эту строку не прописывать - получится, значит их можно будет прописать, но уже в другое место
кстати, import XMonad.Hooks.DynamicLog имеется?
Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad
GitHub , BitBuket
ещё один вопрос - зачем xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs"
просто создать в хомяке симлинк на ~/.xmonad/xmobar.hs и обозвать его .xmobarrc
тогда можно просто xmproc <- spawnPipe "xmobar"
Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad
GitHub , BitBuket
Haron_Prime
import XMonad.Hooks.DynamicLog имеется?
да

Haron_Prime
а если
main = do
xmonad =<< xmobar def {
}
Скомпилировалось... пишу рестарт, если что, прошу считать коммунистом
[email protected]
Скомпилировалось
фуууух..... не может быть!
Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad
GitHub , BitBuket
Да, пока вот так
main = do
    spawn "feh --bg-center /usr/share/backgrounds/003.jpg"
    xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs"
    xmonad =<< xmobar def {
    manageHook = myManageHook <+> manageDocks
            , modMask = mod4Mask
            , layoutHook = myLayoutHook
            , logHook = myLogHook xmproc
            , terminal = myTerminal
            , workspaces = myWorkspaces
            , borderWidth = myBorderWidth
            , normalBorderColor = myNormalBorderColor
            , focusedBorderColor = myFocusedBorderColor
            , keys = myKeys
            , startupHook = do
            --windows $ W.greedyView $ myWorkspaces !! 0
            ewmhDesktopsStartup >> setWMName "LG3D"
            setDefaultCursor xC_left_ptr
            spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe"
}
{-    xmonad $ withUrgencyHook NoUrgencyHook $ def { manageHook = myManageHook <+> manageDocks
            , modMask = mod4Mask
            , layoutHook = myLayoutHook
            , logHook = myLogHook xmproc
            , terminal = myTerminal
            , workspaces = myWorkspaces
            , borderWidth = myBorderWidth
            , normalBorderColor = myNormalBorderColor
            , focusedBorderColor = myFocusedBorderColor
            , keys = myKeys
            , startupHook = do
            --windows $ W.greedyView $ myWorkspaces !! 0
            ewmhDesktopsStartup >> setWMName "LG3D"
            setDefaultCursor xC_left_ptr
            spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe"
            }-}
сделал рестарт, все вроде работатет, статус бар не перекрыта но она такая поганая с вырвиглазным шрифтом и вместо надписей ws ругательства)))
[email protected]
она такая поганая с вырвиглазным шрифтом и вместо надписей ws ругательства)))
это мелочь!
просто не подхватился конфиг
киньте в хомяк симлинк на свой конфиг xmobar и обзовите его .xmobarrc
после этого будем разбираться с выводом WS
Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad
GitHub , BitBuket
 
Зарегистрироваться или войдите чтобы оставить сообщение.