gnu: g-golf-adw-1-examples: Downgrade to 0.8.0.

* gnu/packages/guile-xyz.scm (g-golf-source): New procedure.
(guile-g-golf, g-golf-adw-1-examples)[source]: Use it.
(g-golf-adw-1-examples)[version]: Go back to 0.8.0, where adwaita-1-demo
still supports our version of libadwaita.

Change-Id: I469d1039e859e5dafb0d4ca05a13f6f28ac87c24

gnu/packages/guile-xyz.scm

@@ -2565,19 +2565,24 @@ capabilities.")
     (home-page "https://dthompson.us/projects/sly.html")
     (license license:gpl3+)))
 
-(define-public guile-g-golf
+(define* (g-golf-source #:key version hash)
-  (package
-    (name "guile-g-golf")
-    (version "0.8.1")
-    (source
   (origin
     (method git-fetch)
     (uri (git-reference
           (url "https://git.savannah.gnu.org/git/g-golf.git")
           (commit (string-append "v" version))))
-       (file-name (git-file-name name version))
+    (file-name (git-file-name "g-golf" version))
-       (sha256
+    (hash hash)))
-        (base32 "044iidjd24cjncvx510ai46is9jxni72iz8pxyi34g4p7gbbcbi7"))))
+
+(define-public guile-g-golf
+  (package
+    (name "guile-g-golf")
+    (version "0.8.1")
+    (source
+     (g-golf-source #:version version
+                    #:hash
+                    (content-hash
+                     "044iidjd24cjncvx510ai46is9jxni72iz8pxyi34g4p7gbbcbi7")))
     (build-system gnu-build-system)
     (arguments
      (list
@@ -2865,6 +2870,13 @@ writing a Guix package.")))
   (package
     (inherit guile-g-golf)
     (name "g-golf-adw-1-examples")
+    ;; XXX: Update version when we have a recent enough libadwaita.
+    (version "0.8.0")
+    (source
+     (g-golf-source #:version version
+                    #:hash
+                    (content-hash
+                     "14b6pjchra0axqifpm90m7jbxla2sarhd7bfhzqbn7d14b74sv2d")))
     (build-system glib-or-gtk-build-system)
     (arguments
      (list