XMonad 0.13

-- Базовые модули
import XMonad hiding ( (|||) )  -- Главный модуль
import Data.List
import Data.Ratio ((%))
import Foreign.C (CChar)
import Graphics.X11.Xlib
import Graphics.X11.ExtraTypes.XF86
import System.Exit
import System.IO
import qualified Data.Map        as M
import qualified Data.ByteString as B
import qualified XMonad.StackSet as W -- Управление клиентами (окнами)
-- Хуки
import XMonad.Hooks.DynamicLog -- Хук для обновления информации в баре
import XMonad.Hooks.ManageDocks -- Автоматическое управление программами типа док (баром)
import XMonad.Hooks.ManageHelpers -- Доп.функции ManageHooks
import XMonad.Hooks.UrgencyHook hiding (Never)
import XMonad.Hooks.EwmhDesktops
-- Утили
import XMonad.Util.Run(spawnPipe) -- Для запуска внешний приложений/скриптов
import XMonad.Util.EZConfig(additionalKeys) -- Улучшение конфигурации, использование доп.хоткеев
-- Пользовательские настройки
myTerm = "urxvt"
myBorderColor = "#000000"
myBorderColorFocused = "#8E8E8E"
myModMask = mod1Mask

myKeys [email protected](XConfig {XMonad.modMask = modm}) = M.fromList $
    [
      ((modm .|. shiftMask, xK_q), kill)
    , ((modm, xK_Right), windows W.focusDown)
    , ((modm, xK_Left),  windows W.focusUp)
    , ((modm, xK_Down),  windows W.focusDown)
    , ((modm, xK_Up),    windows W.focusUp)
    , ((0 .|. controlMask, xK_Print), spawn "scrot -u -q 85 home/seggoy/Documents/screens/%m-%d-%Y-%H-%M-%S-focused.png")
    ]
    ++
    [((m .|. modm, k), windows $ f i)
        | (i, k) <- zip (XMonad.workspaces conf) [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0, xK_minus, xK_equal]
        , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]

    ++
    [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
        | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
        , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]

-- Mouse bindings: default actions bound to mouse events
myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList $
    [ ((modm, button1), (\w -> focus w >> mouseMoveWindow w
                                       >> windows W.shiftMaster))
    , ((modm, button2), (\w -> focus w >> windows W.shiftMaster))
    , ((modm, button3), (\w -> focus w >> mouseResizeWindow w
                                       >> windows W.shiftMaster))
    ]

