-{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
-- I do not know haskell, this code is probably shit
-import Data.Aeson
-import Data.Aeson.Encode.Pretty
-import qualified Data.ByteString.Lazy as B
-import Data.List.Extra
-import Data.Maybe
-import qualified Data.Text as T
-import Data.Text.ANSI
-import Data.UUID
-import Data.UUID.V4
-import GHC.Float (double2Float)
-import GHC.Generics
-import System.Console.Haskeline
-import System.Environment (getEnv)
-import System.Exit
-import System.IO
-import System.Process
-import Text.Printf (printf)
+import Data.Aeson
+import Data.Aeson.Encode.Pretty
+import Data.Aeson.Types
+import qualified Data.ByteString.Lazy as B
+import Data.List.Extra
+import Data.Maybe
+import qualified Data.Text as T
+import Data.Text.ANSI
+import Data.UUID
+import Data.UUID.V4
+import GHC.Float (double2Float)
+import GHC.Generics
+import System.Console.Haskeline
+import System.Environment (getEnv)
+import System.Exit
+import System.IO
+import System.Process
+import Text.Printf (printf)
data File = File
- { path :: String,
- movable :: Bool,
- help :: String
+ { path :: String,
+ supportLevel :: SupportLevel,
+ help :: String
}
deriving (Generic, Show)
instance ToJSON File where
- toEncoding = genericToEncoding defaultOptions
+ toEncoding (File path supportLevel help) = pairs ("path" .= path <> "movable" .= supportLevel <> "help" .= help)
data Program = Program
- { name :: T.Text,
+ { name :: T.Text,
files :: [File]
}
deriving (Generic, Show)
let path = ("./programs/" ++ (T.unpack (name program)) ++ ".json")
B.writeFile path (encodePretty program)
-getHelp :: IO String
-getHelp =
- toString <$> Data.UUID.V4.nextRandom >>= \id ->
- appendFile ("/tmp/xdg-ninja." ++ id ++ ".md") "Export the following environment variables:\n\n```bash\n\n```"
- >> (getEnv "EDITOR") >>= \editor ->
- createProcess (shell (editor ++ " /tmp/xdg-ninja." ++ id ++ ".md")) >>= \r ->
- case r of
- (_, _, _, p) ->
- waitForProcess p
- >>= ( \f -> case f of
- ExitSuccess -> readFile ("/tmp/xdg-ninja." ++ id ++ ".md")
- (ExitFailure a) -> return ""
- )
+data SupportLevel = Unsupported | Alias | EnvVars | Supported
+ deriving (Generic, Show)
+
+instance ToJSON SupportLevel where
+ toEncoding Unsupported = toEncoding ( Bool False )
+ toEncoding _ = toEncoding ( Bool True )
+
+getTemplate :: SupportLevel -> String
+getTemplate Unsupported = "Currently unsupported.\n\n_Relevant issue:_ https://github.com/user/repo/issues/nr\n"
+getTemplate EnvVars = "Export the following environment variables:\n\n```bash\n\n```"
+getTemplate Alias = "Alias PROGRAM to use a custom configuration location:\n\n```bash\nalias PROGRAM=PROGRAM --config \"$XDG_CONFIG_HOME\"/PROGRAM/config\n```\n"
+getTemplate Supported = "Supported since _VERSION_.\n\nYou can move the file to _XDG_CONFIG_HOME/PROGRAM/CONFIG.\n"
+
+
+getHelp :: SupportLevel -> IO String
+getHelp supportLevel = do
+ id <- toString <$> Data.UUID.V4.nextRandom
+ editor <- appendFile ("/tmp/xdg-ninja." ++ id ++ ".md") (getTemplate supportLevel) >> (getEnv "EDITOR")
+ (_, _, _, p) <- createProcess (shell (editor ++ " /tmp/xdg-ninja." ++ id ++ ".md"))
+ f <- waitForProcess p
+ case f of
+ ExitSuccess -> readFile ("/tmp/xdg-ninja." ++ id ++ ".md")
+ ExitFailure a -> return ""
getProp :: T.Text -> T.Text -> IO String
getProp prompt placeholder = do
let string_prompt = T.unpack prompt
let string_placholder = T.unpack placeholder
- let fuck = runInputT defaultSettings (getInputLineWithInitial string_prompt (string_placholder, ""))
- fuck
- >>= ( \x -> case x of
- (Just s) -> return s
- Nothing -> return ""
- )
+ x <- runInputT defaultSettings (getInputLineWithInitial string_prompt (string_placholder, ""))
+ case x of
+ Just s -> return s
+ Nothing -> return ""
data Answer = Yes | No | Unknown
stringToBool :: String -> Answer
stringToBool s = case lower s of
"yes" -> Yes
- "y" -> Yes
- "1" -> Yes
- "no" -> No
- "n" -> No
- "0" -> No
- _ -> Unknown
+ "y" -> Yes
+ "1" -> Yes
+ "no" -> No
+ "n" -> No
+ "0" -> No
+ _ -> Unknown
promptBool :: T.Text -> T.Text -> T.Text -> IO Bool
-promptBool prompt prompt_unrecognised placeholder =
- getProp prompt placeholder >>= \x -> case stringToBool x of
+promptBool prompt prompt_unrecognised placeholder = do
+ x <- getProp prompt placeholder
+ case stringToBool x of
Yes -> return True
No -> return False
Unknown -> printf "%s\n" prompt_unrecognised >> promptBool prompt prompt_unrecognised placeholder
+getSupportLevel :: IO SupportLevel
+getSupportLevel = do
+ movable <- promptBool (blue "Can the file be moved? (y/n) ") (red "Please provide a valid answer.") "y"
+ if movable
+ then do
+ envVars <- promptBool (blue "Do you have to export environment variables? (y/n) ") (red "Please provide a valid answer.") "y"
+ if envVars
+ then return EnvVars
+ else do
+ alias <- promptBool (blue "Do you have to set an alias? (y/n) ") (red "Please provide a valid answer.") "y"
+ if alias
+ then return Alias
+ else return Supported
+ else return Unsupported
+
getFile :: IO File
-getFile =
- getProp (blue "Path to file: ") "$HOME/."
- >>= \path ->
- promptBool (blue "Can the file be moved? (y/n) ") (red "Please provide a valid answer.") "y"
- >>= \movable ->
- getHelp
- >>= \help -> return File {path = path, movable = movable, help = help}
+getFile = do
+ path <- getProp (blue "Path to file: ") "$HOME/."
+ supportLevel <- getSupportLevel
+ help <- getHelp supportLevel
+ return File {path = path, supportLevel = supportLevel, help = help}
getFiles :: [File] -> IO [File]
getFiles files =
if Data.List.Extra.null files
- then getFile >>= \newFile -> getFiles (newFile : files)
- else
- promptBool (green "Add another file? (y/n) ") (red "Please provide a valid answer.") "" >>= \new ->
- if new
- then getFile >>= \newFile -> getFiles (newFile : files)
- else return files
+ then do
+ newFile <- getFile
+ getFiles (newFile : files)
+ else do
+ new <- promptBool (green "Add another file? (y/n) ") (red "Please provide a valid answer.") ""
+ if new
+ then do
+ newFile <- getFile
+ getFiles (newFile : files)
+ else return files
getProgram :: IO Program
-getProgram =
- printf "%s\n" (T.unpack (bold (cyan "XDG-ninja Configuration Wizard")))
- >> printf "%s\n" (T.unpack (faint (italic (cyan "First, tell me what program you're creating a configuration for."))))
- >> getProp (yellow "Program name: ") ""
- >>= \name ->
- printf "%s\n" (T.unpack (faint (italic (cyan "Alright, now let's configure which files belong to this program."))))
- >> printf "%s\n" (T.unpack (faint (italic (cyan "I'm going to ask you for the path to the file, please use $HOME instead of ~."))))
- >> printf "%s\n" (T.unpack (faint (italic (cyan "I'll then ask you wether or not this file can be moved to a different directory."))))
- >> printf "%s\n" (T.unpack (faint (italic (cyan "Finally, your editor is going to open a markdown document. Enter instructions on moving the file in question, then save and close."))))
- >> getFiles [] >>= \files ->
- return Program {name = T.pack name, files = files}
+getProgram = do
+ name <- printf "%s\n" (T.unpack (bold (cyan "XDG-ninja Configuration Wizard")))
+ >> printf "%s\n" (T.unpack (faint (italic (cyan "First, tell me what program you're creating a configuration for."))))
+ >> getProp (yellow "Program name: ") ""
+ files <- printf "%s\n" (T.unpack (faint (italic (cyan "Alright, now let's configure which files belong to this program."))))
+ >> printf "%s\n" (T.unpack (faint (italic (cyan "I'm going to ask you for the path to the file, please use $HOME instead of ~."))))
+ >> printf "%s\n" (T.unpack (faint (italic (cyan "I'll then ask you wether or not this file can be moved to a different directory."))))
+ >> printf "%s\n" (T.unpack (faint (italic (cyan "Finally, your editor is going to open a markdown document. Enter instructions on moving the file in question, then save and close."))))
+ >> getFiles []
+ return Program {name = T.pack name, files = files}
main :: IO ()
-main =
- getProgram >>= \program ->
- promptBool (green "Save? (y/n) ") (red "Please provide a valid answer.") "" >>= \do_save ->
- if do_save
- then save program
- else return ()
+main = do
+ program <- getProgram
+ do_save <- promptBool (green "Save? (y/n) ") (red "Please provide a valid answer.") ""
+ if do_save
+ then save program
+ else return ()
projects / xdg-ninja.git / blobdiff