s-ugra@ya.ru Сообщения

[email protected]	# 5 лет, 6 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Haron_Prime киньте в хомяк симлинк на свой конфиг xmobar и обзовите его .xmobarrc УРА!!! Заработало! Воркспейсы выводятся. xmonad $ withUrgencyHook NoUrgencyHook оказался отрезанным, но я не знаю для чего он нужен... Спасибо огромное за помощь)))

[email protected]	# 5 лет, 6 месяцев назад
Темы: 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 ругательства)))

[email protected]

# 5 лет, 6 месяцев назад

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

[email protected]	# 5 лет, 6 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Haron_Prime import XMonad.Hooks.DynamicLog имеется? да Haron_Prime а если main = do xmonad =<< xmobar def { } Скомпилировалось... пишу рестарт, если что, прошу считать коммунистом

[email protected]

# 5 лет, 6 месяцев назад

Темы: 11

Сообщения: 763

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

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

да

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

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

[email protected]	# 5 лет, 6 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	xmonad $ xmobar вызывает сразу кучу ошибок((( а про новую фишку я знаю, эту ветку с самого начала читаю, просто не успел, теперь уже поменял)

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

[email protected]

# 5 лет, 6 месяцев назад

Темы: 11

Сообщения: 763

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

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

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

[email protected]	# 5 лет, 6 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Что погано - гапс почему-то блокирует параметр myTabConfig = defaultTheme Т.е. пока он включен - там чоть че пиши, реакции ноль, приходится без гапса писать, тогда все настраивается, а потом его включать(((

[email protected]	# 5 лет, 6 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	У меня avoidStruts прописан вначале `-- layout myLayoutHook = avoidStruts $ gaps [(U,18)] $ smartBorders` Haron_Prime ещё один момент main = do xmonad =<< xmobar myConfig Здесь у меня по-другому: main = do spawn "feh --bg-center /usr/share/backgrounds/003.jpg" xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs" xmonad $ withUrgencyHook NoUrgencyHook $ defaultConfig { 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 =<< xmobar myConfig у меня не получилось, он требует объявления переменной myConfig и я ее никуда не смог прикрутить Попробовал даже xmonad =<< xmobar defaultConfig и панель не перекрывалась, но она стала какая-то дикая - точно искаропки, и вообще весь конфиг ушел в игнор, еле выбрался, даже терминал не мог открыть))) main = xmonad $ docks def... тоже кучу ошибок выдает на modm + b тоже повешена команда sendMessage ToggleStruts, но не работает(((

[email protected]

# 5 лет, 6 месяцев назад

Темы: 11

Сообщения: 763

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

У меня avoidStruts прописан вначале

-- layout
myLayoutHook =  avoidStruts
                $ gaps [(U,18)]
                $ smartBorders

Haron_Prime
ещё один момент
main = do
xmonad =<< xmobar myConfig

Здесь у меня по-другому:

main = do
    spawn "feh --bg-center /usr/share/backgrounds/003.jpg"
    xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs"
    xmonad $ withUrgencyHook NoUrgencyHook $ defaultConfig { 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 =<< xmobar myConfig у меня не получилось, он требует объявления переменной myConfig и я ее никуда не смог прикрутить
Попробовал даже xmonad =<< xmobar defaultConfig
и панель не перекрывалась, но она стала какая-то дикая - точно искаропки, и вообще весь конфиг ушел в игнор, еле выбрался, даже терминал не мог открыть)))
main = xmonad $ docks def... тоже кучу ошибок выдает
на modm + b тоже повешена команда sendMessage ToggleStruts, но не работает(((

[email protected]	# 5 лет, 6 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Haron_Prime строка 29 import XMonad.Hooks.ManageDocks строка 270 , [manageDocks] Это прописал, но без гапса статусбар перекрывается. Наверное чего-то у меня еще не хватает, я этот конфиг когда с гитхаба взял и запустил - она сразу перекрывалась. Да ладно, не критично, гапс не мешает.

[email protected]

# 5 лет, 6 месяцев назад

Темы: 11

Сообщения: 763

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

Haron_Prime
строка 29
import XMonad.Hooks.ManageDocks
строка 270
, [manageDocks]

Это прописал, но без гапса статусбар перекрывается. Наверное чего-то у меня еще не хватает, я этот конфиг когда с гитхаба взял и запустил - она сразу перекрывалась. Да ладно, не критично, гапс не мешает.

[email protected]	# 5 лет, 6 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	У меня чего-то так не пошло: `Error detected while loading xmonad configuration file: /home/s-adm/.xmonad/xmonad.hs xmonad.hs:82:17: error: parse error on input ‘=’ Perhaps you need a 'let' in a 'do' block? e.g. 'let x = 5' instead of 'x = 5' Please check the file for errors.` Ругается на строку encodeCChar = map fromIntegral . B.unpack

[email protected]	# 5 лет, 6 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Haron_Prime я его тоже не применяю - у меня искаропки нормально работает искаропки - что? xmonad? дык он же искаропки просто пустая каропка)))