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)