XMonad 0.13

Haron_Prime	# 7 лет, 9 месяцев назад
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	s-ugra@ya.ru main = do spawn "feh --bg-center /usr/share/backgrounds/003.jpg" xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs" xmonad =<< xmobar def { xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs" - это лишнее, так у Вас xmobar дважды запускается Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket

Haron_Prime	# 7 лет, 9 месяцев назад (отредактировано 7 лет, 9 месяцев назад)
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	и вообще, я бы чуток поменял пррописал бы так main = do spawn "feh --bg-center /usr/share/backgrounds/003.jpg" xmonad =<< xmobar myconfig myconfig = ewmh $ withUrgencyHookC NoUrgencyHook urgencyConfig 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 ewmhDesktopsStartup >> setWMName "LG3D" setDefaultCursor xC_left_ptr spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe" } примерно хотя вот это `ewmhDesktopsStartup >> setWMName "LG3D" setDefaultCursor xC_left_ptr spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe"` я бы вообще оттуда убрал ))) ну не место ему там вообще, конфиг какой-то странный - всё вперемежку, плохо структурирован, на мой взгляд Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket

Haron_Prime

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

Темы: 28

Сообщения: 2109

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

и вообще, я бы чуток поменял
пррописал бы так

main = do
    spawn "feh --bg-center /usr/share/backgrounds/003.jpg"
    xmonad =<< xmobar myconfig
myconfig =  ewmh $ withUrgencyHookC  NoUrgencyHook urgencyConfig  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
            ewmhDesktopsStartup >> setWMName "LG3D"
            setDefaultCursor xC_left_ptr
            spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe"
}

примерно
хотя вот это

            ewmhDesktopsStartup >> setWMName "LG3D"
            setDefaultCursor xC_left_ptr
            spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe"

я бы вообще оттуда убрал )))
ну не место ему там
вообще, конфиг какой-то странный - всё вперемежку, плохо структурирован, на мой взгляд

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

s-ugra@ya.ru	# 7 лет, 9 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Haron_Prime киньте в хомяк симлинк на свой конфиг xmobar и обзовите его .xmobarrc УРА!!! Заработало! Воркспейсы выводятся. xmonad $ withUrgencyHook NoUrgencyHook оказался отрезанным, но я не знаю для чего он нужен... Спасибо огромное за помощь)))

Haron_Prime	# 7 лет, 9 месяцев назад (отредактировано 7 лет, 9 месяцев назад)
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	s-ugra@ya.ru Заработало ну вот уже что-то ))) withUrgencyHook NoUrgencyHook оказался отрезанным я выше написал, как его можно прикрутить ну и ещё я бы посоветовал немного "прилизать" этот блок кода в частности startupHook я бы сделал вот так `startupHook = myStartupHook` а выше main = do прописал бы содержимое myStartupHook `myStartupHook = setWMName "LG3D" <+> setDefaultCursor xC_left_ptr <+> do spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe"` примерно так впрочем, это уже косметика хотя лично для меня это важно - люблю, когда всё строго структурировано, потом разбираться легче Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket

Haron_Prime

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

Темы: 28

Сообщения: 2109

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

s-ugra@ya.ru
Заработало

ну вот уже что-то )))

withUrgencyHook NoUrgencyHook оказался отрезанным

я выше написал, как его можно прикрутить
ну и ещё я бы посоветовал немного "прилизать" этот блок кода
в частности startupHook
я бы сделал вот так

startupHook        = myStartupHook

а выше main = do прописал бы содержимое myStartupHook

myStartupHook = setWMName "LG3D" <+> setDefaultCursor xC_left_ptr <+> do  spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe"

примерно так
впрочем, это уже косметика
хотя лично для меня это важно - люблю, когда всё строго структурировано, потом разбираться легче

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

s-ugra@ya.ru	# 7 лет, 9 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Haron_Prime и вообще, я бы чуток поменял пррописал бы так так попробовал main = do spawn "feh --bg-center /usr/share/backgrounds/003.jpg" xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs" xmonad =<< xmobar myconfig myconfig = ewmh $ withUrgencyHookC NoUrgencyHook urgencyConfig 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 ewmhDesktopsStartup >> setWMName "LG3D" setDefaultCursor xC_left_ptr spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe" } не компилируется: xmonad.hs:60:35: error: Variable not in scope: xmproc :: Handle строка 60 - это , logHook = myLogHook xmproc

s-ugra@ya.ru

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

Темы: 11

Сообщения: 763

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

Haron_Prime
и вообще, я бы чуток поменял
пррописал бы так

так попробовал

