@@ -176,9 +176,10 @@ blockToTextile opts x@(BulletList items) = do
176176 return $ " <ul>\n" ++ vcat contents ++ " </ul>\n"
177177 else do
178178 modify $ \s -> s { stListLevel = stListLevel s ++ "*" }
179+ level <- get >>= return . length . stListLevel
179180 contents <- mapM (listItemToTextile opts) items
180181 modify $ \s -> s { stListLevel = init (stListLevel s) }
181− return $ vcat contents ++ "\n"
182+ return $ vcat contents ++ (if level > 1 then "" else "\n")
182183
183184blockToTextile opts x@(OrderedList attribs items) = do
184185 oldUseTags <- liftM stUseTags get
@@ -190,9 +191,10 @@ blockToTextile opts x@(OrderedList attribs items) = do
190191 " </ol>\n"
191192 else do
192193 modify $ \s -> s { stListLevel = stListLevel s ++ "#" }
194+ level <- get >>= return . length . stListLevel
193195 contents <- mapM (listItemToTextile opts) items
194196 modify $ \s -> s { stListLevel = init (stListLevel s) }
195− return $ vcat contents ++ "\n"
197+ return $ vcat contents ++ (if level > 1 then "" else "\n")
196198
197199blockToTextile opts (DefinitionList items) = do
198200 contents <- withUseTags $ mapM (definitionListItemToTextile opts) items