798b7fdc5c
matching on only `{...}` does not trigger if the role tag is preceded by
something usually considered a semantic separator that isn't a separator
as markdown knows it, e.g. punctuation characters.
37 lines
1.3 KiB
Lua
37 lines
1.3 KiB
Lua
--[[
|
||
Replaces Str AST nodes containing {role}, followed by a Code node
|
||
by a Code node with attrs that would be produced by rST reader
|
||
from the role syntax.
|
||
|
||
This is to emulate MyST syntax in Pandoc.
|
||
(MyST is a CommonMark flavour with rST features mixed in.)
|
||
|
||
Reference: https://myst-parser.readthedocs.io/en/latest/syntax/syntax.html#roles-an-in-line-extension-point
|
||
]]
|
||
|
||
function Inlines(inlines)
|
||
for i = #inlines-1,1,-1 do
|
||
local first = inlines[i]
|
||
local second = inlines[i+1]
|
||
local correct_tags = first.tag == 'Str' and second.tag == 'Code'
|
||
if correct_tags then
|
||
-- docutils supports alphanumeric strings separated by [-._:]
|
||
-- We are slightly more liberal for simplicity.
|
||
-- Allow preceding punctuation (eg '('), otherwise '({file}`...`)'
|
||
-- does not match. Also allow anything followed by a non-breaking space
|
||
-- since pandoc emits those after certain abbreviations (e.g. e.g.).
|
||
local prefix, role = first.text:match('^(.*){([-._+:%w]+)}$')
|
||
if role ~= nil and (prefix == '' or prefix:match("^.*[%p ]$") ~= nil) then
|
||
if prefix == '' then
|
||
inlines:remove(i)
|
||
else
|
||
first.text = prefix
|
||
end
|
||
second.attributes['role'] = role
|
||
second.classes:insert('interpreted-text')
|
||
end
|
||
end
|
||
end
|
||
return inlines
|
||
end
|