mirror of
https://git.sr.ht/~coasteen/dotfiles
synced 2026-02-04 06:03:45 +01:00
51 lines
1.3 KiB
Haskell
51 lines
1.3 KiB
Haskell
import XMonad
|
|
import XMonad.Util.EZConfig (additionalKeysP)
|
|
import XMonad.Util.Run
|
|
import XMonad.Hooks.DynamicLog
|
|
import XMonad.Hooks.StatusBar
|
|
import XMonad.Hooks.ManageDocks
|
|
import XMonad.Layout.Spacing
|
|
import System.IO
|
|
|
|
keybinds =
|
|
[
|
|
("M-<Return>", spawn "alacritty"),
|
|
("M-r", spawn "rofi -show drun -config ~/.config/rofi/gruvbox.rasi"),
|
|
("M-S-s", spawn "flameshot gui"),
|
|
("M-s", kill)
|
|
]
|
|
|
|
cLayoutHook = avoidStruts $ spacing 5 $ layoutHook def
|
|
|
|
cXMobarPP :: PP
|
|
cXMobarPP = def
|
|
{
|
|
ppCurrent = xmobarColor "#83A598" "" ,
|
|
ppHidden = xmobarColor "#EBDBB2" "",
|
|
ppHiddenNoWindows = xmobarColor "#EBDBB2" "",
|
|
ppTitle = xmobarColor "#EBDBB2" "" . shorten 60 . wrap "[" "]",
|
|
ppLayout = \layout -> ""
|
|
}
|
|
|
|
cXStatusBar = statusBarProp "xmobar" (pure cXMobarPP)
|
|
|
|
logHook = dynamicLogWithPP $ def
|
|
{ ppOutput = \s -> return (),
|
|
ppCurrent = id,
|
|
ppVisible = id,
|
|
ppHidden = id,
|
|
ppUrgent = id,
|
|
ppTitle = id
|
|
}
|
|
|
|
main = xmonad . withSB (statusBarProp "xmobar -f 'xft:JetBrainsMono Nerd Font-14'" (pure cXMobarPP)) $ withEasySB cXStatusBar defToggleStrutsKey $ def
|
|
{
|
|
modMask = mod4Mask,
|
|
terminal = "alacritty",
|
|
borderWidth = 2,
|
|
normalBorderColor = "#282828",
|
|
focusedBorderColor = "#383838",
|
|
workspaces = map show [1..9],
|
|
layoutHook = cLayoutHook
|
|
}
|
|
`additionalKeysP` keybinds
|