XMonad 0.13

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.

import Foreign.C (CChar)

encodeCChar :: B.ByteString -> [CChar]
encodeCChar = map fromIntegral . B.unpack

import XMonad.Hooks.ManageDocks

, [manageDocks]

manageHook         = manageHook def <+> manageDocks <+> myManageHook <+> manageScratchPad <+> namedScratchpadManageHook mynameScratchpads <+> placeHook (smart (0.5,0.5)) <+> workspaceByPos ,

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

[email protected]
Это прописал, но без гапса статусбар перекрывается.

Then add avoidStruts or avoidStrutsOn layout modifier to your layout to prevent windows from overlapping these windows.

layoutHook = avoidStruts (tall ||| mirror tall ||| ...)
                  where  tall = Tall 1 (3/100) (1/2)

myLayoutHook =  avoidStruts
            $ Tog.toggleLayouts (noBorders Full)
            $ smartBorders
            $ onWorkspace "W"  (Full ||| mouseResizableTile ||| Mirror tiled)
            $ onWorkspace "M"  (mouseResizableTile ||| Mirror tiled ||| Full)
            $ onWorkspace "E"  (Mirror tiled ||| mouseResizableTile ||| Full)
            $ onWorkspace "F"  (Mirror tiled ||| mouseResizableTile ||| Full)
            $ onWorkspace "S"  (Mirror tiled ||| mouseResizableTile ||| Full)
            $ onWorkspace "V"  (Full ||| mouseResizableTile)
            $ onWorkspace "P"  (Mirror tiled ||| mouseResizableTile ||| Full)
            $ onWorkspace "J"  (Full ||| Grid)
            $ onWorkspace "T"  (Full ||| mouseResizableTile)
            $ onWorkspace "X"  (Mirror tiled ||| mouseResizableTile ||| Full)
            $ onWorkspace "XI" (smartSpacing 2 $ withIM 0.17 (ClassName "psi") (GridRatio 1))
            $ onWorkspace "XII"(Mirror tiled ||| mouseResizableTile ||| Full)
            $ tiled ||| Mirror tiled  ||| Full

main = do
    xmonad =<< xmobar myConfig

main = xmonad $ docks def

-- 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 и я ее никуда не смог прикрутить

main = do
xmonad =<< xmobar myConfig
encodeCChar :: B.ByteString -> [CChar]
encodeCChar = map fromIntegral . B.unpack

myConfig = ewmh $ withUrgencyHookC NoUrgencyHook urgencyConfig { suppressWhen = Focused } def {
terminal = myTerminal,
focusFollowsMouse = myFocusFollowsMouse,
borderWidth = myBorderWidth,
modMask = myModMask,
workspaces = myWorkspaces,
normalBorderColor = myNormalBorderColor,
focusedBorderColor = myFocusedBorderColor,
keys = myKeys,
mouseBindings = myMouseBindings,
layoutHook = myLayoutHook,
manageHook = manageHook def <+> myManageHook <+> manageScratchPad <+> namedScratchpadManageHook mynameScratchpads <+> placeHook (smart (0.5,0.5)) <+> workspaceByPos ,
handleEventHook = myEventHook,
logHook = myLogHook >>= xmonadPropLog,
startupHook = myStartupHook
}

[email protected]
xmonad $ withUrgencyHook NoUrgencyHook $ defaultConfig { manageHook = myManageHook <+> manageDocks

xmonad $ xmobar $ withUrgencyHook NoUrgencyHook $ defaultConfig { manageHook = myManageHook <+> manageDocks

xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs"

main = do
    spawn "feh --bg-center /usr/share/backgrounds/003.jpg"
    xmonad $ xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs" $ 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"
            }