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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
{-# LANGUAGE NoMonomorphismRestriction #-}
{-# OPTIONS -fno-warn-missing-signatures #-}
import qualified Data.Map as M
import qualified DBus as D
import qualified DBus.Client as D
import XMonad
import qualified XMonad.Actions.FlexibleResize as FlexR
import XMonad.Config.Desktop
import XMonad.Hooks.SetWMName
import XMonad.Hooks.UrgencyHook
import qualified XMonad.StackSet as W
import qualified XMonad.Util.EZConfig as EZ
-- 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.TopicSpace as Local
import qualified XMonad.Local.XConfig as Local
-- Mouse bindings: default actions bound to mouse events
myMouseBindings :: XConfig Layout
-> M.Map (ButtonMask, Button) (Window -> X())
myMouseBindings (XConfig {XMonad.modMask = mm}) = M.fromList
-- mod-button1, Set the window to floating mode and move by dragging
[ ((mm, button1), \w -> focus w >> mouseMoveWindow w
>> windows W.shiftMaster)
-- mod-button2, Raise the window to the top of the stack
, ((mm, button2), windows . (W.shiftMaster .) . W.focusWindow)
-- mod-button3, Set the window to floating mode and resize by dragging
, ((mm, button3), \w -> focus w >> FlexR.mouseResizeWindow w)
-- you may also bind events to the mouse scroll wheel (button4 and button5)
, ((mm, button4), const $ windows W.swapDown)
, ((mm, button5), const $ windows W.swapUp)
]
myConfig dbus = 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 dbus
, handleEventHook = Local.eventHook
, manageHook = Local.manageHook
, startupHook = myStartupHook
, mouseBindings = myMouseBindings
}
where
mc = myConfig dbus
myStartupHook = do
return () >> EZ.checkKeymap mc (Local.emacsKeys mc)
startupHook Local.xConfig
-- adjustEventInput
setWMName "LG3D"
getWellKnownName :: D.Client -> IO ()
getWellKnownName dbus = do
D.requestName dbus (D.busName_ "org.xmonad.Log")
[D.nameAllowReplacement, D.nameReplaceExisting, D.nameDoNotQueue]
>> return ()
main :: IO ()
main = do
dbus <- D.connectSession
getWellKnownName dbus
xmonad $ withUrgencyHook NoUrgencyHook $ myConfig dbus
|
