lang/langfilter/main/Main.hs

18 lines
443 B
Haskell
Raw Normal View History

2024-12-03 18:52:36 +01:00
import qualified Data.Map as Map
import qualified Data.Text as Text
2024-11-28 02:04:06 +01:00
import LangFilter
2024-12-03 18:52:36 +01:00
import System.Environment
2024-11-28 02:04:06 +01:00
import Text.Pandoc.JSON
2024-12-03 18:52:36 +01:00
import Lang
2024-11-28 02:04:06 +01:00
2024-12-03 18:52:36 +01:00
main =
toJSONFilter $ \p@(Pandoc (Meta m) _) -> do
col <- getDefColor m
langFilter col p
where
getDefColor m = do
res <- toText $ Map.lookup "lang-color" m
case res of
Just col -> pure $ col
Nothing -> maybe "currentcolor" Text.pack <$> lookupEnv "LANG_COLOR"