diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-05-29 00:39:26 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-06-05 23:24:39 +0200 |
commit | 8703646271d7ab21dbf0a71f48a5d9bea61158c3 (patch) | |
tree | 4cfffc630f7f15c98042dbb8f52c6f6bf7106c35 | |
parent | d088d5c4848f08bd62e722789132f9345659c52c (diff) | |
download | patches-8703646271d7ab21dbf0a71f48a5d9bea61158c3.tar patches-8703646271d7ab21dbf0a71f48a5d9bea61158c3.tar.gz |
gnu: Add qview.
* gnu/packages/image-viewers.scm (qview): New variable.
-rw-r--r-- | gnu/packages/image-viewers.scm | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/gnu/packages/image-viewers.scm b/gnu/packages/image-viewers.scm index 82b44a4900..a5bfb28a88 100644 --- a/gnu/packages/image-viewers.scm +++ b/gnu/packages/image-viewers.scm @@ -9,6 +9,7 @@ ;;; Copyright © 2017 nee <nee-git@hidamari.blue> ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -429,3 +430,50 @@ imaging. It supports several HDR and LDR image formats, and it can: a comic and manga reader. It supports a variety of container formats including CBZ, CB7, CBT, LHA.") (license license:gpl2+))) + +(define-public qview + (package + (name "qview") + (version "2.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/jurplel/qView.git") + (commit version))) + (sha256 + (base32 + "1s29hz44rb5dwzq8d4i4bfg77dr0v3ywpvidpa6xzg7hnnv3mhi5")))) + (build-system gnu-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (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) + (let ((out (assoc-ref outputs "out"))) + (substitute* "Makefile" + (("\\$\\(INSTALL_ROOT\\)/usr") out)) + #t))) + ;; Don't phone home or show "Checking for updates..." in the + ;; About menu. + (add-before 'build 'disable-auto-update + (lambda _ + (substitute* "src/qvaboutdialog.cpp" + (("ui->updateLabel->setText\\(updateText\\);") "") + (("requestUpdates\\(\\);") "")) + #t))))) + (inputs + `(("qtbase" ,qtbase) + ("qtsvg" ,qtsvg) + ("qtimageformats" ,qtimageformats))) + (home-page "https://interversehq.com/qview/") + (synopsis "Convenient and minimal image viewer") + (description "qView is a Qt image viewer designed with visually +minimalism and usability in mind. Its features include animated GIF +controls, file history, rotation/mirroring, and multithreaded +preloading.") + (license license:gpl3+))) |