From c4a430facbeaa55a9de8edd69145243475c94087 Mon Sep 17 00:00:00 2001 From: Rhiannon Morris Date: Tue, 3 Dec 2024 23:56:44 +0100 Subject: [PATCH] handle figure ids better --- langfilter/lib/LangFilter.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/langfilter/lib/LangFilter.hs b/langfilter/lib/LangFilter.hs index 16e3460..34fdbcb 100644 --- a/langfilter/lib/LangFilter.hs +++ b/langfilter/lib/LangFilter.hs @@ -36,8 +36,10 @@ pluck1 (x:xs) ys = (x,) <$> pluck x ys <|> pluck1 xs ys fixFigureClass :: Block -> Block -fixFigureClass (Figure (_, c1, a1) cap [Plain [Image (i, c2, a2) alt path]]) = - Figure (i, c1 ++ c2, a1 ++ a2) cap [Plain [Image ("", [], []) alt path]] +fixFigureClass (Figure (i1, c1, a1) cap [Plain [Image (i2, c2, a2) alt path]]) = + Figure (iF, c1 ++ c2, a1 ++ a2) cap [Plain [Image (iI, [], []) alt path]] + where iF = if Text.null i1 then i2 else i1 + iI = if Text.null i1 then "" else i2 fixFigureClass b = b makeBlocks :: Block -> [Block]