fix: remove special handling of align attribute in HTML paragraphs

- Treat align attribute like any other attribute
- Always wrap paragraphs with attributes in divs (including align-only)
- Remove validation logic for align values
- Update tests to reflect consistent wrapper behavior

Author: Valgard

src/Text/Pandoc/Readers/HTML.hs

@@ -627,45 +627,34 @@ pPlain = do
 pParaWithWrapper :: PandocMonad m => Attr -> TagParser m Blocks
 pParaWithWrapper (ident, classes, kvs) = do
   guardEnabled Ext_native_divs -- Ensure native_divs is enabled for this behavior
-  pInhalt <- trimInlines <$> pInTags "p" inline
+  contents <- trimInlines <$> pInTags "p" inline
   (do guardDisabled Ext_empty_paragraphs
-      guard (null pInhalt)
+      guard (null contents)
       return mempty) <|> do
     let wrapperAttr = ("wrapper", "1")
-    let alignValue = lookup "align" kvs
-    let otherKVs = filter (\(k,_) -> k /= "align") kvs
-    let validAlignKV = case alignValue of
-                         Just algn | algn `elem` ["left","right","center","justify"] -> [("align", algn)]
-                         _ -> []
-    let finalKVs = wrapperAttr : (validAlignKV ++ otherKVs)
+    let finalKVs = wrapperAttr : kvs
     let finalAttrs = (ident, classes, finalKVs)
-    return $ B.divWith finalAttrs (B.para pInhalt)
+    return $ B.divWith finalAttrs (B.para contents)
 
--- Helper function for pPara when only align or no attributes are present
-pParaSimple :: PandocMonad m => Maybe Text -> TagParser m Blocks
-pParaSimple alignValue = do
+-- Helper function for pPara when no significant attributes are present
+pParaSimple :: PandocMonad m => TagParser m Blocks
+pParaSimple = do
   contents <- trimInlines <$> pInTags "p" inline
-  let paraBlock = B.para contents
   (do guardDisabled Ext_empty_paragraphs
       guard (null contents)
       return mempty) <|>
-    return (case alignValue of
-              Just algn | algn `elem` ["left","right","center","justify"] ->
-                            B.divWith ("", [], [("align", algn)]) paraBlock
-              _ -> paraBlock)
+    return (B.para contents)
 
 pPara :: PandocMonad m => TagParser m Blocks
 pPara = do
   TagOpen _ attr' <- lookAhead $ pSatisfy (matchTagOpen "p" [])
   let attr@(ident, classes, kvs) = toAttr attr'
-  let alignValue = lookup "align" kvs
-  -- "Significant" attributes are any id, class, or key-value pair other than 'align'.
-  let significantKVs = filter (\(k,_) -> k /= "align") kvs
-  let hasSignificantAttributes = not (T.null ident) || not (null classes) || not (null significantKVs)
+  -- "Significant" attributes are any id, class, or key-value pair.
+  let hasSignificantAttributes = not (T.null ident) || not (null classes) || not (null kvs)
 
   if hasSignificantAttributes
     then pParaWithWrapper attr
-    else pParaSimple alignValue
+    else pParaSimple
 
 pFigure :: PandocMonad m => TagParser m Blocks
 pFigure = do

test/Tests/Readers/HTML.hs

@@ -158,10 +158,10 @@ tests = [ testGroup "base tag"
             doc (para (text "This is a normal paragraph."))
           , test htmlNativeDivs "paragraph with align only (center)" $
             "<p align=\"center\">Aligned paragraph.</p>" =?>
-            doc (divWith ("", [], [("align", "center")]) (para (text "Aligned paragraph.")))
+            doc (divWith ("", [], [("wrapper", "1"), ("align", "center")]) (para (text "Aligned paragraph.")))
           , test htmlNativeDivs "paragraph with align only (right)" $
             "<p align=\"right\">Aligned paragraph.</p>" =?>
-            doc (divWith ("", [], [("align", "right")]) (para (text "Aligned paragraph.")))
+            doc (divWith ("", [], [("wrapper", "1"), ("align", "right")]) (para (text "Aligned paragraph.")))
           , test htmlNativeDivs "paragraph with align and id" $
             "<p id=\"foo\" align=\"left\">Aligned paragraph with id.</p>" =?>
             doc (divWith ("foo", [], [("wrapper", "1"), ("align", "left")]) (para (text "Aligned paragraph with id.")))
@@ -170,10 +170,10 @@ tests = [ testGroup "base tag"
             doc (divWith ("", ["bar"], [("wrapper", "1"), ("align", "justify")]) (para (text "Aligned paragraph with class.")))
           , test htmlNativeDivs "paragraph with invalid align" $
             "<p align=\"invalid\">Invalid align.</p>" =?>
-            doc (para (text "Invalid align."))
+            doc (divWith ("", [], [("wrapper", "1"), ("align", "invalid")]) (para (text "Invalid align.")))
           , test htmlNativeDivs "paragraph with invalid align and id" $
             "<p id=\"baz\" align=\"invalid\">Invalid align with id.</p>" =?>
-            doc (divWith ("baz", [], [("wrapper", "1")]) (para (text "Invalid align with id.")))
+            doc (divWith ("baz", [], [("wrapper", "1"), ("align", "invalid")]) (para (text "Invalid align with id.")))
           ]
         , askOption $ \(QuickCheckTests numtests) ->
             testProperty "Round trip" $