@@ -36,6 +36,7 @@ module Text.Pandoc.Lua ( LuaException(..),
36import Control.Exception
36import Control.Exception
37import Control.Monad (unless, when, (>=>))
37import Control.Monad (unless, when, (>=>))
38import Control.Monad.Trans (MonadIO (..))
38import Control.Monad.Trans (MonadIO (..))
39+import Data.Data (toConstr)
39import Data.Map (Map)
40import Data.Map (Map)
40import Data.Typeable (Typeable)
41import Data.Typeable (Typeable)
41import Scripting.Lua (LuaState, StackValue (..))
42import Scripting.Lua (LuaState, StackValue (..))
@@ -129,21 +130,7 @@ execBlockLuaFilter lua fnMap x = do
129 case Map.lookup filterFnName fnMap of
130 case Map.lookup filterFnName fnMap of
130 Nothing -> return x
131 Nothing -> return x
131 Just fn -> runFilterFunction lua fn x
132 Just fn -> runFilterFunction lua fn x
132− case x of
133+ tryFilter (show (toConstr x))
133− BlockQuote{} -> tryFilter "BlockQuote"
134− BulletList{} -> tryFilter "BulletList"
135− CodeBlock{} -> tryFilter "CodeBlock"
136− DefinitionList{} -> tryFilter "DefinitionList"
137− Div{} -> tryFilter "Div"
138− Header{} -> tryFilter "Header"
139− HorizontalRule -> tryFilter "HorizontalRule"
140− LineBlock{} -> tryFilter "LineBlock"
141− Null -> tryFilter "Null"
142− Para{} -> tryFilter "Para"
143− Plain{} -> tryFilter "Plain"
144− RawBlock{} -> tryFilter "RawBlock"
145− OrderedList{} -> tryFilter "OrderedList"
146− Table{} -> tryFilter "Table"
148execInlineLuaFilter :: LuaState
135execInlineLuaFilter :: LuaState
149 -> FunctionMap
136 -> FunctionMap
@@ -161,27 +148,11 @@ execInlineLuaFilter lua fnMap x = do
161 Nothing -> tryFilterAlternatives alternatives
148 Nothing -> tryFilterAlternatives alternatives
162 Just fn -> runFilterFunction lua fn x
149 Just fn -> runFilterFunction lua fn x
163 case x of
150 case x of
164− Cite{} -> tryFilter "Cite"
165− Code{} -> tryFilter "Code"
166− Emph{} -> tryFilter "Emph"
167− Image{} -> tryFilter "Image"
168− LineBreak -> tryFilter "LineBreak"
169− Link{} -> tryFilter "Link"
170 Math DisplayMath _ -> tryFilterAlternatives ["DisplayMath", "Math"]
151 Math DisplayMath _ -> tryFilterAlternatives ["DisplayMath", "Math"]
171 Math InlineMath _ -> tryFilterAlternatives ["InlineMath", "Math"]
152 Math InlineMath _ -> tryFilterAlternatives ["InlineMath", "Math"]
172− Note{} -> tryFilter "Note"
173 Quoted DoubleQuote _ -> tryFilterAlternatives ["DoubleQuoted", "Quoted"]
153 Quoted DoubleQuote _ -> tryFilterAlternatives ["DoubleQuoted", "Quoted"]
174 Quoted SingleQuote _ -> tryFilterAlternatives ["SingleQuoted", "Quoted"]
154 Quoted SingleQuote _ -> tryFilterAlternatives ["SingleQuoted", "Quoted"]
175− RawInline{} -> tryFilter "RawInline"
155+ _ -> tryFilter (show (toConstr x))
176− SmallCaps{} -> tryFilter "SmallCaps"
177− SoftBreak -> tryFilter "SoftBreak"
178− Space -> tryFilter "Space"
179− Span{} -> tryFilter "Span"
180− Str{} -> tryFilter "Str"
181− Strikeout{} -> tryFilter "Strikeout"
182− Strong{} -> tryFilter "Strong"
183− Subscript{} -> tryFilter "Subscript"
184− Superscript{} -> tryFilter "Superscript"
186instance StackValue LuaFilter where
157instance StackValue LuaFilter where
187 valuetype _ = Lua.TTABLE
158 valuetype _ = Lua.TTABLE