xmonad.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

import XMonad

import XMonad.Hooks.EwmhDesktops (ewmhFullscreen, ewmh)
import XMonad.Hooks.StatusBar (defToggleStrutsKey, withEasySB)

import XMonad.Config.LaNinpre
    (LayoutNames(..)
    , laNinpreConfig
    , statusBarConfig
    )

wsMin = [ "<s>", "<m>", "<p>", "<l>", "<o>", "<t>", "<u>", "<i>", "<a>" ]

layoutNames = LayoutNames "l" "s" "u"

configMin = laNinpreConfig wsMin layoutNames

main = xmonad
     . ewmhFullscreen
     . ewmh
     . withEasySB statusBarConfig defToggleStrutsKey
     $ configMin