function HTMLItalics()
	local sel = editor:GetSelText()
	editor:ReplaceSel("<i>"..sel.."</i>")
end

function HTMLBold()
  local sel = editor:GetSelText()
  editor:ReplaceSel("<b>"..sel.."</b>")
end