diff options
| author | black-desk <[email protected]> | 2022-06-24 00:59:11 +0800 |
|---|---|---|
| committer | GitHub <[email protected]> | 2022-06-23 09:59:11 -0700 |
| commit | 2abf56f508760a9a7711a00a4d3fd9fa83c6f61e (patch) | |
| tree | 360a98801d2de4fef685c96a3f48d6c69a6b4369 /src | |
| parent | 3876f15b453b6fd7a256e41d914fa26a580969e9 (diff) | |
Remove extra soft break for tasklist (#8142)
Browser will display the extra newline character between checkbox and
text as a space, which make tasklist items cannot be aligned.
I just remove it.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 769df7b0e..a8c662e09 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -502,7 +502,7 @@ listItemToHtml opts bls let checkbox = if checked then checkbox' ! A.checked "" else checkbox' - checkbox' = H.input ! A.type_ "checkbox" ! A.disabled "" >> nl + checkbox' = H.input ! A.type_ "checkbox" ! A.disabled "" isContents <- inlineListToHtml opts is bsContents <- blockListToHtml opts bs return $ constr (checkbox >> isContents) >> bsContents |