pango/pango.lisp

   1 (in-package :pango)
   2
   3 (define-g-enum "PangoWrapMode" pango-wrap-mode
   4     (:export t :type-initializer
   5              "pango_wrap_mode_get_type")
   6   (:word 0) (:char 1) (:word-char 2))
   7
   8 (export 'pango-wrap-mode)
   9
  10 (define-g-enum "PangoEllipsizeMode" pango-ellipsize-mode
  11     (:export t :type-initializer
  12              "pango_ellipsize_mode_get_type")
  13   (:none 0) (:start 1) (:middle 2) (:end 3))
  14
  15 (export 'pango-ellipsize-mode)
  16
  17 (define-g-object-class "PangoLayout" pango-layout (:type-initializer "pango_layout_get_type") ())
  18
  19 (export 'pango-layout)
  20
  21 (define-g-enum "PangoUnderline" pango-underline (:export t :type-initializer "pango_underline_get_type")
  22   (:none 0)
  23   (:single 1)
  24   (:double 2)
  25   (:low 3)
  26   (:error 4))
  27
  28 (export 'pango-underline)
  29
  30 (define-g-enum "PangoDirection"
  31     pango-direction
  32     (:export t :type-initializer "pango_direction_get_type")
  33   (:ltr 0)
  34   (:rtl 1)
  35   (:ttb-ltr 2)
  36   (:ttb-rtl 3)
  37   (:weak-ltr 4)
  38   (:weak-rtl 5)
  39   (:neutral 6))
  40
  41 (define-g-object-class "PangoRenderer" pango-renderer
  42   (:superclass g-object :export t :interfaces
  43                nil :type-initializer
  44                "pango_renderer_get_type")
  45   nil)
  46
  47 (define-g-object-class "PangoContext" pango-context
  48   (:superclass g-object :export t :interfaces
  49                nil :type-initializer
  50                "pango_context_get_type")
  51   nil)
  52
  53 (define-g-enum "PangoRenderPart"
  54     pango-render-part
  55     (:export t :type-initializer "pango_render_part_get_type")
  56   (:foreground 0)
  57   (:background 1)
  58   (:underline 2)
  59   (:strikethrough 3))
  60
  61 (define-g-boxed-opaque pango-layout-line "PangoLayoutLine"
  62   :alloc (error "Use Pango to create PANGO-LAYOUT-LINEs"))
  63
  64 (export (boxed-related-symbols 'pango-layout-line))
  65
  66 (define-g-enum "PangoRenderPart"
  67     pango-render-part
  68     (:export t :type-initializer "pango_render_part_get_type")
  69   (:foreground 0)
  70   (:background 1)
  71   (:underline 2)
  72   (:strikethrough 3))
  73
  74 (defcfun pango_glyph_string_new :pointer)
  75
  76 (define-g-boxed-opaque pango-glyph-string "PangoGlyphString"
  77   :alloc (pango_glyph_string_new))
  78
  79 (export (boxed-related-symbols 'pango-glyph-string))
  80
  81 (define-g-object-class "PangoFont" pango-font
  82   (:superclass g-object :export t :interfaces
  83                nil :type-initializer
  84                "pango_font_get_type")
  85   nil)
  86
  87 (define-g-boxed-cstruct pango-matrix "PangoMatrix"
  88   (xx :double :initform 0.0)
  89   (xy :double :initform 0.0)
  90   (yx :double :initform 0.0)
  91   (yy :double :initform 0.0)
  92   (x0 :double :initform 0.0)
  93   (y0 :double :initform 0.0))
  94
  95 (export (boxed-related-symbols 'pango-matrix))
  96
  97 (define-g-boxed-opaque pango-layout-line "PangoLayoutLine"
  98   :alloc (error "You do not create PangoLayoutLine yourself"))
  99
 100 (export (boxed-related-symbols 'pango-layout-line))