From b7da6362c2850bae63941bba2cd81d6e6450707b Mon Sep 17 00:00:00 2001 From: nixo Date: Mon, 18 Jan 2021 23:17:43 +0100 Subject: [PATCH] fontconfig/pattern.scm (pattern-get): Take symbol instead of string. * examples/example.scm: Update accordingly. --- examples/example.scm | 6 +++--- fontconfig/pattern.scm | 4 +++- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/examples/example.scm b/examples/example.scm index 81ebd3c..bdcee10 100644 --- a/examples/example.scm +++ b/examples/example.scm @@ -10,9 +10,9 @@ Font located at: ~A Style & Family: ~A ~A Fc Match String: ~A " - (pattern-get pat "file") - (pattern-get pat "style") - (pattern-get pat "family") + (pattern-get pat 'file) + (pattern-get pat 'style) + (pattern-get pat 'family) (pattern->format pat "%{=fcmatch}"))) (pattern-list pattern))) diff --git a/fontconfig/pattern.scm b/fontconfig/pattern.scm index 68427b5..5ff1887 100644 --- a/fontconfig/pattern.scm +++ b/fontconfig/pattern.scm @@ -160,7 +160,9 @@ (define (pattern-get pattern attr) (let ((out (bytevector->pointer (make-bytevector (* int 2))))) (ffi:fontconfig-pattern-get - (unwrap-pattern pattern) (string->pointer attr) 0 out) + (unwrap-pattern pattern) + (string->pointer (symbol->string attr)) + 0 out) (fontconfig-value out))) (define (pointer->font-list ptr)