UωU

app/Main.hs

@@ -0,0 +1,56 @@
+module Main where
+
+import System.Directory
+import System.Environment
+import Options.Applicative
+import Data.List
+
+data Args = Args
+    { title :: String
+    , directory :: FilePath
+    , fileHead :: FilePath
+    , verbose :: Bool
+    }
+
+args :: Parser Args
+args = Args
+    <$> strOption
+          ( long "title"
+        <> short 't'
+        <> value "Title Left Blank"
+        <> help "Document title" )
+    <*> strOption
+        ( long "directory"
+       <> short 'd'
+       <> value "./"
+       <> help "Directory to parse" )
+    <*> strOption
+        ( long "header"
+       <> short 'H'
+       <> value ""
+       <> help "File with header text" )
+    <*> switch
+        ( long "verbose"
+       <> short 'v'
+       <> help "Verbose mode")
+
+
+    --mapM_ putStrLn =<< getDirectoryContents =<< getEnv "FIETS"
+main :: IO ()
+main = parseArgs =<< execParser opts
+  where
+    opts = info ( args <**> helper)
+        ( fullDesc
+       <> progDesc "Generate gemini page index"
+       <> header "fucking kill me")
+
+parseArgs :: Args -> IO()
+parseArgs (Args t d h False) = do
+    putStrLn $ "# " ++ t
+    putStrLn =<< readFile h
+    mkIndex =<< getDirectoryContents d
+parseArgs _ = putStrLn "fiets"
+
+mkIndex :: [String] -> IO ()
+--mkIndex = mapM_ (putStrLn . ("=> " ++))
+mkIndex = mapM_ (putStrLn . ("=> " ++)) . filter (isSuffixOf ".gmi")