From ae006838093cfeb67b3818526622fb5cb61d5300 Mon Sep 17 00:00:00 2001 From: Jan Moringen Date: Sat, 5 Feb 2011 23:38:39 +0100 Subject: [PATCH] Added escaping of Gtk markup in gtk/gtk.markup.lisp --- gtk/cl-gtk2-gtk.asd | 1 + gtk/gtk.markup.lisp | 11 +++++++++++ 2 files changed, 12 insertions(+) create mode 100644 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) -- 1.7.10.4