XMonad 0.13

s-ugra@ya.ru	# 7 лет, 9 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Неа, не получается xmonad.hs:63:35: error: Variable not in scope: xmproc :: Handle Уже всяко вертел чтобы как-то попробовать впихнуть xmobar после xmonad $ Чет не получается. Но зацепило, "уже не в очках дело, пусть скажут они есть или их нет" (Жванецкий) Буду копать)

# 7 лет, 9 месяцев назад

Сообщения: 763

Участник с: 15 ноября 2016

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

Уже всяко вертел чтобы как-то попробовать впихнуть xmobar после xmonad $
Чет не получается.
Но зацепило, "уже не в очках дело, пусть скажут они есть или их нет" (Жванецкий)
Буду копать)

Haron_Prime	# 7 лет, 9 месяцев назад
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	нууу... можно попробовать вот так 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*

Haron_Prime

# 7 лет, 9 месяцев назад

Темы: 28

Сообщения: 2109

Участник с: 08 июня 2014

нууу... можно попробовать вот так

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

s-ugra@ya.ru	# 7 лет, 9 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	xmonad $ xmobar вызывает сразу кучу ошибок((( а про новую фишку я знаю, эту ветку с самого начала читаю, просто не успел, теперь уже поменял)

Haron_Prime	# 7 лет, 9 месяцев назад
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	тогда я сдаюсь.... Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket

Haron_Prime	# 7 лет, 9 месяцев назад (отредактировано 7 лет, 9 месяцев назад)
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	а если `main = do xmonad =<< xmobar def { }` а withUrgencyHook NoUrgencyHook пока в эту строку не прописывать - получится, значит их можно будет прописать, но уже в другое место кстати, import XMonad.Hooks.DynamicLog имеется? Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket

Haron_Prime

# 7 лет, 9 месяцев назад (отредактировано 7 лет, 9 месяцев назад)

Темы: 28

Сообщения: 2109

Участник с: 08 июня 2014

а если

main = do
    xmonad =<< xmobar def {
}

а withUrgencyHook NoUrgencyHook пока в эту строку не прописывать - получится, значит их можно будет прописать, но уже в другое место
кстати, import XMonad.Hooks.DynamicLog имеется?

Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad
GitHub , BitBuket

Haron_Prime	# 7 лет, 9 месяцев назад (отредактировано 7 лет, 9 месяцев назад)
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	ещё один вопрос - зачем xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs" просто создать в хомяке симлинк на ~/.xmonad/xmobar.hs и обозвать его .xmobarrc тогда можно просто xmproc <- spawnPipe "xmobar" Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket

s-ugra@ya.ru	# 7 лет, 9 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Haron_Prime import XMonad.Hooks.DynamicLog имеется? да Haron_Prime а если main = do xmonad =<< xmobar def { } Скомпилировалось... пишу рестарт, если что, прошу считать коммунистом

s-ugra@ya.ru

# 7 лет, 9 месяцев назад

Темы: 11

Сообщения: 763

Участник с: 15 ноября 2016

Haron_Prime
import XMonad.Hooks.DynamicLog имеется?

да

Haron_Prime
а если
main = do
xmonad =<< xmobar def {
}

Скомпилировалось... пишу рестарт, если что, прошу считать коммунистом

Haron_Prime	# 7 лет, 9 месяцев назад
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	s-ugra@ya.ru Скомпилировалось фуууух..... не может быть! Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket

s-ugra@ya.ru	# 7 лет, 9 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Да, пока вот так 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 ругательства)))

s-ugra@ya.ru

# 7 лет, 9 месяцев назад

Темы: 11

Сообщения: 763

Участник с: 15 ноября 2016

Да, пока вот так

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 ругательства)))

Haron_Prime	# 7 лет, 9 месяцев назад
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	s-ugra@ya.ru она такая поганая с вырвиглазным шрифтом и вместо надписей ws ругательства))) это мелочь! просто не подхватился конфиг киньте в хомяк симлинк на свой конфиг xmobar и обзовите его .xmobarrc после этого будем разбираться с выводом WS Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket

Haron_Prime

# 7 лет, 9 месяцев назад

Темы: 28

Сообщения: 2109

Участник с: 08 июня 2014

s-ugra@ya.ru
она такая поганая с вырвиглазным шрифтом и вместо надписей ws ругательства)))

это мелочь!
просто не подхватился конфиг
киньте в хомяк симлинк на свой конфиг xmobar и обзовите его .xmobarrc
после этого будем разбираться с выводом WS

Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad
GitHub , BitBuket