Let's make a macro!

This macro takes a namespace and a list of identifiers and creates
definitions for them.

ffi/unsafe/introspection.rkt

@@ -8,7 +8,10 @@
          (only-in racket/list index-of filter-map)
          (only-in racket/string string-join string-replace)
          (only-in racket/function curry curryr)
-         (for-syntax racket/base syntax/parse))
+         (for-syntax racket/base
+                     racket/syntax
+                     (only-in racket/function curry curryr)
+                     (only-in racket/string string-replace)))
 
 (define-ffi-definer define-gir (ffi-lib "libgirepository-1.0"))
 
@@ -768,3 +771,21 @@
 
 (define (introspection namespace [version #f])
   (gir-require namespace version))
+
+(define-syntax (gir/require stx)
+  (syntax-case stx ()
+    [(_ namespace (names ...))
+     (let ([c-id->racket-id (lambda (str)
+                              ((compose1 string->symbol
+                                         (curryr string-replace "_" "-")
+                                         string-downcase)
+                               (regexp-replace* #rx"([a-z]+)([A-Z]+)" str "\\1-\\2")))]
+           [string-names (map (compose1 symbol->string syntax-e)
+                              (syntax->list #'(names ...)))])
+       (with-syntax ([(pretty-names ...) (map (curry format-id stx "~a") (map c-id->racket-id string-names))])
+         #`(begin
+             (define pretty-names
+               (or (gir-find-by-name namespace 'names)
+                   (raise-argument-error 'pretty-names
+                                         (format "(gir-member/c ~v)" namespace)
+                                         'names))) ...)))]))