From 99c7cc64fe430b9ad31013530de3804184fb77f3 Mon Sep 17 00:00:00 2001
From: ramazanemreosmanoglu <ramazanemre@protonmail.com>
Date: Thu, 27 Oct 2022 11:39:07 +0300
Subject: [PATCH] Trayer and xscreensaver configuration

---
 .config/xmobar/natural-green-xmobarrc | 2 +-
 .config/xmonad/xmonad.hs              | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/.config/xmobar/natural-green-xmobarrc b/.config/xmobar/natural-green-xmobarrc
index 0ccba00..aaf17f3 100644
--- a/.config/xmobar/natural-green-xmobarrc
+++ b/.config/xmobar/natural-green-xmobarrc
@@ -6,4 +6,4 @@ Config { bgColor  = "#425F57"
                     , Run XMonadLog
                     ]
        , alignSep = "}{"
-       , template = "    %XMonadLog% }{ %date%  "}
+       , template = "    %XMonadLog% }{ %date%                   "}
diff --git a/.config/xmonad/xmonad.hs b/.config/xmonad/xmonad.hs
index d6582e9..7358359 100644
--- a/.config/xmonad/xmonad.hs
+++ b/.config/xmonad/xmonad.hs
@@ -37,6 +37,8 @@ myStartupHook :: X ()
 myStartupHook = do
   spawn $ "/usr/bin/xmobar " ++ themeBarConfig myTheme
   spawn $ "feh --bg-scale " ++ themeWallpaper myTheme
+  spawn   "xscreensaver -no-splash"
+  spawn   "trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 10 --transparent true --tint 0x5f5f5f --height 31"
 
 myKeybindings :: [(String, X())]
 myKeybindings = [  ("M-e", spawn myEmacs)