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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
import Control.Monad
import Data.List
import System.Exit
import XMonad
import XMonad.Config.Desktop (desktopConfig)
import XMonad.ManageHook (composeAll, doFloat, className, (-->), (=?), (<+>))
-- Utilities
import XMonad.Util.Dmenu (menuArgs)
import XMonad.Util.EZConfig (additionalKeys, additionalKeysP)
import XMonad.Util.SpawnOnce (spawnOnOnce)
-- Layouts
import XMonad.Layout.NoBorders (noBorders)
import XMonad.Layout.Reflect (reflectHoriz)
import XMonad.Layout.Spacing (Border (..), spacingRaw)
import XMonad.Layout.Grid (Grid (..))
import XMonad.Layout.ThreeColumns (ThreeCol (ThreeColMid))
import XMonad.Layout.CenteredIfSingle (centeredIfSingle)
-- Hooks
import XMonad.Hooks.InsertPosition (Focus (..), Position (..),
insertPosition)
import XMonad.Hooks.WindowSwallowing
-- TODO: no weird screen layout
-- put 2 window in master next to each other and the rest in a stack as usual
import XMonad.Layout.LayoutScreens
import XMonad.Layout.TwoPane
myTerminal = "alacritty"
-- xmonad :: XConfig -> IO ()
-- https://hackage.haskell.org/package/xmonad-0.15/docs/XMonad-Core.html#t:XConfig
main = xmonad $ desktopConfig
{ normalBorderColor = "#1c1c1c"
, focusedBorderColor = "#8a8a8a"
, terminal = myTerminal
, layoutHook = layoutHook'
, manageHook = manageHook'
, modMask = mod4Mask -- mod key to super
, borderWidth = 2
, focusFollowsMouse = False -- don't change window based on mouse position (need to click)
, workspaces = ["code", "web"] ++ map show [3..9]
-- , handleEventHook = handleEventHook'
-- , startupHook = startupHook'
} `additionalKeysP` keys'
layoutHook' = spacing' 4 $ centeredIfSingle (1/2) (95/100) (ThreeColMid 1 (3/100) (1/2))
||| reflectHoriz tiledVerticalBigMaster -- main monitor is slighly to the left
||| tiledVerticalBigMaster -- bigger master for code and smaller slave for compiling
||| noBorders Full -- disable borders for fullscreen layout
||| Mirror tiledHorizontalEven -- 50/50 horizontal split
||| Grid
-- ||| layoutScreens 2 (TwoPane 0.5 0.5)
where tiledVerticalBigMaster = Tall 1 (3 / 100) (3 / 5)
tiledHorizontalEven = Tall 1 (3 / 100) (1 / 2)
spacing' x = spacingRaw True (Border x x x x) False (Border x x x x) True
manageHook' = composeAll
[ className =? "Anki" --> doFloat
, className =? "Steam" --> doFloat
, className =? "Gimp" --> doFloat
]
<+> insertPosition End Newer -- insert new window at the end of the current layout
keys' = [ ("<XF86AudioLowerVolume>", spawn "pulseaudio-ctl down")
, ("<XF86AudioRaiseVolume>", spawn "pulseaudio-ctl up")
, ("<XF86AudioMute>", spawn "pulseaudio-ctl mute")
, ("M--", spawn "pulseaudio-ctl down")
, ("M-=", spawn "pulseaudio-ctl up")
-- , ("M-g", layoutSplitScreen 2 (TwoPane 0.5 0.5))
-- , ("M-f", rescreen)
, ("<XF86MonBrightnessUp>", spawn "backlight-ctl up")
, ("<XF86MonBrightnessDown>", spawn "backlight-ctl down")
, ("<XF86ScreenSaver>", spawn "slock")
, ("<XF86TouchpadToggle>", spawn "touchpad-toggle")
, ("M-o", spawn "project-open")
, ("M-p", spawn "rofi -show run")
, ("M-s", spawn "rofi -show ssh")
, ("M-w", spawn "rofi -show window")
, ("M-S-d", spawn "notify-send -i x-office-calendar \"$(date +\"%H:%M %A %d/%m/%Y %B\")\"")
, ("M-S-b", spawn $ "notify-send --hint=int:transient:1 " ++
"--hint=int:value:\"$(cat /sys/class/power_supply/BAT0/capacity)\" " ++
"\"Battery: $(cat /sys/class/power_supply/BAT0/status)\"")
, ("M-q", spawn "notify-send 'Restarting xmonad'" >> spawn restartCmd)
, ("M-S-q", confirm "Are you sure you want to shutdown?" $ io exitSuccess)
]
-- startupHook' :: X ()
-- startupHook' = do
-- spawnOnOnce "code" myTerminal
-- spawnOnOnce "web" "qutebrowser"
confirm :: String -> X () -> X ()
confirm prompt f = do
result <- menuArgs "rofi" ["-dmenu", "-p", prompt] ["yes", "no"]
when (result == "yes") f
restartCmd :: String
restartCmd = intercalate "; " [ "if type xmonad"
, "then xmonad --recompile && xmonad --restart"
, "else xmessage xmonad not in \\$PATH: \"$PATH\""
, "fi"
]
-- handleEventHook' = swallowEventHook (className =? "Alacritty" <||> className =? "Termite") (return True)
|
