blob: abe18a18b20f9de19c6fd5eb5d7dbcb049170fab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
{-# LANGUAGE NoMonomorphismRestriction #-}
{-# OPTIONS -fno-warn-missing-signatures #-}
import XMonad
import XMonad.Actions.UpdateFocus
import XMonad.Config.Desktop
import XMonad.Hooks.SetWMName
import XMonad.Hooks.UrgencyHook
import XMonad.Util.Run (spawnPipe)
-- local modules **************************************************************
import qualified XMonad.Local.Config as Local
import qualified XMonad.Local.EventHook as Local
import qualified XMonad.Local.LogHook as Local
import qualified XMonad.Local.Keys as Local
import qualified XMonad.Local.Layout as Local
import qualified XMonad.Local.ManageHook as Local
import qualified XMonad.Local.Mouse as Local
import qualified XMonad.Local.TopicSpace as Local
import qualified XMonad.Local.XConfig as Local
-- main module ****************************************************************
myConfig h = Local.xConfig
{ modMask = Local.modMask
, borderWidth = 1
, normalBorderColor = "#FFD12B"
, focusedBorderColor = "#FF511F"
, terminal = Local.terminal
, workspaces = Local.workspaces
, layoutHook = desktopLayoutModifiers Local.layoutHook
, keys = Local.keyBindings
, logHook = Local.logHook h
, handleEventHook = Local.eventHook
, manageHook = Local.manageHook
, startupHook = myStartupHook
, mouseBindings = Local.mouseBindings
}
where
myStartupHook = do
startupHook Local.xConfig
adjustEventInput
setWMName "LG3D"
main :: IO ()
main = do
h <- spawnPipe "xmobar"
xmonad $ withUrgencyHook NoUrgencyHook $ myConfig h
|
