redef class CmdEntityLink
	redef fun parser_init(mentity_name, options) do
		var opt_text = options.opt_string("text")
		if opt_text != null then text = opt_text
		var opt_title = options.opt_string("title")
		if opt_title != null then title = opt_title
		return super
	end
end

redef class CmdEntityLink
	redef fun http_init(req) do
		var opt_text = req.string_arg("text")
		if opt_text != null then text = opt_text
		var opt_title = req.string_arg("title")
		if opt_title != null then title = opt_title
		return super
	end
end

redef class CmdEntityLink
	redef fun to_md do
		var mentity = self.mentity
		if mentity == null then return ""
		return "`{mentity}`"
	end
end

redef class CmdEntityLink
	redef fun to_json do
		var obj = new JsonObject
		var text = self.text
		if text != null then obj["text"] = text
		var title = self.title
		if title != null then obj["title"] = title
		return obj
	end
end

redef class CmdEntityLink
	redef fun to_html do
		var mentity = self.mentity
		if mentity == null then return ""
		return mentity.html_link(text, title).write_to_string
	end
end