Manually render internal links

[champignoom]

Internal links [the link](#header1) is currently rendered into docx as:

<w:hyperlink w:anchor="header1">
<w:r>
	<w:rPr>
		<w:rStyle w:val="Hyperlink" />
	</w:rPr>
	<w:t xml:space="preserve">the link</w:t>
</w:r>
</w:hyperlink>

Unfortunately, this doesn't work in wps, which accepts the following:

<w:r>
    <w:fldChar w:fldCharType="begin"/>
    <w:instrText xml:space="preserve"> HYPERLINK \l &quot;header1&quot; </w:instrText>
    <w:fldChar w:fldCharType="separate"/>
    <w:rPr><w:rStyle w:val="Hyperlink"/></w:rPr><w:t xml:space="preserve">the link</w:t>
    <w:fldChar w:fldCharType="end"/>
</w:r>

How to write a lua filter to render a Link in the second way above?

[champignoom]

Solved.

function Link(elem)
	if elem.target:sub(1,1) ~= '#' then return end
	local span = pandoc.Span(elem.content)
	span.attributes['custom-style'] = 'Hyperlink'
	return {
		pandoc.RawInline('openxml', [[<w:r><w:fldChar w:fldCharType="begin"/></w:r>]]),
		pandoc.RawInline('openxml', [[<w:r><w:instrText xml:space="preserve"> HYPERLINK \l &quot;]] .. elem.target:sub(2) .. [[&quot; </w:instrText></w:r>]]),
		pandoc.RawInline('openxml', [[<w:r><w:fldChar w:fldCharType="separate"/></w:r>]]),
		span,
		pandoc.RawInline('openxml', [[<w:r><w:fldChar w:fldCharType="end"/></w:r>]]),
	}
end