丑陋的 xml 输出

Question

我正在使用 HaXml 来转换 XML 文件，一切都运行良好。然而 HaXml 生成的输出看起来非常难看，主要是因为它几乎在每个右括号处插入了换行符。 下面是一些生成 xml 的代码：

writeFile outPath (show . PP.content . head $ test (docContent (posInNewCxt "" Nothing) (xmlParse "" "")))

test = 
    mkElemAttr "test" [("a", literal "1"), ("b", literal "2")]
        [
            mkElem "nested" []
        ]

这是它生成的输出：

<test a="1" b="2"
  ><nested/></test>

当然，元素越多，情况就越糟糕。

我知道 HaXml 使用 Text.PrettyPrint.HughesPJ 进行渲染，但使用不同的 样式 没有太大变化。

那么，有没有办法改变输出呢？

Answer 1

将您对 show 的调用替换为 Text.PrettyPrint.renderStyle 您可以获得一些不同的行为：

import Text.XML.HaXml
import Text.XML.HaXml.Util
import Text.XML.HaXml.Posn
import qualified Text.XML.HaXml.Pretty as PP
import Text.PrettyPrint

main = writeFile "/tmp/x.xml" (renderStyle s . PP.content 
                                             . head $
               test (docContent (posInNewCxt "" Nothing) (xmlParse "" "")))
    where
        s = style { mode = LeftMode, lineLength = 2 }

test = 
    mkElemAttr "test" [("a", literal "1"), ("b", literal "2")]
        [
            mkElem "nested" []
        ]

尝试不同的开箱即用样式：

默认样式

<test a="1" b="2"
  ><nested/></test>

style { mode = OneLineMode }

<test a="1" b="2" ><nested/></test>

style { mode = LeftMode, lineLength = 2 }

<test a="1"
b="2"
><nested/></test>

所以你当然可以做一些不同的事情。

如果您不喜欢其中任何一个，您可以使用 fullRender：

fullRender
    :: Mode                     -- Rendering mode
    -> Int                      -- Line length
    -> Float                    -- Ribbons per line
    -> (TextDetails -> a -> a)  -- What to do with text
    -> a                        -- What to do at the end
    -> Doc                      -- The document
    -> a                        -- Result

您的自定义行为可以编程到 TextDetails 函数中。