[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