me/guix
Archived
1
0
Fork 0
Code Activity

gnu: geeqie: Update to commit c220dde.

Browse source 
* 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'.
This commit is contained in:
Ludovic Courtès 2019-07-03 12:00:10 +02:00
parent 723f5b1dc9
commit 9156396fe6
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 61 additions and 47 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
gnu/packages/image-viewers.scm
View file

@ -110,20 +110,25 @@ actions.")
"See 'COPYING' in the distribution.")))) "See 'COPYING' in the distribution."))))
(define-public geeqie (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 (package
(name "geeqie") (name "geeqie")
(version "1.4") (version (git-version "1.4" revision commit))
(source (origin (source (origin
(method url-fetch) (method git-fetch)
(uri (string-append "https://github.com/BestImageViewer/geeqie/" (uri (git-reference
"releases/download/v" version "/geeqie-" (url "https://github.com/BestImageViewer/geeqie")
version ".tar.xz")) (commit commit)))
(sha256 (sha256
(base32 (base32
"0ciygvcxb78pqg59r6p061mkbpvkgv2rv3r79j3kgv3kalb3ln2w")))) "07424nzrnwbksgalgg1a6ig2snd986w79kca1cfnv1q9kc7x2h3x"))
(file-name (git-file-name name version))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(;; Enable support for a "map" pane using GPS data. `( ;; Enable support for a "map" pane using GPS data.
#:configure-flags '("--enable-map") #:configure-flags '("--enable-map")
#:phases #:phases
@ -139,6 +144,15 @@ actions.")
(call-with-output-file "ChangeLog.html" (call-with-output-file "ChangeLog.html"
write-dummy-changelog) write-dummy-changelog)
(setenv "NOCONFIGURE" "true") (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))))) #t)))))
(inputs (inputs
`(("clutter" ,clutter) `(("clutter" ,clutter)
@ -162,7 +176,7 @@ interoperability; easy integration with other software; geeqie works on files
and directories, there is no need to import images; fast preview for many raw and directories, there is no need to import images; fast preview for many raw
image formats; tools for image comparison, sorting and managing photo image formats; tools for image comparison, sorting and managing photo
collection. Geeqie was initially based on GQview.") collection. Geeqie was initially based on GQview.")
(license license:gpl2+))) (license license:gpl2+))))
(define-public gpicview (define-public gpicview
(package (package