Use GObject-Introspection for GStreamer (add gir dependency)

info.rkt

@@ -1,7 +1,8 @@
 #lang info
 (define collection "overscan")
 (define deps '("base"
-               "rackunit-lib"))
+               "rackunit-lib"
+               "gir"))
 (define build-deps '("scribble-lib" "racket-doc"))
 (define scribblings '(("scribblings/overscan.scrbl" ())))
 (define pkg-desc "Video graphics companion")

main.rkt

@@ -25,21 +25,14 @@
 ;; http://docs.racket-lang.org/style/index.html
 
 ;; Code here
-(require ffi/unsafe
-         ffi/unsafe/define)
+(require gir)
 
-(define-ffi-definer define-gst (ffi-lib "libgstreamer-1.0"))
-(define-ffi-definer define-glib (ffi-lib "libglib-2.0"))
-
-(define-gst gst_init (_fun _pointer _pointer -> _void))
-(define-gst gst_init_check (_fun _pointer _pointer _pointer -> _bool))
-(define-gst gst_version (_fun _pointer _pointer _pointer _pointer -> _void))
-(define-gst gst_version_string (_fun -> _string))
+(define gst (gi-ffi "Gst"))
 
 (module+ test
   ;; Tests to be run with raco test
   )
 
 (module+ main
-  (displayln (format "This program is linked against ~a" (gst_version_string)))
+  (displayln (format "This program is linked against ~a" (gst 'version_string)))
   )

scribblings/overscan.scrbl

@@ -3,7 +3,7 @@
                     racket/base]]
 
 @title{Overscan}
-@author{(author+email "Mark Wunsch" "mark@markwunsch.com")}
+@author[(author+email "Mark Wunsch" "mark@markwunsch.com")]
 
 @defmodule[overscan]