gnu: geeqie: Update to commit c220dde.

* gnu/packages/image-viewers.scm (geeqie): Update to commit c220dde.
[source]: Use 'git-fetch' and 'git-reference'.
[arguments] <pre-bootstrap>: Add 'substitute*' calls for 'configure.ac'
and 'po/POTFILES.in'.

gnu/packages/image-viewers.scm

@@ -110,17 +110,22 @@ (define-public feh
               "See 'COPYING' in the distribution."))))
 
 (define-public geeqie
+  ;; The latest release, 1.4, fails to build with Exiv2 0.27.1.  The upstream
+  ;; repo has several fixes for that, so take a snapshot.
+  (let ((commit "c220ddefb1b6b11b54f7598f0d44dd0723325ed4")
+        (revision "1"))
     (package
       (name "geeqie")
-    (version "1.4")
+      (version (git-version "1.4" revision commit))
       (source (origin
-             (method url-fetch)
-             (uri (string-append "https://github.com/BestImageViewer/geeqie/"
-                                 "releases/download/v" version "/geeqie-"
-                                 version ".tar.xz"))
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://github.com/BestImageViewer/geeqie")
+                      (commit commit)))
                 (sha256
                  (base32
-               "0ciygvcxb78pqg59r6p061mkbpvkgv2rv3r79j3kgv3kalb3ln2w"))))
+                  "07424nzrnwbksgalgg1a6ig2snd986w79kca1cfnv1q9kc7x2h3x"))
+                (file-name (git-file-name name version))))
       (build-system gnu-build-system)
       (arguments
        `( ;; Enable support for a "map" pane using GPS data.
@@ -139,6 +144,15 @@ (define (write-dummy-changelog port)
                (call-with-output-file "ChangeLog.html"
                  write-dummy-changelog)
                (setenv "NOCONFIGURE" "true")
+
+               ;; Don't try to run 'git' for the version number.
+               (substitute* "configure.ac"
+                 (("m4_esyscmd_s\\([^)]+\\)")
+                  (string-append "[" ,version "]")))
+
+               ;; Remove references to non-existent files.
+               (substitute* "po/POTFILES.in"
+                 (("^plugins/import/.*") ""))
                #t)))))
       (inputs
        `(("clutter" ,clutter)
@@ -162,7 +176,7 @@ (define (write-dummy-changelog port)
 and directories, there is no need to import images; fast preview for many raw
 image formats; tools for image comparison, sorting and managing photo
 collection.  Geeqie was initially based on GQview.")
-    (license license:gpl2+)))
+      (license license:gpl2+))))
 
 (define-public gpicview
   (package