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 Control.Monad
import Data.List
import System.Exit
import XMonad
import XMonad.Config.Desktop
-- Utilities
import XMonad.Util.EZConfig (additionalKeysP, additionalKeys)
import XMonad.Util.SpawnOnce
import XMonad.Util.Dmenu
-- Layouts
import XMonad.Layout.NoBorders
-- Hooks
import XMonad.Hooks.InsertPosition
-- xmonad :: XConfig -> IO ()
-- https://hackage.haskell.org/package/xmonad-0.15/docs/XMonad-Core.html#t:XConfig
main = xmonad $ desktopConfig
{ normalBorderColor = "#292d3e"
, focusedBorderColor = "#bbc5ff"
, terminal = "st"
, layoutHook = myLayouts
, manageHook = myManageHook
, modMask = mod4Mask -- mod key to super
, borderWidth = 1
, focusFollowsMouse = False -- don't change window based on mouse position (need to click)
, workspaces = ["code", "compile", "web"] ++ map show [4..9]
} `additionalKeysP` myKeys
myLayouts = tiledBigMaster -- bigger master for code and smaller slave for compiling
||| Mirror tiledEven -- 50/50 horizontal split
||| noBorders Full -- disable borders for fullscreen layout
where tiledBigMaster = Tall 1 (3 / 100) (3 / 5)
tiledEven = Tall 1 (3 / 100) (1 / 2)
myManageHook = insertPosition End Newer -- insert new window at the end of the current layout
myKeys = [ ("<XF86AudioRaiseVolume>", spawn "~/bin/volume-ctl up")
, ("<XF86AudioLowerVolume>", spawn "~/bin/volume-ctl down")
, ("<XF86AudioMute>", spawn "~/bin/volume-ctl mute")
, ("<XF86MonBrightnessUp>", spawn "~/bin/backlight-ctl up")
, ("<XF86MonBrightnessDown>", spawn "~/bin/backlight-ctl down")
, ("<XF86ScreenSaver>", spawn "slock")
, ("<XF86TouchpadToggle>", spawn "~/bin/touchpad-toggle")
, ("M-o", spawn "~/bin/project-open")
, ("M-m", spawn "st -e mocp")
, ("M-S-d", spawn "notify-send \"$(date +\"%H:%M %A %d/%m/%Y %B\")\"")
, ("M-S-b", spawn "notify-send \"battery: $(cat /sys/class/power_supply/BAT0/capacity)\"")
, ("M-q", spawn "notify-send Restart" >> spawn restartCmd)
, ("M-S-q", confirm "Are you sure you want to shutdown?" $ io (exitWith ExitSuccess))
]
confirm :: String -> X () -> X ()
confirm prompt f = do
result <- menuArgs "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"
]
|
