amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: qview: Update to 6.1.

Browse source 
* gnu/packages/image-viewers.scm (qview): Update to 6.1.
[inputs, native-inputs]: Use qt6.
[arguments]: Disable broken tests. Workaround lrelease being resolved
relative to qtbase instead of qttools.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Change-Id: If1a72984e004167b97fdcdf9ae63f85c85dd7e1c
This commit is contained in:
Sergey Trofimov 2024-09-24 22:21:46 +02:00 • committed by Ludovic Courtès
parent a5338945c4
commit a1714de3aa
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -700,7 +700,7 @@ Poppler-Qt5 binding, PDF documents.")
(define-public qview (define-public qview
(package (package
(name "qview") (name "qview")
(version "5.0") (version "6.1")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -709,32 +709,31 @@ Poppler-Qt5 binding, PDF documents.")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1ck4mvhzc4m72n010n43d8ipjczzk6ya637rgfyi7bzb4gv0f3am")))) (base32 "1c719ivzdm0m8apbqx8h0wi796k5myrm4q3vl16vxwzjcx5ball7"))))
(build-system qt-build-system) (build-system qt-build-system)
(arguments (arguments
(list (list
#:qtbase qtbase
#:tests? #f ; test code doesn't compile
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(invoke "qmake" (string-append "PREFIX=" #$output)))) (invoke "qmake" (string-append "PREFIX=" #$output))
(substitute* "Makefile"
(("[[:graph:]]+/bin/lrelease")
(search-input-file inputs "/bin/lrelease")))))
;; 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\\(\\);") "")))))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(with-directory-excursion "tests"
(invoke "qmake" "tests.pro")
(invoke "make" "tests"))))))))
(native-inputs (native-inputs
(list qttools-5)) (list qttools))
(inputs (inputs
(list qtbase-5 qtimageformats-5 qtsvg-5)) (list qtbase 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