ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-16 07:58:01 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: qview: Update to 4.0.

Browse source 
* gnu/packages/image-viewers.scm (qview): Update to 4.0.
[arguments]: Append PREFIX to qmake call.  Fix auto-update removal.
This commit is contained in:
Nicolas Goaziou 2020-11-02 22:13:08 +01:00
parent 98c4f108f2
commit 21df702808
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 7 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -495,7 +495,7 @@ (define-public mcomix
(define-public qview (define-public qview
(package (package
(name "qview") (name "qview")
(version "3.0") (version "4.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -504,29 +504,22 @@ (define-public qview
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "15a91bs3wcqhgf76wzigbn10hayg628j84pq4j2vaxar94ak0vk7")))) (base32 "15n9cq7w3ckinnx38hvncxrbkv4qm4k51sal41q4y0pkvhmafhnr"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda _
(invoke "qmake")))
;; Installation process hard-codes "/usr/bin", possibly
;; prefixed.
(add-after 'configure 'fix-install-directory
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(substitute* "Makefile" (invoke "qmake" (string-append "PREFIX=" out)))))
(("\\$\\(INSTALL_ROOT\\)/usr") out)) ;; Don't phone home or show "Checking for updates..." in the About
#t))) ;; menu.
;; Don't phone home or show "Checking for updates..." in the
;; About menu.
(add-before 'build 'disable-auto-update (add-before 'build 'disable-auto-update
(lambda _ (lambda _
(substitute* "src/qvaboutdialog.cpp" (substitute* "src/qvaboutdialog.cpp"
(("ui->updateLabel->setText\\(updateText\\);") "") (("qvApp->checkUpdates();") "")
(("requestUpdates\\(\\);") "")) (("updateText();") ""))
#t))))) #t)))))
(inputs (inputs
`(("qtbase" ,qtbase) `(("qtbase" ,qtbase)