# Strike processor
class MdStrikeProcessor
	super MdEmphasisDelimiterProcessor
	noautoinit

	redef var delimiter_char = '~'
	redef var min_length = 1
	redef fun delimiter_use(opener, closer) do return opener.original_length

	redef fun process(opener, closer, delimiter_use) do
		var node = new MdStrike(
				new MdLocation(
					opener.location.line_start,
					opener.location.column_start,
					closer.location.line_end,
					closer.location.column_end),
			opening_delimiter.to_s * delimiter_use)
		var tmp = opener.next
		while tmp != null and tmp != closer do
			var next = tmp.next
			node.append_child(tmp)
			tmp = next
		end
		opener.insert_after(node)
	end
end