init
This commit is contained in:
Executable
+51
@@ -0,0 +1,51 @@
|
||||
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
|
||||
Reference in New Issue
Block a user