Markdown writer: fixed bugs in simple/multiline list output.

* Previously we got overlong lists with `--wrap=none`.  This is fixed.
* Previously a multiline list could become a simple list (and would
  always become one with `--wrap=none`).

Closes #3384.

src/Text/Pandoc/Writers/Markdown.hs

@@ -673,15 +673,14 @@ pandocTable opts headless aligns widths rawHeaders rawRows = do
   let minNumChars = (+ 2) . maximum . map minOffset
   let columns = transpose (rawHeaders : rawRows)
   -- minimal column width without wrapping a single word
-  let noWordWrapWidth
-        | writerWrapText opts == WrapAuto
-                              = fromIntegral $ maximum (map minNumChars columns)
-        | otherwise           = fromIntegral $ maximum (map    numChars columns)
-  let relWidth w = floor $ max (fromIntegral (writerColumns opts) * w)
-                               (noWordWrapWidth * w / minimum widths)
+  let relWidth w col =
+         max (floor $ fromIntegral (writerColumns opts) * w)
+             (if writerWrapText opts == WrapAuto
+                 then minNumChars col
+                 else numChars col)
   let widthsInChars
         | isSimple  = map numChars columns
-        | otherwise = map relWidth widths
+        | otherwise = zipWith relWidth widths columns
   let makeRow = hcat . intersperse (lblock 1 (text " ")) .
                    (zipWith3 alignHeader aligns widthsInChars)
   let rows' = map makeRow rawRows
@@ -698,9 +697,9 @@ pandocTable opts headless aligns widths rawHeaders rawRows = do
   let head'' = if headless
                   then empty
                   else border <> cr <> head'
-  let body = if maxRowHeight > 1
-                then vsep rows'
-                else vcat rows'
+  let body = if isSimple
+                then vcat rows'
+                else vsep rows'
   let bottom = if headless
                   then underline
                   else border

test/command/3384.md

@@ -0,0 +1,15 @@
+```
+% pandoc -t markdown --wrap=none
+  ----- ------------------------------------------------
+    foo bar
+
+    foo this is a long
+        line of text
+  ----- ------------------------------------------------
+^D
+  ------ ------------------------------------------------
+     foo bar
+
+     foo this is a long line of text
+  ------ ------------------------------------------------
+```