1
1
mirror of https://github.com/anoma/juvix.git synced 2024-12-15 18:13:56 +03:00
juvix/app/Commands/Dev/Highlight/Options.hs
2022-09-14 16:16:15 +02:00

40 lines
1020 B
Haskell

module Commands.Dev.Highlight.Options
( module Commands.Dev.Highlight.Options,
HighlightBackend (..),
)
where
import CommonOptions
import Juvix.Compiler.Concrete.Data.Highlight
data HighlightOptions = HighlightOptions
{ _highlightBackend :: HighlightBackend,
_highlightInputFile :: Path
}
deriving stock (Data)
parseHighlight :: Parser HighlightOptions
parseHighlight = do
_highlightBackend <-
option
(eitherReader parseBackend)
( long "format"
<> metavar "FORMAT"
<> value Emacs
<> showDefault
<> help "selects a backend. FORMAT = emacs | json"
<> completeWith (map show allBackends)
)
_highlightInputFile <- parseInputJuvixFile
pure HighlightOptions {..}
where
allBackends :: [HighlightBackend]
allBackends = allElements
parseBackend :: String -> Either String HighlightBackend
parseBackend s = case map toLower s of
"emacs" -> Right Emacs
"json" -> Right Json
_ -> Left $ "unrecognised theme: " <> s