diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2021-10-26 14:40:11 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2021-10-26 14:40:11 +0200 |
| commit | 80ed81822e27ac0d09e365ccc6f6508f3b1b4a9b (patch) | |
| tree | cab97f694f39d7ee31385592548289232c14bf91 /src/Text/Pandoc/Lua | |
| parent | f56d8706312df64d3956cea0c93768b51192958e (diff) | |
| download | pandoc-80ed81822e27ac0d09e365ccc6f6508f3b1b4a9b.tar.gz | |
Lua: generate constants in module pandoc programmatically
Diffstat (limited to 'src/Text/Pandoc/Lua')
| -rw-r--r-- | src/Text/Pandoc/Lua/Module/Pandoc.hs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Lua/Module/Pandoc.hs b/src/Text/Pandoc/Lua/Module/Pandoc.hs index 340c324ad..458795029 100644 --- a/src/Text/Pandoc/Lua/Module/Pandoc.hs +++ b/src/Text/Pandoc/Lua/Module/Pandoc.hs @@ -1,5 +1,6 @@ {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE TypeApplications #-} {- | Module : Text.Pandoc.Lua.Module.Pandoc @@ -20,8 +21,10 @@ import Control.Applicative ((<|>), optional) import Control.Monad ((>=>), (<$!>), forM_, when) import Control.Monad.Catch (catch, throwM) import Control.Monad.Except (throwError) +import Data.Data (Data, dataTypeConstrs, dataTypeOf, showConstr) import Data.Default (Default (..)) import Data.Maybe (fromMaybe) +import Data.Proxy (Proxy (Proxy)) import Data.Text (Text) import HsLua as Lua hiding (Div, pushModule) import HsLua.Class.Peekable (PeekError) @@ -87,6 +90,9 @@ pushModule = do pop 1 -- remaining constructor table addConstructorTable (blockConstructors @PandocError) addConstructorTable (inlineConstructors @PandocError) + -- Add string constants + forM_ stringConstants $ \c -> do + pushString c *> pushString c *> rawset (nth 3) return 1 inlineConstructors :: LuaError e => [DocumentedFunction e] @@ -307,6 +313,17 @@ otherConstructors = , mkListAttributes ] +stringConstants :: [String] +stringConstants = + let constrs :: forall a. Data a => Proxy a -> [String] + constrs _ = map showConstr . dataTypeConstrs . dataTypeOf @a $ undefined + in constrs (Proxy @ListNumberStyle) + ++ constrs (Proxy @ListNumberDelim) + ++ constrs (Proxy @QuoteType) + ++ constrs (Proxy @MathType) + ++ constrs (Proxy @Alignment) + ++ constrs (Proxy @CitationMode) + walkElement :: (Walkable (SingletonsList Inline) a, Walkable (SingletonsList Block) a, Walkable (List Inline) a, |