initHEADmaster

1 files changed, 51 insertions, 0 deletions

diff --git a/config/xmonad/xmonad.hs b/config/xmonad/xmonad.hs
new file mode 100755
index 0000000..efec589
--- /dev/null
+++ b/config/xmonad/xmonad.hs
@@ -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