myManageHook = composeAll . concat $
-- Тут должны быть правила для размещения окон
    [

      [isDialog       --> doCenterFloat]

    , [isFullscreen   --> doFullFloat]

    , [transience']

    , [manageDocks]
    ]

myLayoutHook =  avoidStruts
                $ tail ||| Mirror tail ||| Full
                  where
                    tail = Tall nmaster delta ratio
                    nmaster = 1
                    delta = 3/100
                    ratio = 1/2

main = do -- главная функция
    xmproc <- spawnPipe "/usr/bin/xmobar ~/.xmobarrc" -- Подключение XMobar
    xmonad $ ewmh $ withUrgencyHookC NoUrgencyHook urgencyConfig def
        {
             terminal = myTerm
            , borderWidth = 1
            , modMask = myModMask
            , keys = myKeys
            , normalBorderColor = myBorderColor
            , focusedBorderColor = myBorderColorFocused
            , manageHook =  manageHook def <+> myManageHook
            , layoutHook = myLayoutHook
            , logHook = dynamicLogWithPP def {
                                               ppOutput = System.IO.hPutStrLn xmproc
                                             , ppTitle = xmobarColor "green" "" . shorten 50
                                             }
        }

xmonad --recompile 

import XMonad.Layout.LayoutCombinators ((|||)

Haron_Prime
если не трудно, выполните в терминале

xmonad --recompile 

и выложите выхлоп куда-нибудь типа pastebin
На скрине не видно, на какую строку ругается в самом начале. Скорее всего дело именно в ней. Все остальные - это типа цепной реакции

P.S>
скорее всего нужно

import XMonad.Layout.LayoutCombinators ((|||)

)
но на 100% не уверен - голова просто уже не варит, спать хочу

Seggoy
Я то не против, только как я понимаю, это надо выполнить, когда этот конфиг активен

Haron_Prime

Seggoy
Я то не против, только как я понимаю, это надо выполнить, когда этот конфиг активен

не обязательно

Haron_Prime
А шо таки делать?

Error detected while loading xmonad configuration file: /home/seggoy/.xmonad/xmonad.hs

xmonad.hs:70:24: error:
    • Variable not in scope:
        (|||)
          :: XMonad.Layout.LayoutModifier.ModifiedLayout AvoidStruts Tall a2
             -> Mirror Tall a1 -> t0
    • Perhaps you meant ‘||’ (imported from Prelude)
      Perhaps you want to remove ‘|||’ from the explicit hiding list
      in the import of ‘XMonad’ (xmonad.hs:2:1-30).

xmonad.hs:70:40: error:
    • Variable not in scope: (|||) :: t0 -> Full a0 -> t
    • Perhaps you meant ‘||’ (imported from Prelude)
      Perhaps you want to remove ‘|||’ from the explicit hiding list
      in the import of ‘XMonad’ (xmonad.hs:2:1-30).

xmonad.hs:79:5: error:
    • Ambiguous type variable ‘l0’ arising from a use of ‘xmonad’
      prevents the constraint ‘(LayoutClass
                                  l0 Window)’ from being solved.
      Probable fix: use a type annotation to specify what ‘l0’ should be.
      These potential instances exist:
        instance (LayoutClass l a, LayoutClass r a) =>
                 LayoutClass (Choose l r) a
          -- Defined in ‘XMonad.Layout’
        instance LayoutClass Full a -- Defined in ‘XMonad.Layout’
        instance LayoutClass l a => LayoutClass (Mirror l) a
          -- Defined in ‘XMonad.Layout’
        ...plus one other
        ...plus two instances involving out-of-scope types
        (use -fprint-potential-instances to see them all)
    • In a stmt of a 'do' block:
        xmonad
        $ ewmh
          $ withUrgencyHookC
              NoUrgencyHook
              urgencyConfig
              (def
                 {terminal = myTerm, borderWidth = 1, modMask = myModMask,
                  keys = myKeys, normalBorderColor = myBorderColor,
                  focusedBorderColor = myBorderColorFocused,
                  manageHook = manageHook def <+> myManageHook,
                  layoutHook = myLayoutHook,
                  logHook = dynamicLogWithPP
                              (def
                                 {ppOutput = hPutStrLn xmproc,
                                  ppTitle = xmobarColor "green" "" . shorten 50})})
      In the expression:
        do { xmproc <- spawnPipe "/usr/bin/xmobar ~/.xmobarrc";
             xmonad
             $ ewmh
               $ withUrgencyHookC
                   NoUrgencyHook
                   urgencyConfig
                   (def
                      {terminal = myTerm, borderWidth = 1, modMask = myModMask,
                       keys = myKeys, normalBorderColor = myBorderColor,
                       focusedBorderColor = myBorderColorFocused,
                       manageHook = manageHook def <+> myManageHook,
                       layoutHook = myLayoutHook,
                       logHook = dynamicLogWithPP
                                   (def
                                      {ppOutput = hPutStrLn xmproc,
                                       ppTitle = xmobarColor "green" "" . shorten 50})}) }
      In an equation for ‘main’:
          main
            = do { xmproc <- spawnPipe "/usr/bin/xmobar ~/.xmobarrc";
                   xmonad
                   $ ewmh
                     $ withUrgencyHookC
                         NoUrgencyHook
                         urgencyConfig
                         (def
                            {terminal = myTerm, borderWidth = 1, modMask = myModMask,
                             keys = myKeys, normalBorderColor = myBorderColor,
                             focusedBorderColor = myBorderColorFocused,
                             manageHook = manageHook def <+> myManageHook,
                             layoutHook = myLayoutHook,
                             logHook = dynamicLogWithPP
                                         (def
                                            {ppOutput = hPutStrLn xmproc,
                                             ppTitle = xmobarColor "green" "" . shorten 50})}) }

Please check the file for errors.

xmonad.hs:70:24: error:
    • Variable not in scope:
        (|||)

import XMonad.Layout.LayoutCombinators ((|||)

xmonad.hs:3:1: error:
    parse error (possibly incorrect indentation or mismatched brackets)

import Data.List