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

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

@ -110,59 +110,73 @@ actions.")
"See 'COPYING' in the distribution.")))) "See 'COPYING' in the distribution."))))
(define-public geeqie (define-public geeqie
(package ;; The latest release, 1.4, fails to build with Exiv2 0.27.1. The upstream
(name "geeqie") ;; repo has several fixes for that, so take a snapshot.
(version "1.4") (let ((commit "c220ddefb1b6b11b54f7598f0d44dd0723325ed4")
(source (origin (revision "1"))
(method url-fetch) (package
(uri (string-append "https://github.com/BestImageViewer/geeqie/" (name "geeqie")
"releases/download/v" version "/geeqie-" (version (git-version "1.4" revision commit))
version ".tar.xz")) (source (origin
(sha256 (method git-fetch)
(base32 (uri (git-reference
"0ciygvcxb78pqg59r6p061mkbpvkgv2rv3r79j3kgv3kalb3ln2w")))) (url "https://github.com/BestImageViewer/geeqie")
(build-system gnu-build-system) (commit commit)))
(arguments (sha256
`(;; Enable support for a "map" pane using GPS data. (base32
#:configure-flags '("--enable-map") "07424nzrnwbksgalgg1a6ig2snd986w79kca1cfnv1q9kc7x2h3x"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments
`( ;; Enable support for a "map" pane using GPS data.
#:configure-flags '("--enable-map")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'bootstrap 'pre-bootstrap (add-before 'bootstrap 'pre-bootstrap
(lambda _ (lambda _
(define (write-dummy-changelog port) (define (write-dummy-changelog port)
(display "See Git history for a change log.\n" port)) (display "See Git history for a change log.\n" port))
;; Create ChangeLog{,.html} to placate the makefile, which would ;; Create ChangeLog{,.html} to placate the makefile, which would
;; otherwise require access to the Git repo. ;; otherwise require access to the Git repo.
(call-with-output-file "ChangeLog" (call-with-output-file "ChangeLog"
write-dummy-changelog) write-dummy-changelog)
(call-with-output-file "ChangeLog.html" (call-with-output-file "ChangeLog.html"
write-dummy-changelog) write-dummy-changelog)
(setenv "NOCONFIGURE" "true") (setenv "NOCONFIGURE" "true")
#t)))))
(inputs ;; Don't try to run 'git' for the version number.
`(("clutter" ,clutter) (substitute* "configure.ac"
("libchamplain" ,libchamplain) (("m4_esyscmd_s\\([^)]+\\)")
("lcms" ,lcms) (string-append "[" ,version "]")))
("exiv2" ,exiv2)
("libpng" ,libpng) ;; Remove references to non-existent files.
("gtk+" ,gtk+))) (substitute* "po/POTFILES.in"
(native-inputs (("^plugins/import/.*") ""))
`(("autoconf" ,autoconf) #t)))))
("automake" ,automake) (inputs
("glib" ,glib "bin") ; glib-gettextize `(("clutter" ,clutter)
("intltool" ,intltool) ("libchamplain" ,libchamplain)
("pkg-config" ,pkg-config))) ("lcms" ,lcms)
(home-page "http://www.geeqie.org/") ("exiv2" ,exiv2)
(synopsis "Lightweight GTK+ based image viewer") ("libpng" ,libpng)
(description ("gtk+" ,gtk+)))
"Geeqie is a lightweight GTK+ based image viewer for Unix like operating (native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("glib" ,glib "bin") ; glib-gettextize
("intltool" ,intltool)
("pkg-config" ,pkg-config)))
(home-page "http://www.geeqie.org/")
(synopsis "Lightweight GTK+ based image viewer")
(description
"Geeqie is a lightweight GTK+ based image viewer for Unix like operating
systems. It features: EXIF, IPTC and XMP metadata browsing and editing systems. It features: EXIF, IPTC and XMP metadata browsing and editing
interoperability; easy integration with other software; geeqie works on files 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