From 03e6c03b70c951b4d31902943eb137da096d99cd Mon Sep 17 00:00:00 2001
From: ramazanemreosmanoglu <ramazanemre@protonmail.com>
Date: Tue, 25 Oct 2022 18:59:31 +0300
Subject: [PATCH] Add startup hook for xmonad.

---
 .config/xmonad/xmonad.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/.config/xmonad/xmonad.hs b/.config/xmonad/xmonad.hs
index 689f252..9e9fbd1 100644
--- a/.config/xmonad/xmonad.hs
+++ b/.config/xmonad/xmonad.hs
@@ -4,6 +4,7 @@ import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.StatusBar
 import XMonad.Hooks.StatusBar.PP
 import XMonad.Hooks.EwmhDesktops
+import XMonad.Util.SpawnOnce (spawnOnce)
 
 main = do
   xmonad . ewmhFullscreen . ewmh . xmobarProp $ def
@@ -12,6 +13,7 @@ main = do
         , borderWidth        = myBorderWidth
         , focusedBorderColor = myFocusedBorderColor
         , normalBorderColor  = myNormalBorderColor
+        , startupHook      = myStartupHook
         }
       `additionalKeysP`
         [  ("M-e", spawn myEmacs)
@@ -30,3 +32,7 @@ myEmacs = "emacsclient -c -a 'emacs' "
 myBrowser = "firefox"
 myFocusedBorderColor = "#749F82"
 myNormalBorderColor = "#425F57"
+
+myStartupHook :: X ()
+myStartupHook = do
+  spawnOnce "xmobar"