[packages/pandoc] rediff patch

atler atler at pld-linux.org
Sat Mar 19 19:23:03 CET 2022


commit 64fef92ddb8231695f5518bdaef9d28b3b0e8d24
Author: Jan Palus <atler at pld-linux.org>
Date:   Sat Mar 19 19:22:49 2022 +0100

    rediff patch

 jira-wiki-markup-1.3.patch | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)
---
diff --git a/jira-wiki-markup-1.3.patch b/jira-wiki-markup-1.3.patch
index e572d8b..1ff4089 100644
--- a/jira-wiki-markup-1.3.patch
+++ b/jira-wiki-markup-1.3.patch
@@ -157,7 +157,7 @@ index d1a6566875..19db341374 100644
  import Text.Pandoc.Writers.Shared (defField, metaToContext)
 @@ -193,8 +194,7 @@ toJiraInlines inlines = do
          Emph xs            -> styled Jira.Emphasis xs
-         Image attr _ tgt   -> imageToJira attr (fst tgt) (snd tgt)
+         Image _ _ (src, _) -> pure . singleton $ Jira.Image [] (Jira.URL src)
          LineBreak          -> pure . singleton $ Jira.Linebreak
 -        Link _ xs (tgt, _) -> singleton . flip Jira.Link (Jira.URL tgt)
 -                              <$> toJiraInlines xs
@@ -166,8 +166,8 @@ index d1a6566875..19db341374 100644
          Note bs            -> registerNotes bs
          Quoted qt xs       -> quotedToJira qt xs
 @@ -242,6 +242,28 @@ imageToJira (_, classes, kvs) src title =
-                    else Jira.Parameter "title" title : imgParams
-   in pure . singleton $ Jira.Image imgParams' (Jira.URL src)
+   Right xs -> xs
+   Left _  -> singleton $ Jira.Str t
  
 +-- | Creates a Jira Link element.
 +toJiraLink :: PandocMonad m
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/pandoc.git/commitdiff/64fef92ddb8231695f5518bdaef9d28b3b0e8d24



More information about the pld-cvs-commit mailing list