-;;; Fonts
-
-(define-foreign font-load () font
- (font-name string))
-
-(defun ensure-font (font)
- (etypecase font
- (null nil)
- (font font)
- (string (font-load font))))
-
-(define-foreign fontset-load () font
- (fontset-name string))
-
-(define-foreign font-ref () font
- (font font))
-
-(define-foreign font-unref () nil
- (font font))
-
-(defun font-maybe-unref (font1 font2)
- (unless (eq font1 font2)
- (font-unref font1)))
-
-(define-foreign font-id () int
- (font font))
-
-(define-foreign ("gdk_font_equal" font-equalp) () boolean
- (font-a font)
- (font-b font))
-
-(define-foreign string-width () int
- (font font)
- (string string))
-
-(define-foreign text-width
- (font text &aux (length (length text))) int
- (font font)
- (text string)
- (length int))
-
-; (define-foreign ("gdk_text_width_wc" text-width-wc)
-; (font text &aux (length (length text))) int
-; (font font)
-; (text string)
-; (length int))
-
-(define-foreign char-width () int
- (font font)
- (char char))
-
-; (define-foreign ("gdk_char_width_wc" char-width-wc) () int
-; (font font)
-; (char char))
-
-
-(define-foreign string-measure () int
- (font font)
- (string string))
-
-(define-foreign text-measure
- (font text &aux (length (length text))) int
- (font font)
- (text string)
- (length int))
-
-(define-foreign char-measure () int
- (font font)
- (char char))
-
-(define-foreign string-height () int
- (font font)
- (string string))
-
-(define-foreign text-height
- (font text &aux (length (length text))) int
- (font font)
- (text string)
- (length int))
-
-(define-foreign char-height () int
- (font font)
- (char char))
-
-