Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Error detected while loading xmonad configuration file: /home/days/.xmonad/xmonad.hs
- xmonad.hs:20:21: error:
- • Couldn't match type ‘[Query (Endo WindowSet)]’
- with ‘Query (Endo WindowSet)’
- Expected type: ManageHook
- Actual type: [Query (Endo WindowSet)]
- • In the ‘manageHook’ field of a record
- In the second argument of ‘($)’, namely
- ‘defaultConfig
- {terminal = "urxvt", modMask = mod4Mask, borderWidth = 1,
- workspaces = myWorkspaces,
- layoutHook = avoidStruts
- $ toggleLayouts (noBorders Full) $ smartBorders $ mylayoutHook,
- manageHook = myManageHook, startupHook = setWMName "XMonad"}’
- In a stmt of a 'do' block:
- xmonad
- $ defaultConfig
- {terminal = "urxvt", modMask = mod4Mask, borderWidth = 1,
- workspaces = myWorkspaces,
- layoutHook = avoidStruts
- $ toggleLayouts (noBorders Full) $ smartBorders $ mylayoutHook,
- manageHook = myManageHook, startupHook = setWMName "XMonad"}
- Please check the file for errors.
- my xmonad.hs
- import XMonad
- import qualified XMonad.StackSet as W
- import XMonad.Hooks.ManageHelpers
- import XMonad.Hooks.SetWMName
- import XMonad.Hooks.ManageDocks
- import XMonad.Layout.ToggleLayouts
- import XMonad.Layout.NoBorders
- import Data.Monoid
- import System.Exit
- import System.IO
- import System.Info
- main = do
- xmonad $ defaultConfig
- { terminal = "urxvt"
- , modMask = mod4Mask
- , borderWidth = 1
- , workspaces = myWorkspaces
- , layoutHook = avoidStruts $ toggleLayouts (noBorders Full) $ smartBorders $ mylayoutHook -- Don't put borders on fullFloatWindows
- , manageHook = myManageHook
- , startupHook = setWMName "XMonad"
- }
- myWorkspaces = [ "main", "vid", "irc", "code", "5", "6", "7", "8", "9"]
- myManageHook = composeAll $
- [ [ isFullscreen --> doFullFloat ]
- , [ className =? "mpv" --> doShift "vid" ]
- ]
- mylayoutHook = tiled ||| Full ||| Mirror tiled
- where
- tiled = Tall 1 (3/100) (3/5)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement