me/guix
Archived
1
0
Fork 0
Code Activity

gnu: qview: Update to 5.0.

Browse source 
* gnu/packages/image-viewers.scm (qview): Update to 5.0.
[build-system]: Use QT-BUILD-SYSTEM.
[arguments]<#:phases>: Use G-expressions.  Remove trailing #T.  Add a new phase
for tests.
[native-inputs]: Add QTTOOLS.
[inputs]: Re-order alphabetically.
This commit is contained in:
Nicolas Goaziou 2022-02-14 00:45:33 +01:00
parent d65979c46c
commit c81b0dcc72
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 28 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -9,7 +9,7 @@
;;; Copyright © 2017 nee <nee-git@hidamari.blue> ;;; Copyright © 2017 nee <nee-git@hidamari.blue>
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2019, 2022 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2019, 2020, 2022 Guy Fleury Iteriteka <gfleury@disroot.org> ;;; Copyright © 2019, 2020, 2022 Guy Fleury Iteriteka <gfleury@disroot.org>
;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2020 Peng Mei Yu <pengmeiyu@riseup.net> ;;; Copyright © 2020 Peng Mei Yu <pengmeiyu@riseup.net>
@ -42,6 +42,7 @@
(define-module (gnu packages image-viewers) (define-module (gnu packages image-viewers)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils)
@ -49,6 +50,7 @@
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
#:use-module (guix build-system meson) #:use-module (guix build-system meson)
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module (guix build-system qt)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module (gnu packages algebra) #:use-module (gnu packages algebra)
#:use-module (gnu packages backup) #:use-module (gnu packages backup)
@ -745,7 +747,7 @@ For PDF support, install the @emph{mupdf} package.")
(define-public qview (define-public qview
(package (package
(name "qview") (name "qview")
(version "4.0") (version "5.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -754,25 +756,32 @@ For PDF support, install the @emph{mupdf} package.")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "15n9cq7w3ckinnx38hvncxrbkv4qm4k51sal41q4y0pkvhmafhnr")))) (base32 "1ck4mvhzc4m72n010n43d8ipjczzk6ya637rgfyi7bzb4gv0f3am"))))
(build-system gnu-build-system) (build-system qt-build-system)
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
#~(modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (invoke "qmake" (string-append "PREFIX=" #$output))))
(invoke "qmake" (string-append "PREFIX=" out)))))
;; Don't phone home or show "Checking for updates..." in the About ;; Don't phone home or show "Checking for updates..." in the About
;; menu. ;; menu.
(add-before 'build 'disable-auto-update (add-before 'build 'disable-auto-update
(lambda _ (lambda _
(substitute* "src/qvaboutdialog.cpp" (substitute* "src/qvaboutdialog.cpp"
(("qvApp->checkUpdates\\(\\);") "") (("qvApp->checkUpdates\\(\\);") "")
(("updateText\\(\\);") "")) (("updateText\\(\\);") ""))))
#t))))) (replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(with-directory-excursion "tests"
(invoke "qmake" "tests.pro")
(invoke "make" "tests"))))))))
(native-inputs
(list qttools))
(inputs (inputs
(list qtbase-5 qtsvg qtimageformats)) (list qtbase-5 qtimageformats qtsvg))
(home-page "https://interversehq.com/qview/") (home-page "https://interversehq.com/qview/")
(synopsis "Convenient and minimal image viewer") (synopsis "Convenient and minimal image viewer")
(description "qView is a Qt image viewer designed with visually (description "qView is a Qt image viewer designed with visually