Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-pandoc-lua-engine for openSUSE:Factory checked in at 2024-10-28 15:19:02 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-pandoc-lua-engine (Old) and /work/SRC/openSUSE:Factory/.ghc-pandoc-lua-engine.new.2020 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-pandoc-lua-engine" Mon Oct 28 15:19:02 2024 rev:10 rq:1218566 version:0.3.3 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-pandoc-lua-engine/ghc-pandoc-lua-engine.changes 2024-08-06 09:08:43.678689234 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-pandoc-lua-engine.new.2020/ghc-pandoc-lua-engine.changes 2024-10-28 15:21:28.978356253 +0100 @@ -1,0 +2,12 @@ +Sat Oct 5 21:05:45 UTC 2024 - Peter Simons <psimons@suse.com> + +- Update pandoc-lua-engine to version 0.3.3. + Upstream does not provide a change log file. + +------------------------------------------------------------------- +Tue Sep 10 17:25:21 UTC 2024 - Peter Simons <psimons@suse.com> + +- Update pandoc-lua-engine to version 0.3.2. + Upstream does not provide a change log file. + +------------------------------------------------------------------- Old: ---- pandoc-lua-engine-0.3.1.tar.gz New: ---- pandoc-lua-engine-0.3.3.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-pandoc-lua-engine.spec ++++++ --- /var/tmp/diff_new_pack.HZruk4/_old 2024-10-28 15:21:30.530420890 +0100 +++ /var/tmp/diff_new_pack.HZruk4/_new 2024-10-28 15:21:30.534421056 +0100 @@ -20,15 +20,13 @@ %global pkgver %{pkg_name}-%{version} %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.3.1 +Version: 0.3.3 Release: 0 Summary: Lua engine to power custom pandoc conversions License: GPL-2.0-or-later URL: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{version}.tar.gz BuildRequires: ghc-Cabal-devel -BuildRequires: ghc-SHA-devel -BuildRequires: ghc-SHA-prof BuildRequires: ghc-aeson-devel BuildRequires: ghc-aeson-prof BuildRequires: ghc-base-devel @@ -39,6 +37,8 @@ BuildRequires: ghc-citeproc-prof BuildRequires: ghc-containers-devel BuildRequires: ghc-containers-prof +BuildRequires: ghc-crypton-devel +BuildRequires: ghc-crypton-prof BuildRequires: ghc-data-default-devel BuildRequires: ghc-data-default-prof BuildRequires: ghc-doclayout-devel ++++++ pandoc-lua-engine-0.3.1.tar.gz -> pandoc-lua-engine-0.3.3.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-engine-0.3.1/pandoc-lua-engine.cabal new/pandoc-lua-engine-0.3.3/pandoc-lua-engine.cabal --- old/pandoc-lua-engine-0.3.1/pandoc-lua-engine.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-engine-0.3.3/pandoc-lua-engine.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,6 +1,6 @@ cabal-version: 2.4 name: pandoc-lua-engine -version: 0.3.1 +version: 0.3.3 build-type: Simple license: GPL-2.0-or-later license-file: COPYING.md @@ -105,17 +105,17 @@ , Text.Pandoc.Lua.Writer.Classic , Text.Pandoc.Lua.Writer.Scaffolding - build-depends: SHA >= 1.6 && < 1.7 - , aeson + build-depends: aeson , bytestring >= 0.9 && < 0.13 + , crypton >= 0.30 && < 1.1 , citeproc >= 0.8 && < 0.9 , containers >= 0.6.0.1 && < 0.8 , data-default >= 0.4 && < 0.8 - , doclayout >= 0.4 && < 0.5 + , doclayout >= 0.5 && < 0.6 , doctemplates >= 0.11 && < 0.12 , exceptions >= 0.8 && < 0.11 , hslua >= 2.3 && < 2.4 - , hslua-module-doclayout>= 1.1 && < 1.2 + , hslua-module-doclayout>= 1.2 && < 1.3 , hslua-module-path >= 1.1 && < 1.2 , hslua-module-system >= 1.1 && < 1.2 , hslua-module-text >= 1.1 && < 1.2 @@ -124,8 +124,8 @@ , hslua-repl >= 0.1.1 && < 0.2 , lpeg >= 1.1 && < 1.2 , mtl >= 2.2 && < 2.4 - , pandoc >= 3.3 && < 3.4 - , pandoc-lua-marshal >= 0.2.7 && < 0.3 + , pandoc >= 3.5 && < 3.6 + , pandoc-lua-marshal >= 0.2.9 && < 0.3 , pandoc-types >= 1.22 && < 1.24 , parsec >= 3.1 && < 3.2 , text >= 1.1.1 && < 2.2 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-engine-0.3.1/src/Text/Pandoc/Lua/Filter.hs new/pandoc-lua-engine-0.3.3/src/Text/Pandoc/Lua/Filter.hs --- old/pandoc-lua-engine-0.3.1/src/Text/Pandoc/Lua/Filter.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-engine-0.3.3/src/Text/Pandoc/Lua/Filter.hs 2001-09-09 03:46:40.000000000 +0200 @@ -43,7 +43,10 @@ -- filter if nothing was returned. luaFilters <- forcePeek $ if newtop - oldtop >= 1 - then peekList peekFilter top -- get from explicit filter table + then liftLua (rawlen top) >>= \case + -- explicitly returned filter, either a single one or a list + 0 -> (:[]) <$!> peekFilter top -- single filter + _ -> peekList peekFilter top -- list of explicit filters else (:[]) <$!> peekFilter envIdx -- get the implicit filter in _ENV settop oldtop runAll luaFilters doc diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-engine-0.3.1/src/Text/Pandoc/Lua/Marshal/WriterOptions.hs new/pandoc-lua-engine-0.3.3/src/Text/Pandoc/Lua/Marshal/WriterOptions.hs --- old/pandoc-lua-engine-0.3.1/src/Text/Pandoc/Lua/Marshal/WriterOptions.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-engine-0.3.3/src/Text/Pandoc/Lua/Marshal/WriterOptions.hs 2001-09-09 03:46:40.000000000 +0200 @@ -95,6 +95,11 @@ (pushPandocList pushString, writerEpubFonts) (peekList peekString, \opts x -> opts{ writerEpubFonts = x }) + , property "epub_title_page" + "Determines whether a title page is included in EPUB" + (pushBool, writerEpubTitlePage) + (peekBool, \opts x -> opts{ writerEpubTitlePage = x }) + , property "epub_metadata" "Metadata to include in EPUB" (maybe pushnil pushText, writerEpubMetadata) @@ -120,6 +125,11 @@ (pushViaJSON, writerHTMLMathMethod) (peekViaJSON, \opts x -> opts{ writerHTMLMathMethod = x }) + , property "link_images" + "Include links to images instead of embedding in ODT" + (pushBool, writerLinkImages) + (peekBool, \opts x -> opts{ writerLinkImages = x }) + , property "html_q_tags" "Use @<q>@ tags for quotes in HTML" (pushBool, writerHtmlQTags) @@ -135,6 +145,16 @@ (pushBool, writerIncremental) (peekBool, \opts x -> opts{ writerIncremental = x }) + , property "list_of_figures" + "Include list of figures" + (pushBool, writerListOfFigures) + (peekBool, \opts x -> opts{ writerListOfFigures = x }) + + , property "list_of_tables" + "Include list of tables" + (pushBool, writerListOfTables) + (peekBool, \opts x -> opts{ writerListOfTables = x }) + , property "listings" "Use listings package for code" (pushBool, writerListings) @@ -170,6 +190,16 @@ (pushViaJSON, writerReferenceLocation) (peekViaJSON, \opts x -> opts{ writerReferenceLocation = x }) + , property "figure_caption_position" + "Location of caption relative to the figure" + (pushViaJSON, writerFigureCaptionPosition) + (peekViaJSON, \opts x -> opts{ writerFigureCaptionPosition = x }) + + , property "table_caption_position" + "Location of caption relative to the table" + (pushViaJSON, writerTableCaptionPosition) + (peekViaJSON, \opts x -> opts{ writerTableCaptionPosition = x }) + , property "section_divs" "Put sections in div tags in HTML" (pushBool, writerSectionDivs) @@ -180,6 +210,11 @@ (pushBool, writerSetextHeaders) (peekBool, \opts x -> opts{ writerSetextHeaders = x }) + , property "list_tables" + "Render tables using list tables in RST output" + (pushBool, writerListTables) + (peekBool, \opts x -> opts{ writerListTables = x }) + , property "slide_level" "Force header level of slides" (maybe pushnil pushIntegral, writerSlideLevel) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-engine-0.3.1/src/Text/Pandoc/Lua/Module/Utils.hs new/pandoc-lua-engine-0.3.3/src/Text/Pandoc/Lua/Module/Utils.hs --- old/pandoc-lua-engine-0.3.1/src/Text/Pandoc/Lua/Module/Utils.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-engine-0.3.3/src/Text/Pandoc/Lua/Module/Utils.hs 2001-09-09 03:46:40.000000000 +0200 @@ -19,6 +19,7 @@ import Control.Applicative ((<|>)) import Control.Monad ((<$!>)) +import Crypto.Hash (hashWith, SHA1(SHA1)) import Data.Data (showConstr, toConstr) import Data.Default (def) import Data.Maybe (fromMaybe) @@ -34,8 +35,6 @@ import Text.Pandoc.Lua.Marshal.Reference import Text.Pandoc.Lua.PandocLua (PandocLua (unPandocLua)) -import qualified Data.Digest.Pure.SHA as SHA -import qualified Data.ByteString.Lazy as BSL import qualified Data.Map as Map import qualified Data.Text as T import qualified Text.Pandoc.Builder as B @@ -54,16 +53,16 @@ , moduleFields = [] , moduleOperations = [] , moduleTypeInitializers = [] - , moduleFunctions = -- FIXME: order alphabetically + , moduleFunctions = [ blocks_to_inlines `since` v[2,2,3] , citeproc `since` v[2,19,1] , equals `since` v[2,5] , from_simple_table `since` v[2,11] , make_sections `since` v[2,8] + , normalize_date `since` v[2,0,6] , references `since` v[2,17] - , run_lua_filter `since` v[3,2,1] , run_json_filter `since` v[2,1,1] - , normalize_date `since` v[2,0,6] + , run_lua_filter `since` v[3,2,1] , sha1 `since` v[2,0,6] , stringify `since` v[2,0,6] , to_roman_numeral `since` v[2,0,6] @@ -301,8 +300,8 @@ -- | Documented Lua function to compute the hash of a string. sha1 :: DocumentedFunction e sha1 = defun "sha1" - ### liftPure (SHA.showDigest . SHA.sha1) - <#> parameter (fmap BSL.fromStrict . peekByteString) "string" "input" "" + ### liftPure (show . hashWith SHA1) + <#> parameter peekByteString "string" "input" "" =#> functionResult pushString "string" "hexadecimal hash value" #? "Computes the SHA1 hash of the given string input." diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-engine-0.3.1/src/Text/Pandoc/Lua/Module.hs new/pandoc-lua-engine-0.3.3/src/Text/Pandoc/Lua/Module.hs --- old/pandoc-lua-engine-0.3.1/src/Text/Pandoc/Lua/Module.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-engine-0.3.3/src/Text/Pandoc/Lua/Module.hs 2001-09-09 03:46:40.000000000 +0200 @@ -91,8 +91,10 @@ , Pandoc.Text.documentedModule , Pandoc.Types.documentedModule , Pandoc.Utils.documentedModule - , Module.Layout.documentedModule { moduleName = "pandoc.layout" } - `allSince` [2,18] + , ((Module.Layout.documentedModule { moduleName = "pandoc.layout" } + `allSince` [2,18]) + `functionsSince` ["bold", "italic", "underlined", "strikeout", "fg", "bg"]) + [3, 4, 1] , Module.Path.documentedModule { moduleName = "pandoc.path" } `allSince` [2,12] , Module.Zip.documentedModule { moduleName = "pandoc.zip" } @@ -102,6 +104,12 @@ allSince mdl version = mdl { moduleFunctions = map (`since` makeVersion version) $ moduleFunctions mdl } + functionsSince mdl fns version = mdl + { moduleFunctions = map (\fn -> + if (functionName fn) `elem` fns + then fn `since` makeVersion version + else fn) $ moduleFunctions mdl + } -- | Load all global modules and set them to their global variables. setGlobalModules :: PandocLua () diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pandoc-lua-engine-0.3.1/test/lua/single-to-double-quoted.lua new/pandoc-lua-engine-0.3.3/test/lua/single-to-double-quoted.lua --- old/pandoc-lua-engine-0.3.1/test/lua/single-to-double-quoted.lua 2001-09-09 03:46:40.000000000 +0200 +++ new/pandoc-lua-engine-0.3.3/test/lua/single-to-double-quoted.lua 2001-09-09 03:46:40.000000000 +0200 @@ -1,10 +1,8 @@ return { - { Quoted = function (elem) if elem.quotetype == "SingleQuote" then elem.quotetype = "DoubleQuote" end return elem end, - } }