rvv041 - Zenith Utils -> GetZenithPaht added

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)