From 7909982f9a17bddb69803b8779ed3d3587844f84 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Mon, 7 Jan 2013 20:12:05 -0800
Subject: [PATCH] Shared: export isTightList.
---
src/Text/Pandoc/Shared.hs | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 7bd35b138..648086fd4 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -60,6 +60,7 @@ module Text.Pandoc.Shared (
uniqueIdent,
isHeaderBlock,
headerShift,
+ isTightList,
-- * TagSoup HTML handling
renderTags',
-- * File handling
@@ -475,6 +476,12 @@ headerShift n = bottomUp shift
shift (Header level inner) = Header (level + n) inner
shift x = x
+-- | Detect if a list is tight.
+isTightList :: [[Block]] -> Bool
+isTightList = and . map firstIsPlain
+ where firstIsPlain (Plain _ : _) = True
+ firstIsPlain _ = False
+
--
-- TagSoup HTML handling
--