main = do
    spawn "feh --bg-center /usr/share/backgrounds/003.jpg"
    xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs"
    xmonad =<< xmobar myconfig
myconfig =  ewmh $ withUrgencyHookC  NoUrgencyHook urgencyConfig  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
            ewmhDesktopsStartup >> setWMName "LG3D"
            setDefaultCursor xC_left_ptr
            spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe"
}

не компилируется:
xmonad.hs:60:35: error: Variable not in scope: xmproc :: Handle

строка 60 - это , logHook = myLogHook xmproc

Haron_Prime	# 7 лет, 9 месяцев назад (отредактировано 7 лет, 9 месяцев назад)
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	s-ugra@ya.ru строка 60 - это , logHook = myLogHook xmproc попробуйте удалить оттуда xmproc чтоб осталось `logHook = myLogHook` и прописать его в myLogHook, если без него никак myLogHook должен находиться где-то выше main do Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket

Haron_Prime

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

Темы: 28

Сообщения: 2109

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

s-ugra@ya.ru
строка 60 - это , logHook = myLogHook xmproc

попробуйте удалить оттуда xmproc чтоб осталось

logHook = myLogHook

и прописать его в myLogHook, если без него никак
myLogHook должен находиться где-то выше main do

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

Haron_Prime	# 7 лет, 9 месяцев назад (отредактировано 7 лет, 9 месяцев назад)
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	у меня так `-- Status bars and logging. myLogHook = do currentWorkspaceOnTop dynamicLogString $ xmobarPP { ppCurrent = xmobarColor "#9fdfff" "" , ppUrgent = xmobarColor "#ff6500" "" , ppTitle = (\str -> "") }` что прописано там у Вас - могу только гадать просто у меня вывод в xmobar организован совершенно иначе, с помощью xmonadPropLog `logHook = myLogHook >>= xmonadPropLog,` Так что Вам придётся самому разбираться, как там это дело выводится и как правильно его прикрутить Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket

Haron_Prime

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

Темы: 28

Сообщения: 2109

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

у меня так

-- Status bars and logging.
myLogHook = do
    currentWorkspaceOnTop
    dynamicLogString $ xmobarPP {
          ppCurrent         = xmobarColor "#9fdfff" ""
        , ppUrgent          = xmobarColor "#ff6500" ""
        , ppTitle           = (\str -> "")
        }

что прописано там у Вас - могу только гадать
просто у меня вывод в xmobar организован совершенно иначе, с помощью xmonadPropLog

logHook            = myLogHook >>= xmonadPropLog,

Так что Вам придётся самому разбираться, как там это дело выводится и как правильно его прикрутить

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

s-ugra@ya.ru	# 7 лет, 9 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Он у меня был задан ниже, перенес выше main do, сделал вот так: -- logHook myLogHook :: Handle -> X () myLogHook h = dynamicLogWithPP $ myPP { ppOutput = hPutStrLn h , ppSort = fmap (.scratchpadFilterOutWorkspace) getSortByTag } main = do spawn "feh --bg-center /usr/share/backgrounds/003.jpg" xmonad =<< xmobar myconfig myconfig = ewmh $ withUrgencyHookC NoUrgencyHook urgencyConfig def { manageHook = myManageHook <+> manageDocks , modMask = mod4Mask , layoutHook = myLayoutHook , logHook = myLogHook , terminal = myTerminal , workspaces = myWorkspaces , borderWidth = myBorderWidth , normalBorderColor = myNormalBorderColor , focusedBorderColor = myFocusedBorderColor , keys = myKeys , startupHook = do ewmhDesktopsStartup >> setWMName "LG3D" setDefaultCursor xC_left_ptr spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe" } Не хочет, сабака: xmonad.hs:66:25: error: • Couldn't match expected type ‘X ()’ with actual type ‘Handle -> X ()’ • Probable cause: ‘myLogHook’ is applied to too few arguments In the ‘logHook’ field of a record In the third argument of ‘withUrgencyHookC’, namely ‘def {manageHook = myManageHook <+> manageDocks, modMask = mod4Mask, layoutHook = myLayoutHook, logHook = myLogHook, terminal = myTerminal, workspaces = myWorkspaces, borderWidth = myBorderWidth, normalBorderColor = myNormalBorderColor, focusedBorderColor = myFocusedBorderColor, keys = myKeys, startupHook = do { ewmhDesktopsStartup >> setWMName "LG3D"; setDefaultCursor xC_left_ptr; spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe" }}’ In the second argument of ‘($)’, namely ‘withUrgencyHookC NoUrgencyHook urgencyConfig (def {manageHook = myManageHook <+> manageDocks, modMask = mod4Mask, layoutHook = myLayoutHook, logHook = myLogHook, terminal = myTerminal, workspaces = myWorkspaces, borderWidth = myBorderWidth, normalBorderColor = myNormalBorderColor, focusedBorderColor = myFocusedBorderColor, keys = myKeys, startupHook = do { ewmhDesktopsStartup >> setWMName "LG3D"; setDefaultCursor xC_left_ptr; spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe" }})’ Please check the file for errors. 66 - это все та же , logHook = myLogHook

