{-# OPTIONS_GHC -fno-warn-orphans #-}
module Text.Pandoc.Lua.Marshaling.Context () where
import qualified HsLua as Lua
import HsLua (Pushable)
import Text.DocTemplates (Context(..), Val(..), TemplateTarget)
import Text.DocLayout (render)
instance (TemplateTarget a, Pushable a) => Pushable (Context a) where
push :: Context a -> LuaE e ()
push (Context Map Text (Val a)
m) = Map Text (Val a) -> LuaE e ()
forall a e. (Pushable a, LuaError e) => a -> LuaE e ()
Lua.push Map Text (Val a)
m
instance (TemplateTarget a, Pushable a) => Pushable (Val a) where
push :: Val a -> LuaE e ()
push Val a
NullVal = () -> LuaE e ()
forall a e. (Pushable a, LuaError e) => a -> LuaE e ()
Lua.push ()
push (BoolVal Bool
b) = Bool -> LuaE e ()
forall a e. (Pushable a, LuaError e) => a -> LuaE e ()
Lua.push Bool
b
push (MapVal Context a
ctx) = Context a -> LuaE e ()
forall a e. (Pushable a, LuaError e) => a -> LuaE e ()
Lua.push Context a
ctx
push (ListVal [Val a]
xs) = [Val a] -> LuaE e ()
forall a e. (Pushable a, LuaError e) => a -> LuaE e ()
Lua.push [Val a]
xs
push (SimpleVal Doc a
d) = a -> LuaE e ()
forall a e. (Pushable a, LuaError e) => a -> LuaE e ()
Lua.push (a -> LuaE e ()) -> a -> LuaE e ()
forall a b. (a -> b) -> a -> b
$ Maybe Int -> Doc a -> a
forall a. HasChars a => Maybe Int -> Doc a -> a
render Maybe Int
forall a. Maybe a
Nothing Doc a
d