Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-pandoc-lua-marshal for openSUSE:Factory checked in at 2024-07-22 17:16:36 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-pandoc-lua-marshal (Old) and /work/SRC/openSUSE:Factory/.ghc-pandoc-lua-marshal.new.17339 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-pandoc-lua-marshal" Mon Jul 22 17:16:36 2024 rev:10 rq:1188652 version:0.2.7.1 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-pandoc-lua-marshal/ghc-pandoc-lua-marshal.changes 2024-05-14 13:39:24.396873083 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-pandoc-lua-marshal.new.17339/ghc-pandoc-lua-marshal.changes 2024-07-22 17:17:32.688179200 +0200 @@ -1,0 +2,14 @@ +Tue Jul 2 07:59:53 UTC 2024 - Peter Simons <psimons@suse.com> + +- Update pandoc-lua-marshal to version 0.2.7.1. + ## 0.2.7.1 + + Released 2024-07-02. + + - Relaxed the upper bound of tasty-quickcheck, used in tests. + Now allows version 0.11. + + - Update documentation on constructors; the descriptions now + match those in the pandoc docs. + +------------------------------------------------------------------- Old: ---- pandoc-lua-marshal-0.2.7.tar.gz New: ---- pandoc-lua-marshal-0.2.7.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-pandoc-lua-marshal.spec ++++++ --- /var/tmp/diff_new_pack.niTsuE/_old 2024-07-22 17:17:33.712219911 +0200 +++ /var/tmp/diff_new_pack.niTsuE/_new 2024-07-22 17:17:33.716220069 +0200 @@ -20,7 +20,7 @@ %global pkgver %{pkg_name}-%{version} %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.2.7 +Version: 0.2.7.1 Release: 0 Summary: Use pandoc types in Lua License: MIT ++++++ pandoc-lua-marshal-0.2.7.tar.gz -> pandoc-lua-marshal-0.2.7.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-marshal-0.2.7/CHANGELOG.md new/pandoc-lua-marshal-0.2.7.1/CHANGELOG.md --- old/pandoc-lua-marshal-0.2.7/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-marshal-0.2.7.1/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 @@ -2,6 +2,16 @@ `pandoc-lua-marshal` uses [PVP Versioning][]. +## 0.2.7.1 + +Released 2024-07-02. + +- Relaxed the upper bound of tasty-quickcheck, used in tests. + Now allows version 0.11. + +- Update documentation on constructors; the descriptions now + match those in the pandoc docs. + ## 0.2.7 Released 2024-05-06. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-marshal-0.2.7/pandoc-lua-marshal.cabal new/pandoc-lua-marshal-0.2.7.1/pandoc-lua-marshal.cabal --- old/pandoc-lua-marshal-0.2.7/pandoc-lua-marshal.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-marshal-0.2.7.1/pandoc-lua-marshal.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,6 +1,6 @@ cabal-version: 2.4 name: pandoc-lua-marshal -version: 0.2.7 +version: 0.2.7.1 synopsis: Use pandoc types in Lua description: This package provides functions to marshal and unmarshal pandoc document types to and from Lua. @@ -113,7 +113,7 @@ , tasty >= 0.11 , tasty-hunit >= 0.9 , tasty-lua >= 1.0 - , tasty-quickcheck >= 0.8 && < 0.11 + , tasty-quickcheck >= 0.8 && < 0.12 ghc-options: -threaded -rtsopts -with-rtsopts=-N diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/Attr.hs new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/Attr.hs --- old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/Attr.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/Attr.hs 2001-09-09 03:46:40.000000000 +0200 @@ -229,7 +229,8 @@ -- | Constructor for 'Attr'. mkAttr :: LuaError e => DocumentedFunction e mkAttr = defun "Attr" - ### (ltype (nthBottom 1) >>= \case + ### (\_ _ _ -> + ltype (nthBottom 1) >>= \case TypeString -> forcePeek $ do mident <- optional (peekText (nthBottom 1)) mclass <- optional (peekList peekText (nthBottom 2)) @@ -244,7 +245,12 @@ TypeNil -> pure nullAttr TypeNone -> pure nullAttr x -> failLua $ "Cannot create Attr from " ++ show x) + <#> opt (parameter pure "string|table|Attr" "identifier" "element identifier") + <#> opt (parameter pure "{string,...}" "classes" "element classes") + <#> opt (parameter pure "table|AttributeList" "attributes" + "table containing string keys and values") =#> functionResult pushAttr "Attr" "new Attr object" + #? "Create a new set of attributes" -- | Constructor for 'AttributeList'. mkAttributeList :: LuaError e => DocumentedFunction e diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/Block.hs new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/Block.hs --- old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/Block.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/Block.hs 2001-09-09 03:46:40.000000000 +0200 @@ -332,17 +332,20 @@ ### liftPure BlockQuote <#> blocksParam =#> blockResult "BlockQuote element" + #? "Creates a block quote element" , defun "BulletList" ### liftPure BulletList <#> blockItemsParam "list items" =#> blockResult "BulletList element" + #? "Creates a bullet list." , defun "CodeBlock" ### liftPure2 (\code mattr -> CodeBlock (fromMaybe nullAttr mattr) code) - <#> textParam "text" "code block content" + <#> textParam "text" "code string" <#> optAttrParam =#> blockResult "CodeBlock element" + #? "Creates a code block element." , defun "DefinitionList" ### liftPure DefinitionList @@ -353,22 +356,25 @@ "{{Inlines, {Blocks,...}},...}" "content" "definition items" =#> blockResult "DefinitionList element" + #? "Creates a definition list, containing terms and their explanation." , defun "Div" ### liftPure2 (\content mattr -> Div (fromMaybe nullAttr mattr) content) <#> blocksParam <#> optAttrParam =#> blockResult "Div element" + #? "Creates a div element" , defun "Figure" ### liftPure3 (\content mcapt mattr -> let attr = fromMaybe nullAttr mattr capt = fromMaybe (Caption mempty mempty) mcapt in Figure attr capt content) - <#> parameter peekBlocksFuzzy "Blocks" "content" "figure content" + <#> parameter peekBlocksFuzzy "Blocks" "content" "figure block content" <#> opt (parameter peekCaptionFuzzy "Caption" "caption" "figure caption") <#> optAttrParam - =#> blockResult "Figure element" + =#> blockResult "Figure object" + #? "Creates a [[Figure]] element." , defun "Header" ### liftPure3 (\lvl content mattr -> @@ -377,40 +383,47 @@ <#> parameter peekInlinesFuzzy "Inlines" "content" "inline content" <#> optAttrParam =#> blockResult "Header element" + #? "Creates a header element." , defun "HorizontalRule" ### return HorizontalRule =#> blockResult "HorizontalRule element" + #? "Creates a horizontal rule." , defun "LineBlock" ### liftPure LineBlock <#> parameter (peekList peekInlinesFuzzy) "{Inlines,...}" "content" "lines" =#> blockResult "LineBlock element" + #? "Creates a line block element." , defun "OrderedList" ### liftPure2 (\items mListAttrib -> let defListAttrib = (1, DefaultStyle, DefaultDelim) in OrderedList (fromMaybe defListAttrib mListAttrib) items) - <#> blockItemsParam "ordered list items" + <#> blockItemsParam "list items" <#> opt (parameter peekListAttributes "ListAttributes" "listAttributes" - "specifier for the list's numbering") + "list parameters") =#> blockResult "OrderedList element" + #? "Creates an ordered list." , defun "Para" ### liftPure Para - <#> parameter peekInlinesFuzzy "Inlines" "content" "paragraph content" + <#> parameter peekInlinesFuzzy "Inlines" "content" "inline content" =#> blockResult "Para element" + #? "Creates a para element." , defun "Plain" ### liftPure Plain - <#> parameter peekInlinesFuzzy "Inlines" "content" "paragraph content" + <#> parameter peekInlinesFuzzy "Inlines" "content" "inline content" =#> blockResult "Plain element" + #? "Creates a plain element." , defun "RawBlock" ### liftPure2 RawBlock - <#> parameter peekFormat "Format" "format" "format of content" + <#> parameter peekFormat "string" "format" "format of content" <#> textParam "text" "raw content" =#> blockResult "RawBlock element" + #? "Creates a raw content block of the specified format." , defun "Table" ### (\capt colspecs thead tbodies tfoot mattr -> @@ -426,23 +439,27 @@ <#> parameter peekTableFoot "TableFoot" "foot" "table foot" <#> optAttrParam =#> blockResult "Table element" + #? "Creates a table element." ] where blockResult = functionResult pushBlock "Block" blocksParam = parameter peekBlocksFuzzy "Blocks" "content" "block content" - blockItemsParam = parameter peekItemsFuzzy "List of Blocks" "content" + blockItemsParam = parameter peekItemsFuzzy "{Blocks,...}" "items" peekItemsFuzzy idx = peekList peekBlocksFuzzy idx <|> ((:[]) <$!> peekBlocksFuzzy idx) - optAttrParam = opt (parameter peekAttr "Attr" "attr" "additional attributes") + optAttrParam = opt (parameter peekAttr "Attr" "attr" "element attributes") -- | Constructor for a list of `Block` values. mkBlocks :: LuaError e => DocumentedFunction e mkBlocks = defun "Blocks" ### liftPure id - <#> parameter peekBlocksFuzzy "Blocks" "blocks" "block elements" + <#> parameter peekBlocksFuzzy "Blocks" "block_like_elements" + ("List where each element can be treated as a [[Block]] value, " <> + "or a single such value.") =#> functionResult pushBlocks "Blocks" "list of block elements" + #? "Creates a [[Blocks]] list." -- -- walk diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/Cell.hs new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/Cell.hs --- old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/Cell.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/Cell.hs 2001-09-09 03:46:40.000000000 +0200 @@ -111,9 +111,13 @@ (maybe 1 RowSpan mRowSpan) (maybe 1 ColSpan mColSpan) blocks) - <#> parameter peekBlocksFuzzy "Blocks" "blocks" "document contents" - <#> opt (parameter peekAlignment "integer" "align" "cell alignment") - <#> opt (parameter peekIntegral "integer" "row_span" "rows to span") - <#> opt (parameter peekIntegral "integer" "col_span" "columns to span") + <#> parameter peekBlocksFuzzy "Blocks" "blocks" "cell contents" + <#> opt (parameter peekAlignment "Alignment" "align" + "text alignment; defaults to `AlignDefault`") + <#> opt (parameter peekIntegral "integer" "rowspan" + "number of rows occupied by the cell; defaults to `1`") + <#> opt (parameter peekIntegral "integer" "colspan" + "number of columns occupied by the cell; defaults to `1`") <#> opt (parameter peekAttr "Attr" "attr" "cell attributes") =#> functionResult pushCell "Cell" "new Cell object" + #? "Create a new table cell." diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/Citation.hs new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/Citation.hs --- old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/Citation.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/Citation.hs 2001-09-09 03:46:40.000000000 +0200 @@ -92,10 +92,10 @@ , citationNoteNum = fromMaybe 0 mnote_num , citationHash = fromMaybe 0 mhash }) - <#> textParam "cid" "citation ID (e.g. bibtex key)" + <#> textParam "id" "citation ID (e.g. BibTeX key)" <#> parameter peekCitationMode "CitationMode" "mode" "citation rendering mode" - <#> opt (parameter peekInlinesFuzzy "prefix" "Inlines" "") - <#> opt (parameter peekInlinesFuzzy "suffix" "Inlines" "") + <#> opt (parameter peekInlinesFuzzy "Inlines" "prefix" "") + <#> opt (parameter peekInlinesFuzzy "Inlines" "suffix" "") <#> opt (integralParam "note_num" "note number") <#> opt (integralParam "hash" "hash number") =#> functionResult pushCitation "Citation" "new citation object" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/Inline.hs new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/Inline.hs --- old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/Inline.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/Inline.hs 2001-09-09 03:46:40.000000000 +0200 @@ -47,6 +47,7 @@ import Text.Pandoc.Lua.Marshal.QuoteType (peekQuoteType, pushQuoteType) import Text.Pandoc.Lua.Marshal.Shared (walkBlocksAndInlines) import Text.Pandoc.Lua.Walk (SpliceList, Walkable, walkSplicing, walkStraight) +import qualified Data.Text as T import qualified Text.Pandoc.Builder as B -- | Pushes an Inline value as userdata object. @@ -313,28 +314,35 @@ inlineConstructors = [ defun "Cite" ### liftPure2 (flip Cite) - <#> parameter peekInlinesFuzzy "content" "Inline" "placeholder content" - <#> parameter (peekList peekCitation) "citations" "list of Citations" "" + <#> parameter peekInlinesFuzzy "content" "Inlines" "placeholder content" + <#> parameter (peekList peekCitation) "{Citation,...}" "citations" + "List of Citations" =#> functionResult pushInline "Inline" "cite element" + #? "Creates a Cite inline element" , defun "Code" ### liftPure2 (\text mattr -> Code (fromMaybe nullAttr mattr) text) <#> textParam "code" "code string" <#> opt (parameter peekAttr "Attr" "attr" "additional attributes") =#> functionResult pushInline "Inline" "code element" + #? "Creates a Code inline element" , mkInlinesConstr "Emph" Emph + #? "Creates an inline element representing emphasized text." , defun "Image" ### liftPure4 (\caption src mtitle mattr -> let attr = fromMaybe nullAttr mattr title = fromMaybe mempty mtitle in Image attr caption (src, title)) - <#> parameter peekInlinesFuzzy "Inlines" "caption" "image caption / alt" - <#> textParam "src" "path/URL of the image file" + <#> parameter peekInlinesFuzzy "Inlines" "caption" + "text used to describe the image" + <#> textParam "src" "path to the image file" <#> opt (textParam "title" "brief image description") <#> opt (parameter peekAttr "Attr" "attr" "image attributes") - =#> functionResult pushInline "Inline" "image element" + =#> functionResult pushInline "Inline" "Image element" + #? "Creates an Image element" , defun "LineBreak" ### return LineBreak =#> functionResult pushInline "Inline" "line break" + #? "Create a LineBreak inline element" , defun "Link" ### liftPure4 (\content target mtitle mattr -> let attr = fromMaybe nullAttr mattr @@ -345,59 +353,87 @@ <#> opt (textParam "title" "brief link description") <#> opt (parameter peekAttr "Attr" "attr" "link attributes") =#> functionResult pushInline "Inline" "link element" + #? "Creates a link inline element, usually a hyperlink." , defun "Math" ### liftPure2 Math - <#> parameter peekMathType "quotetype" "Math" "rendering method" + <#> parameter peekMathType "MathType" "mathtype" "rendering specifier" <#> textParam "text" "math content" =#> functionResult pushInline "Inline" "math element" + #? "Creates a Math element, either inline or displayed." , defun "Note" ### liftPure Note - <#> parameter peekBlocksFuzzy "content" "Blocks" "note content" + <#> parameter peekBlocksFuzzy "Blocks" "content" "footnote block content" =#> functionResult pushInline "Inline" "note" + #? "Creates a Note inline element" , defun "Quoted" ### liftPure2 Quoted - <#> parameter peekQuoteType "quotetype" "QuoteType" "type of quotes" - <#> parameter peekInlinesFuzzy "content" "Inlines" "inlines in quotes" + <#> parameter peekQuoteType "QuoteType" "quotetype" "type of quotes" + <#> parameter peekInlinesFuzzy "Inlines" "content" "inlines in quotes" =#> functionResult pushInline "Inline" "quoted element" + #? ("Creates a Quoted inline element given the quote type and " <> + "quoted content.") , defun "RawInline" ### liftPure2 RawInline - <#> parameter peekFormat "format" "Format" "format of content" + <#> parameter peekFormat "string" "format" "format of content" <#> textParam "text" "string content" =#> functionResult pushInline "Inline" "raw inline element" + #? "Creates a raw inline element" , mkInlinesConstr "SmallCaps" SmallCaps + #? "Creates text rendered in small caps" , defun "SoftBreak" ### return SoftBreak =#> functionResult pushInline "Inline" "soft break" + #? "Creates a SoftBreak inline element." , defun "Space" ### return Space =#> functionResult pushInline "Inline" "new space" + #? "Create a Space inline element" , defun "Span" ### liftPure2 (\inlns mattr -> Span (fromMaybe nullAttr mattr) inlns) - <#> parameter peekInlinesFuzzy "content" "Inlines" "inline content" + <#> parameter peekInlinesFuzzy "Inlines" "content" "inline content" <#> opt (parameter peekAttr "Attr" "attr" "additional attributes") - =#> functionResult pushInline "Inline" "span element" + =#> functionResult pushInline "Inline" "[[Span]] object" + #? "Creates a Span inline element" , defun "Str" ### liftPure Str <#> textParam "text" "" - =#> functionResult pushInline "Inline" "new Str object" - , mkInlinesConstr "Strong" Strong + =#> functionResult pushInline "Inline" "[[Str]] object" + #? "Creates a Str inline element" , mkInlinesConstr "Strikeout" Strikeout + #? "Creates text which is struck out." + , mkInlinesConstr "Strong" Strong + #? ("Creates a Strong element, whose text is usually displayed in " <> + "a bold font.") , mkInlinesConstr "Subscript" Subscript + #? "Creates a Subscript inline element" , mkInlinesConstr "Superscript" Superscript + #? "Creates a Superscript inline element" , mkInlinesConstr "Underline" Underline + #? "Creates an Underline inline element" ] where mkInlinesConstr name constr = defun name ### liftPure (\x -> x `seq` constr x) - <#> parameter peekInlinesFuzzy "Inlines" "content" "" + <#> parameter peekInlinesFuzzy "Inlines" "content" "inline content" =#> functionResult pushInline "Inline" "new object" -- | Constructor for a list of `Inline` values. mkInlines :: LuaError e => DocumentedFunction e mkInlines = defun "Inlines" ### liftPure id - <#> parameter peekInlinesFuzzy "Inlines" "inlines" "inline elements" + <#> parameter peekInlinesFuzzy "Inlines" "inline_like_elements" + ("List where each element can be treated as an [[Inline]] " <> + "value, or just a single such value.") =#> functionResult pushInlines "Inlines" "list of inline elements" + #? T.unlines + [ "Converts its argument into an [[Inlines]] list:" + , "" + , "- copies a list of [[Inline]] elements into a fresh list; any" + , " string `s` within the list is treated as `pandoc.Str(s)`;" + , "- turns a single [[Inline]] into a singleton list;" + , "- splits a string into `Str`-wrapped words, treating" + , " interword spaces as `Space`s or `SoftBreak`s." + ] -- | Walks an element of type @a@ and applies the filter to all 'Inline' -- elements. The filter result is spliced back into the list. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/ListAttributes.hs new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/ListAttributes.hs --- old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/ListAttributes.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/ListAttributes.hs 2001-09-09 03:46:40.000000000 +0200 @@ -75,10 +75,10 @@ , fromMaybe DefaultStyle mstyle , fromMaybe DefaultDelim mdelim )) - <#> opt (integralParam "start" "number of first item") - <#> opt (parameter peekRead "string" "style" "list numbering style") - <#> opt (parameter peekRead "string" "delimiter" "list number delimiter") - =#> udresult typeListAttributes "new ListAttributes" + <#> opt (integralParam "start" "number of the first list item") + <#> opt (parameter peekRead "string" "style" "style used for list numbering") + <#> opt (parameter peekRead "string" "delimiter" "delimiter of list numbers") + =#> udresult typeListAttributes "new ListAttributes object" #? "Creates a new ListAttributes object." -- | Pushes a 'ListNumberDelim' value as string. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/MetaValue.hs new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/MetaValue.hs --- old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/MetaValue.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/MetaValue.hs 2001-09-09 03:46:40.000000000 +0200 @@ -83,6 +83,11 @@ ### liftPure MetaBlocks <#> parameter peekBlocksFuzzy "Blocks" "content" "block content" =#> functionResult pushMetaValue "Blocks" "list of Block elements" + #? T.unlines + [ "Creates a value to be used as a MetaBlocks value in meta" + , "data; creates a copy of the input list via `pandoc.Blocks`," + , "discarding all non-list keys." + ] , defun "MetaBool" ### liftPure MetaBool @@ -93,21 +98,41 @@ ### liftPure MetaInlines <#> parameter peekInlinesFuzzy "Inlines" "inlines" "inline elements" =#> functionResult pushMetaValue "Inlines" "list of Inline elements" + #? T.unlines + [ "Creates a value to be used as a MetaInlines value in meta" + , "data; creates a copy of the input list via `pandoc.Inlines`," + , "discarding all non-list keys." + ] , defun "MetaList" ### liftPure MetaList <#> parameter (peekList peekMetaValue) "MetaValue|{MetaValue,...}" "values" "value, or list of values" =#> functionResult pushMetaValue "List" "list of meta values" + #? T.unlines + [ "Creates a value to be used as a MetaList in meta data;" + , "creates a copy of the input list via `pandoc.List`," + , "discarding all non-list keys." + ] , defun "MetaMap" ### liftPure MetaMap - <#> parameter (peekMap peekText peekMetaValue) "table" "map" - "string-indexed table" + <#> parameter (peekMap peekText peekMetaValue) "table" "key_value_map" + "a string-indexed map of meta values" =#> functionResult pushMetaValue "table" "map of meta values" + #? T.unlines + [ "Creates a value to be used as a MetaMap in meta data; creates" + , "a copy of the input table, keeping only pairs with string" + , "keys and discards all other keys." + ] , defun "MetaString" ### liftPure MetaString <#> textParam "s" "string value" =#> functionResult pushMetaValue "string" "unchanged input" + #? T.unlines + [ "Creates a value to be used as a MetaString in meta data; this" + , "is the identity function for boolean values and exists only" + , "for completeness." + ] ] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/Row.hs new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/Row.hs --- old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/Row.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/Row.hs 2001-09-09 03:46:40.000000000 +0200 @@ -93,6 +93,8 @@ ### liftPure2 (\mCells mAttr -> Row (fromMaybe nullAttr mAttr) (fromMaybe [] mCells)) - <#> opt (parameter (peekList peekCellFuzzy) "{Cell,...}" "cells" "row cells") - <#> opt (parameter peekAttr "Attr" "attr" "cell attributes") + <#> opt (parameter (peekList peekCellFuzzy) "{Cell,...}" "cells" + "list of table cells in this row") + <#> opt (parameter peekAttr "Attr" "attr" "row attributes") =#> functionResult pushRow "Row" "new Row object" + #? "Creates a table row." diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/SimpleTable.hs new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/SimpleTable.hs --- old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/SimpleTable.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/SimpleTable.hs 2001-09-09 03:46:40.000000000 +0200 @@ -25,6 +25,7 @@ import Text.Pandoc.Lua.Marshal.Inline (peekInlinesFuzzy, pushInlines) import Text.Pandoc.Lua.Marshal.List (pushPandocList) import Text.Pandoc.Definition +import qualified Data.Text as T -- | A simple (legacy-style) table. data SimpleTable = SimpleTable @@ -95,6 +96,26 @@ "relative column widths" <#> parameter peekRow "{Blocks,...}" "header" "table header row" - <#> parameter (peekList peekRow) "{{Blocks,...},...}" "body" - "table body rows" + <#> parameter (peekList peekRow) "{{Blocks,...},...}" "rows" + "table rows" =#> functionResult pushSimpleTable "SimpleTable" "new SimpleTable object" + #? T.unlines + [ "Usage:" + , " " + , " local caption = \"Overview\"" + , " local aligns = {pandoc.AlignDefault, pandoc.AlignDefault}" + , " local widths = {0, 0} -- let pandoc determine col widths" + , " local headers = {{pandoc.Plain({pandoc.Str \"Language\"})}," + , " {pandoc.Plain({pandoc.Str \"Typing\"})}}" + , " local rows = {" + , " {{pandoc.Plain \"Haskell\"}, {pandoc.Plain \"static\"}}," + , " {{pandoc.Plain \"Lua\"}, {pandoc.Plain \"Dynamic\"}}," + , " }" + , " simple_table = pandoc.SimpleTable(" + , " caption," + , " aligns," + , " widths," + , " headers," + , " rows" + , " )" + ] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/TableFoot.hs new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/TableFoot.hs --- old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/TableFoot.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/TableFoot.hs 2001-09-09 03:46:40.000000000 +0200 @@ -72,6 +72,8 @@ ### liftPure2 (\mCells mAttr -> TableFoot (fromMaybe nullAttr mAttr) (fromMaybe [] mCells)) - <#> opt (parameter (peekList peekRowFuzzy) "{Row,...}" "rows" "footer rows") + <#> opt (parameter (peekList peekRowFuzzy) "{Row,...}" "rows" + "list of table rows") <#> opt (parameter peekAttr "Attr" "attr" "table foot attributes") =#> functionResult pushTableFoot "TableFoot" "new TableFoot object" + #? "Creates a table foot." diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/TableHead.hs new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/TableHead.hs --- old/pandoc-lua-marshal-0.2.7/src/Text/Pandoc/Lua/Marshal/TableHead.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-marshal-0.2.7.1/src/Text/Pandoc/Lua/Marshal/TableHead.hs 2001-09-09 03:46:40.000000000 +0200 @@ -72,6 +72,8 @@ ### liftPure2 (\mRows mAttr -> TableHead (fromMaybe nullAttr mAttr) (fromMaybe [] mRows)) - <#> opt (parameter (peekList peekRowFuzzy) "{Row,...}" "rows" "header rows") + <#> opt (parameter (peekList peekRowFuzzy) "{Row,...}" "rows" + "list of table rows") <#> opt (parameter peekAttr "Attr" "attr" "table head attributes") =#> functionResult pushTableHead "TableHead" "new TableHead object" + #? "Creates a table head."