From: Jan Moringen <scymtym@gmx.net>
Date: Sat, 5 Feb 2011 22:38:39 +0000 (+0100)
Subject: Added escaping of Gtk markup in gtk/gtk.markup.lisp
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-gtk2.git;a=commitdiff_plain;h=ae006838093cfeb67b3818526622fb5cb61d5300

Added escaping of Gtk markup in gtk/gtk.markup.lisp
---

diff --git a/gtk/cl-gtk2-gtk.asd b/gtk/cl-gtk2-gtk.asd
index 5345dcb..6eaf650 100644
--- a/gtk/cl-gtk2-gtk.asd
+++ b/gtk/cl-gtk2-gtk.asd
@@ -68,6 +68,7 @@
                (:file "gtk.clipboard")
                (:file "gtk.info-bar")
 	       (:file "gtk.spinner")
+	       (:file "gtk.markup")
 
                (:file "gtk.main-loop-events")
 
diff --git a/gtk/gtk.markup.lisp b/gtk/gtk.markup.lisp
new file mode 100644
index 0000000..b574a9b
--- /dev/null
+++ b/gtk/gtk.markup.lisp
@@ -0,0 +1,11 @@
+(in-package :gtk)
+
+(defcfun |g_markup_escape_text| :string
+  (raw  :string)
+  (size :int))
+
+(defun markup-escape-text (raw)
+  (cffi:with-foreign-string (s raw)
+    (|g_markup_escape_text| s (length raw))))
+
+(export 'markup-escape-text)