From d37269bf44e93ba37c236a6503df7846bfd3080d Mon Sep 17 00:00:00 2001
From: "Rene Vergara A." <rvergara59@protonmail.com>
Date: Mon, 22 Jul 2024 20:58:46 -0400
Subject: [PATCH] rvv041 - Zenith Utils -> GetZenithPaht added

---
 src/Zenith/Utils.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/Zenith/Utils.hs b/src/Zenith/Utils.hs
index eedf02d..3624d73 100644
--- a/src/Zenith/Utils.hs
+++ b/src/Zenith/Utils.hs
@@ -90,6 +90,13 @@ copyAddress a =
   createProcess_ "toClipboard" $
   shell $ "echo " ++ T.unpack (addy a) ++ " | xclip -r -selection clipboard"
 
+-- | Get current user and build zenith path
+getZenithPath :: IO String
+getZenithPath = do 
+  d <- getHomeDirectory
+  let homeDirectory = d
+  return  (homeDirectory ++ "/Zenith/")
+
 -- | Bound a value to the 0..1 range, used for progress reporting on UIs
 validBarValue :: Float -> Float
 validBarValue = clamp (0, 1)