s-ugra@ya.ru

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

Темы: 11

Сообщения: 763

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

Он у меня был задан ниже, перенес выше main do, сделал вот так:

-- logHook
myLogHook :: Handle -> X ()
myLogHook h = dynamicLogWithPP $ myPP { ppOutput = hPutStrLn h
    , ppSort = fmap (.scratchpadFilterOutWorkspace) getSortByTag
    }

main = do
    spawn "feh --bg-center /usr/share/backgrounds/003.jpg"
    xmonad =<< xmobar myconfig
myconfig =  ewmh $ withUrgencyHookC  NoUrgencyHook urgencyConfig  def {
            manageHook = myManageHook <+> manageDocks
            , modMask = mod4Mask
            , layoutHook = myLayoutHook
            , logHook = myLogHook
            , terminal = myTerminal
            , workspaces = myWorkspaces
            , borderWidth = myBorderWidth
            , normalBorderColor = myNormalBorderColor
            , focusedBorderColor = myFocusedBorderColor
            , keys = myKeys
            , startupHook = do
            ewmhDesktopsStartup >> setWMName "LG3D"
            setDefaultCursor xC_left_ptr
            spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe"
}

Не хочет, сабака:

xmonad.hs:66:25: error:
    • Couldn't match expected type ‘X ()’
                  with actual type ‘Handle -> X ()’
    • Probable cause: ‘myLogHook’ is applied to too few arguments
      In the ‘logHook’ field of a record
      In the third argument of ‘withUrgencyHookC’, namely
        ‘def
           {manageHook = myManageHook <+> manageDocks, modMask = mod4Mask,
            layoutHook = myLayoutHook, logHook = myLogHook,
            terminal = myTerminal, workspaces = myWorkspaces,
            borderWidth = myBorderWidth,
            normalBorderColor = myNormalBorderColor,
            focusedBorderColor = myFocusedBorderColor, keys = myKeys,
            startupHook = do { ewmhDesktopsStartup >> setWMName "LG3D";
                               setDefaultCursor xC_left_ptr;
                               spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe" }}’
      In the second argument of ‘($)’, namely
        ‘withUrgencyHookC
           NoUrgencyHook
           urgencyConfig
           (def
              {manageHook = myManageHook <+> manageDocks, modMask = mod4Mask,
               layoutHook = myLayoutHook, logHook = myLogHook,
               terminal = myTerminal, workspaces = myWorkspaces,
               borderWidth = myBorderWidth,
               normalBorderColor = myNormalBorderColor,
               focusedBorderColor = myFocusedBorderColor, keys = myKeys,
               startupHook = do { ewmhDesktopsStartup >> setWMName "LG3D";
                                  setDefaultCursor xC_left_ptr;
                                  spawn "~/.xmonad/getvolume.sh >> /tmp/.volume-pipe" }})’

Please check the file for errors.

66 - это все та же , logHook = myLogHook

s-ugra@ya.ru	# 7 лет, 9 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Кстати, myLogHook что внизу что вверху ведет себя одинаково

Haron_Prime	# 7 лет, 9 месяцев назад
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	`myLogHook :: Handle -> X () myLogHook h = dynamicLogWithPP $ myPP { ppOutput = hPutStrLn h , ppSort = fmap (.scratchpadFilterOutWorkspace) getSortByTag }` ==>> `myLogHook = dynamicLogWithPP $ myPP { ppOutput = hPutStrLn h , ppSort = fmap (.scratchpadFilterOutWorkspace) getSortByTag }` ?? Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket

Haron_Prime

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

Темы: 28

Сообщения: 2109

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

myLogHook :: Handle -> X ()
myLogHook h = dynamicLogWithPP $ myPP { ppOutput = hPutStrLn h
    , ppSort = fmap (.scratchpadFilterOutWorkspace) getSortByTag
    }

==>>

myLogHook  = dynamicLogWithPP $ myPP { ppOutput = hPutStrLn h
    , ppSort = fmap (.scratchpadFilterOutWorkspace) getSortByTag
    }

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