+
+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
+;;
+