(use-modules (gnu packages)
             (gnu packages autotools)
             (gnu packages libffi)
             (gnu packages gettext)
             (gnu packages glib)
             (gnu packages linux)
             (gnu packages xml)
             (gnu packages gnome)
             (gnu packages texinfo)
             (gnu packages gtk)
             (gnu packages guile)
             (gnu packages guile-xyz)
             (gnu packages pkg-config)
             (guix build-system glib-or-gtk)
             (guix download)
             (guix git-download)
             (guix gexp)
             ((guix licenses)
              #:prefix license:)
             (guix packages)
             (guix transformations)
             (srfi srfi-1))

(define-public guile-cairo-next
  (package
    (inherit guile-cairo)
    (source (origin
             (method git-fetch)
             (uri (git-reference
                   (url "git://git.savannah.nongnu.org/guile-cairo.git")
                   (commit "30da459d7a4380174ff243b1560d5512a4bca86e")))
             (sha256
              (base32
               "0dslfldzgxis8g0g3xaffcqnd1njzz23fjy0v3lc0r2694ra4ny4"))
             (file-name (string-append "guile-cairo-next"))))
    (inputs
     (list guile-lib expat guile-3.0 gettext-minimal))
    (native-inputs
     (list autoconf-2.71 automake libtool pkg-config texinfo))
    ))

(package
  (name "tcgocr")
  (version "0.01")
  (source
   (local-file (dirname (current-filename))
               #:recursive? #t
               #:select? (lambda (file stat)
                           (not (any (lambda (my-string)
                                       (string-contains file my-string))
                                     (list ".git" ".dir-locals.el" "guix.scm"))))))
  (build-system glib-or-gtk-build-system)
  (arguments
   `())
  (native-inputs (list pkg-config  libtool automake autoconf-2.71 ))
  (inputs (list ;;((package-input-rewriting
                  ;;`((,libffi . ,libffi-sans-static-trampolines)))
                 guile-3.0;;)
                glib
                gtk
                libadwaita
                ((options->transformation '((without-tests . "guile-cairo")))
                  guile-cairo-next)
                ((options->transformation '((with-debug-info . "gobject-introspection")
                                            (with-commit . "guile-g-golf=ab666af394e92180c0ffb67363b2bde061b92b84");v0.8.0-rc.5")
                                            ))
                 guile-g-golf)
                (list glib "debug")
                (list libffi "debug")
                ))
  (propagated-inputs (list))
  (synopsis "")
  (description "")
  (home-page "https://none.yet")
  (license license:gpl3+))