blob: 095bc1e0ba53750e753dc8d8402e09d03c6a740b (
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
import XMonad
import qualified XMonad.StackSet as W
import XMonad.ManageHook
import System.Exit
import System.IO
-- data
import Data.Tree
import qualified Data.Map as M
-- actions
import XMonad.Actions.CopyWindow
import XMonad.Actions.CycleWS
import XMonad.Actions.GridSelect
import XMonad.Actions.SwapWorkspaces
import qualified XMonad.Actions.TreeSelect as TS
-- layout modifiers
import XMonad.Layout.Spacing
import XMonad.Layout.WindowNavigation as WN
import XMonad.Layout.Maximize
import XMonad.Layout.Fullscreen
import XMonad.Layout.NoBorders
-- Layouts
import XMonad.Layout.BinarySpacePartition as BSP
import XMonad.Layout.Grid
import XMonad.Layout.Tabbed
-- hooks
import XMonad.Hooks.SetWMName
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.DynamicLog
-- DynamicLog replacement(s)
-- import XMonad.Hooks.StatusBar
-- import XMonad.Hooks.StatusBar.PP
-- utilities
import XMonad.Util.Run
import XMonad.Util.SpawnOnce
import XMonad.Util.EZConfig
import XMonad.Util.Cursor
import XMonad.Util.NamedScratchpad
-- myLibs
import Keybindings
import Defaults
import Scratchpads
import Hooks
main :: IO ()
main = do
-- lemonBar <- spawnPipe myLemonbar
xmonad $ ewmh $ docks $ fullscreenSupport def {
focusFollowsMouse = True
, borderWidth = 2
, modMask = myModMask
, workspaces = myWorkspaces
, normalBorderColor = "#130F23"
, focusedBorderColor = "#c44cf2"
, layoutHook = myLayoutHook
, startupHook = myStartupHook
, manageHook = myManageHook
-- , logHook = dynamicLogWithPP myLemonbarPP { ppOutput = \x -> hPutStrLn lemonBar x}
}
|
