pandoc uses the "lang" property
This commit is contained in:
parent
333f23f55c
commit
c8b811a733
10 changed files with 10 additions and 10 deletions
|
@ -12,7 +12,7 @@ import qualified Data.Map as Map
|
|||
main :: IO ()
|
||||
main = toJSONFilter filter where
|
||||
filter p@(Pandoc (Meta m) _) = do
|
||||
lang' <- toLang $ Map.lookup "lang" m
|
||||
lang' <- toLang $ Map.lookup "conlang" m
|
||||
let ?lang = lang'
|
||||
fmap (walk makeEbnf .
|
||||
walk (concatMap makeFigures) .
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue