anselme/ast/Text.lua

local ast = require("ast")
local AutoCall, Event, Runtime = ast.abstract.AutoCall, ast.abstract.Event, ast.abstract.Runtime

return Runtime(AutoCall, Event) {
	type = "text",

	list = nil, -- { { String, tag Table }, ... }

	init = function(self)
		self.list = {}
	end,
	insert = function(self, str, tags) -- only for construction
		table.insert(self.list, { str, tags })
	end,

	traverse = function(self, fn, ...)
		for _, e in ipairs(self.list) do
			fn(e[1], ...)
			fn(e[2], ...)
		end
	end,

	_format = function(self, ...)
		local t = {}
		for _, e in ipairs(self.list) do
			table.insert(t, ("%s%s"):format(e[2]:format(...), e[1]:format(...)))
		end
		return ("| %s|"):format(table.concat(t, " "))
	end,

	-- Text comes from TextInterpolation which already evals the contents

	to_event_data = function(self)
		return self
	end
}