if BuildTimeConf.debug then
assert(Glib.Utf8.validate s);
Glib.Utf8.length s
+
+let escape_pango_markup text =
+ let text = Pcre.replace ~pat:"&" ~templ:"&" text in
+ let text = Pcre.replace ~pat:"<" ~templ:"<" text in
+ let text = Pcre.replace ~pat:"'" ~templ:"'" text in
+ let text = Pcre.replace ~pat:"\"" ~templ:""" text in
+ text
+;;
+