QWAN/docster
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add docx export

Browse Source
This commit is contained in:
mostalive
2026-04-30 17:27:59 +01:00
parent fa850d5017
commit 9dd9313829
5 changed files with 110 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app/Main.hs
+3 -2
View File
@@ -4,7 +4,7 @@
module Main (main) where
import Docster.Types (DocsterError(..))
import Docster.Compiler (compileToPDF, compileToHTML)
import Docster.Compiler (compileToPDF, compileToHTML, compileToDOCX)
import System.Environment (getArgs)
import Control.Exception (throwIO)
@@ -12,7 +12,8 @@ import Control.Exception (throwIO)
parseArgs :: [String] -> Either DocsterError (IO ())
parseArgs ["-pdf", path] = Right (compileToPDF path)
parseArgs ["-html", path] = Right (compileToHTML path)
parseArgs _ = Left $ InvalidUsage "Usage: docster -pdf|-html <file.md>"
parseArgs ["-docx", path] = Right (compileToDOCX path)
parseArgs _ = Left $ InvalidUsage "Usage: docster -pdf|-html|-docx <file.md>"
-- | Main entry point - parse arguments and execute appropriate action
main :: IO ()