mirror of
https://github.com/anoma/juvix.git
synced 2024-12-15 18:13:56 +03:00
40 lines
1020 B
Haskell
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
|