@@ -185,9 +185,7 @@ blockToDocbook _ (CodeBlock (_,classes,_) str) =
185185 else languagesByExtension . map toLower $ s
186186 langs = concatMap langsFrom classes
187187blockToDocbook opts (BulletList lst) =
188− let attribs = case lst of
189− ((Plain _:_):_) -> [("spacing", "compact")]
190− _ -> []
188+ let attribs = [("spacing", "compact") | isTightList lst]
191189 in inTags True "itemizedlist" attribs $ listItemsToDocbook opts lst
192190blockToDocbook _ (OrderedList _ []) = empty
193191blockToDocbook opts (OrderedList (start, numstyle, _) (first:rest)) =
@@ -199,9 +197,7 @@ blockToDocbook opts (OrderedList (start, numstyle, _) (first:rest)) =
199197 LowerAlpha -> [("numeration", "loweralpha")]
200198 UpperRoman -> [("numeration", "upperroman")]
201199 LowerRoman -> [("numeration", "lowerroman")]
202− spacing = case first of
203− (Plain _:_) -> [("spacing", "compact")]
204− _ -> []
200+ spacing = [("spacing", "compact") | isTightList (first:rest)]
205201 attribs = numeration ++ spacing
206202 items = if start == 1
207203 then listItemsToDocbook opts (first:rest)
@@ -210,9 +206,7 @@ blockToDocbook opts (OrderedList (start, numstyle, _) (first:rest)) =
210206 listItemsToDocbook opts rest
211207 in inTags True "orderedlist" attribs items
212208blockToDocbook opts (DefinitionList lst) =
213− let attribs = case lst of
214− ((_, (Plain _:_):_):_) -> [("spacing", "compact")]
215− _ -> []
209+ let attribs = [("spacing", "compact") | isTightList $ concatMap snd lst]
216210 in inTags True "variablelist" attribs $ deflistItemsToDocbook opts lst
217211blockToDocbook _ (RawBlock f str)
218212 | f == "docbook" = text str -- raw XML block