Long header will be broken in typst writer

[st1020]

Explain the problem.

A very long header will be broken in typst writer.

E.g.

A markdown with a very long header:

# a very very very very very very very very very very very very very very very very very very very very very long header

Use pandoc command:

pandoc t.md -f markdown -t typst -s -o t.typ

The following typst documents will be generated:

= a very very very very very very very very very very very very very
very very very very very very very very long header
<a-very-very-very-very-very-very-very-very-very-very-very-very-very-very-very-very-very-very-very-very-very-long-header>

I used a lua filter to temporarily fix it:

return {
    {
        -- Fix pandoc header error, pandoc will add break line in in very long header
        Header = function(el)
            if FORMAT:match "typst" then
                local text = ""
                for _, i in pairs(el.content) do
                    if i.t == "Str" then
                        text = text .. i.text
                    elseif i.t == "Space" then
                        text = text .. " "
                    end
                end
                return pandoc.RawInline("typst", "#heading(level: " .. el.level .. ")[" .. text .. "]")
            end
        end
    },
}

I think it should be easy to fix, but I don't know Haskell at all so can't help further.

Pandoc version?
version: 3.1.8
os: Darwin Kernel Version 22.6.0