gtk/gtk.markup.lisp

   1 (in-package :gtk)
   2
   3 (defcfun |g_markup_escape_text| :string
   4   (raw  :string)
   5   (size :int))
   6
   7 (defun markup-escape-text (raw)
   8   (cffi:with-foreign-string (s raw)
   9     (|g_markup_escape_text| s (length raw))))
  10
  11 (export 'markup-escape-text)