blob: c66d6b4b707882dc2cbfbc3f65fbee7039471902 (
plain) (
blame)
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
|
import XMonad
import System.IO
import XMonad.Util.EZConfig
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Layout.Spacing
import XMonad.Layout.ThreeColumns
import XMonad.Layout.Grid
import XMonad.Layout.Magnifier
main :: IO ()
main = do
xmproc <- spawnPipe "xmobar"
xmonad $ docks $ conf
term = "foot"
conf = def
{ terminal = term
, manageHook = manageDocks <+> manageHook def
, layoutHook = avoidStruts $ spacingWithEdge 10 $ layout
}
`removeKeysP`
[ "M-S-<Return>"] -- remove the default terminal binding
`additionalKeysP`
[ ("M-e" , spawn "emacs" ),
("M-b" , spawn "firefox" ),
("M-<Return>" , spawn "foot" )
]
layout = tiled ||| Full ||| threeCol
where
threeCol = magnifiercz' 1.3 $ ThreeColMid nmaster delta ratio
tiled = Tall nmaster delta ratio
nmaster = 1 -- Default number of windows in the master pane
ratio = 1/2 -- Default proportion of screen occupied by master pane
delta = 3/100 -- Percent of screen to increment by when resizing panes
|
