1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
{- |
Module : Text.Pandoc.Lua.Marshaling.ReaderOptions
Copyright : © 2012-2021 John MacFarlane
© 2017-2021 Albert Krewinkel
License : GNU GPL, version 2 or above
Maintainer : Albert Krewinkel <tarleb+pandoc@moltkeplatz.de>
Stability : alpha
Marshal citeproc 'Reference' values.
-}
module Text.Pandoc.Lua.Marshal.Reference
( pushReference
) where
import Citeproc.Types
( Date (..), DateParts (..), ItemId (..), Name (..), Reference (..)
, Val (..), Variable, fromVariable
)
import Control.Monad (forM_)
import HsLua hiding (Name, Reference, pushName, peekName)
import Text.Pandoc.Builder (Inlines, toList)
import Text.Pandoc.Lua.Marshal.Inline (pushInlines)
import Text.Pandoc.Lua.Marshal.List (pushPandocList)
import qualified Data.Map as Map
import qualified HsLua
-- | Pushes a ReaderOptions value as userdata object.
pushReference :: LuaError e => Pusher e (Reference Inlines)
pushReference reference = do
pushAsTable [ ("id", pushItemId . referenceId)
, ("type", pushText . referenceType)
]
reference
forM_ (Map.toList $ referenceVariables reference) $ \(var, val) -> do
pushVariable var
pushVal val
rawset (nth 3)
-- | Pushes an 'ItemId' as a string.
pushItemId :: Pusher e ItemId
pushItemId = pushText . unItemId
-- | Pushes a person's 'Name' as a table.
pushName :: LuaError e => Pusher e Name
pushName = pushAsTable
[ ("family" , pushTextOrNil . nameFamily)
, ("given" , pushTextOrNil . nameGiven)
, ("dropping-particle" , pushTextOrNil . nameDroppingParticle)
, ("non-dropping-particle" , pushTextOrNil . nameNonDroppingParticle)
, ("suffix" , pushTextOrNil . nameSuffix)
, ("literal" , pushTextOrNil . nameLiteral)
, ("comma-suffix" , pushBool . nameCommaSuffix)
, ("static-ordering" , pushBool . nameStaticOrdering)
]
where
pushTextOrNil = \case
Nothing -> pushnil
Just xs -> pushText xs
-- | Pushes a 'Variable' as string.
pushVariable :: Pusher e Variable
pushVariable = pushText . fromVariable
-- | Pushes a 'Val', i.e., a variable value.
pushVal :: LuaError e => Pusher e (Val Inlines)
pushVal = \case
TextVal t -> pushText t
FancyVal inlns -> pushInlines $ toList inlns
NumVal i -> pushIntegral i
NamesVal names -> pushPandocList pushName names
DateVal date -> pushDate date
-- | Pushes a 'Date' as table.
pushDate :: LuaError e => Pusher e Date
pushDate = pushAsTable
[ ("date-parts", pushPandocList pushDateParts . dateParts)
, ("circa", pushBool . dateCirca)
, ("season", maybe pushnil pushIntegral . dateSeason)
, ("literal", maybe pushnil pushText . dateLiteral)
]
where
-- date parts are integers, but we push them as strings, as meta
-- values can't handle integers yet.
pushDateParts (DateParts dp) = pushPandocList (pushString . show) dp
-- | Helper funtion to push an object as a table.
pushAsTable :: LuaError e
=> [(HsLua.Name, a -> LuaE e ())]
-> a -> LuaE e ()
pushAsTable props obj = do
createtable 0 (length props)
forM_ props $ \(name, pushValue) -> do
HsLua.pushName name
pushValue obj
rawset (nth 3)
|
