mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-08 16:06:16 -05:00
3c986a7dc2
* .mailmap: change email and name for Nikita. * Makefile.am, doc/guix.texi, etc/completion/fish/guix.fish, gnu/packages/accessibility.scm, gnu/packages/admin.scm, gnu/packages/audio.scm, gnu/packages/autotools.scm, gnu/packages/cdrom.scm, gnu/packages/check.scm, gnu/packages/cinnamon.scm, gnu/packages/compression.scm, gnu/packages/crypto.scm, gnu/packages/databases.scm, gnu/packages/django.scm, gnu/packages/dns.scm, gnu/packages/elixir.scm, gnu/packages/emacs-xyz.scm, gnu/packages/emacs.scm, gnu/packages/enlightenment.scm, gnu/packages/erlang.scm, gnu/packages/fonts.scm, gnu/packages/fontutils.scm, gnu/packages/forth.scm, gnu/packages/fvwm.scm, gnu/packages/games.scm, gnu/packages/gl.scm, gnu/packages/gnome.scm, gnu/packages/gnunet.scm, gnu/packages/gnupg.scm, gnu/packages/gtk.scm, gnu/packages/guile-wm.scm, gnu/packages/guile-xyz.scm, gnu/packages/haskell-apps.scm, gnu/packages/haskell-check.scm, gnu/packages/haskell-crypto.scm, gnu/packages/haskell-xyz.scm, gnu/packages/haskell.scm, gnu/packages/image-viewers.scm, gnu/packages/image.scm, gnu/packages/irc.scm, gnu/packages/language.scm, gnu/packages/libcanberra.scm, gnu/packages/linux.scm, gnu/packages/lisp-xyz.scm, gnu/packages/lisp.scm, gnu/packages/lolcode.scm, gnu/packages/lxde.scm, gnu/packages/lxqt.scm, gnu/packages/mail.scm, gnu/packages/markup.scm, gnu/packages/mate.scm, gnu/packages/maths.scm, gnu/packages/mc.scm, gnu/packages/messaging.scm, gnu/packages/music.scm, gnu/packages/ncurses.scm, gnu/packages/networking.scm, gnu/packages/nickle.scm, gnu/packages/openbox.scm, gnu/packages/pdf.scm, gnu/packages/perl-check.scm, gnu/packages/perl.scm, gnu/packages/python-compression.scm, gnu/packages/python-crypto.scm, gnu/packages/python-web.scm, gnu/packages/python-xyz.scm, gnu/packages/python.scm, gnu/packages/qt.scm, gnu/packages/ruby.scm, gnu/packages/rust.scm, gnu/packages/scheme.scm, gnu/packages/serialization.scm, gnu/packages/shells.scm, gnu/packages/ssh.scm, gnu/packages/suckless.scm, gnu/packages/tbb.scm, gnu/packages/telephony.scm, gnu/packages/text-editors.scm, gnu/packages/textutils.scm, gnu/packages/time.scm, gnu/packages/tls.scm, gnu/packages/tor.scm, gnu/packages/version-control.scm, gnu/packages/video.scm, gnu/packages/vim.scm, gnu/packages/web.scm, gnu/packages/wm.scm, gnu/packages/xdisorg.scm, gnu/packages/xfce.scm, gnu/packages/xml.scm, gnu/packages/xorg.scm, gnu/services/certbot.scm, gnu/services/desktop.scm, gnu/services/version-control.scm, gnu/services/web.scm, guix/import/hackage.scm, guix/licenses.scm: Likewise. Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
708 lines
28 KiB
Scheme
708 lines
28 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2013, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
|
||
;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
|
||
;;; Copyright © 2015, 2016 Alex Kost <alezost@gmail.com>
|
||
;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2017 Alex Griffin <a@ajgrf.com>
|
||
;;; Copyright © 2017 Nikita <nikita@n0.is>
|
||
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
||
;;; Copyright © 2017 nee <nee-git@hidamari.blue>
|
||
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
|
||
;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
|
||
;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
|
||
;;; Copyright © 2019 Guy Fleury Iteriteka <hoonandon@gmail.com>
|
||
;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
|
||
;;; Copyright © 2020 Peng Mei Yu <pengmeiyu@riseup.net>
|
||
;;; Copyright © 2020 R Veera Kumar <vkor@vkten.in>
|
||
;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz>
|
||
;;;
|
||
;;; This file is part of GNU Guix.
|
||
;;;
|
||
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
||
;;; under the terms of the GNU General Public License as published by
|
||
;;; the Free Software Foundation; either version 3 of the License, or (at
|
||
;;; your option) any later version.
|
||
;;;
|
||
;;; GNU Guix is distributed in the hope that it will be useful, but
|
||
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;;; GNU General Public License for more details.
|
||
;;;
|
||
;;; You should have received a copy of the GNU General Public License
|
||
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
(define-module (gnu packages image-viewers)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (guix download)
|
||
#:use-module (guix git-download)
|
||
#:use-module (guix packages)
|
||
#:use-module (guix utils)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system cmake)
|
||
#:use-module (guix build-system meson)
|
||
#:use-module (guix build-system python)
|
||
#:use-module (gnu packages autotools)
|
||
#:use-module (gnu packages algebra)
|
||
#:use-module (gnu packages boost)
|
||
#:use-module (gnu packages check)
|
||
#:use-module (gnu packages compression)
|
||
#:use-module (gnu packages curl)
|
||
#:use-module (gnu packages documentation)
|
||
#:use-module (gnu packages fontutils)
|
||
#:use-module (gnu packages freedesktop)
|
||
#:use-module (gnu packages gettext)
|
||
#:use-module (gnu packages ghostscript)
|
||
#:use-module (gnu packages gl)
|
||
#:use-module (gnu packages glib)
|
||
#:use-module (gnu packages gnome)
|
||
#:use-module (gnu packages gtk)
|
||
#:use-module (gnu packages graphics)
|
||
#:use-module (gnu packages image)
|
||
#:use-module (gnu packages imagemagick)
|
||
#:use-module (gnu packages maths)
|
||
#:use-module (gnu packages perl)
|
||
#:use-module (gnu packages perl-check)
|
||
#:use-module (gnu packages photo)
|
||
#:use-module (gnu packages pkg-config)
|
||
#:use-module (gnu packages python)
|
||
#:use-module (gnu packages python-xyz)
|
||
#:use-module (gnu packages qt)
|
||
#:use-module (gnu packages xdisorg)
|
||
#:use-module (gnu packages xorg)
|
||
#:use-module (gnu packages))
|
||
|
||
(define-public feh
|
||
(package
|
||
(name "feh")
|
||
(version "3.4")
|
||
(home-page "https://feh.finalrewind.org/")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append home-page
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0r83zincbfnk8g13xwm2qaccml9srnwlsmpc1f0nhwjkqyjmqm0q"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases (modify-phases %standard-phases (delete 'configure))
|
||
#:test-target "test"
|
||
#:make-flags
|
||
(list "CC=gcc" (string-append "PREFIX=" (assoc-ref %outputs "out"))
|
||
"exif=1")))
|
||
(native-inputs
|
||
`(("perl" ,perl)
|
||
("perl-test-command" ,perl-test-command)))
|
||
(inputs `(("imlib2" ,imlib2)
|
||
("curl" ,curl)
|
||
("libexif" ,libexif)
|
||
("libpng" ,libpng)
|
||
("libxt" ,libxt)
|
||
("libx11" ,libx11)
|
||
("libxinerama" ,libxinerama)))
|
||
(native-search-paths
|
||
;; Feh allows overriding the libcurl builtin CA path (unset in Guix)
|
||
;; with the same variable as the `curl` command line HTTP tool.
|
||
(package-native-search-paths curl))
|
||
(synopsis "Fast and light imlib2-based image viewer")
|
||
(description
|
||
"feh is an X11 image viewer aimed mostly at console users.
|
||
Unlike most other viewers, it does not have a fancy GUI, but simply
|
||
displays images. It can also be used to set the desktop wallpaper.
|
||
It is controlled via commandline arguments and configurable key/mouse
|
||
actions.")
|
||
|
||
;; The license is really the Expat license, with additional wording in the
|
||
;; 2nd paragraph: "acknowledgment shall be given in the documentation and
|
||
;; software packages that this Software was used."
|
||
(license (license:x11-style
|
||
"file://COPYING"
|
||
"See 'COPYING' in the distribution."))))
|
||
|
||
(define-public geeqie
|
||
;; The latest release, 1.4, fails to build with Exiv2 0.27.1. The upstream
|
||
;; repo has several fixes for that, so take a snapshot.
|
||
(let ((commit "c220ddefb1b6b11b54f7598f0d44dd0723325ed4")
|
||
(revision "1"))
|
||
(package
|
||
(name "geeqie")
|
||
(version (git-version "1.4" revision commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/BestImageViewer/geeqie")
|
||
(commit commit)))
|
||
(sha256
|
||
(base32
|
||
"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")
|
||
|
||
;; Parallel builds fail with something like:
|
||
;; image-load.c:143:9: error: ‘gq_marshal_VOID__INT_INT_INT_INT’ undeclared
|
||
;; due to unexpressed makefile dependencies.
|
||
#:parallel-build? #f
|
||
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'bootstrap 'pre-bootstrap
|
||
(lambda _
|
||
(define (write-dummy-changelog port)
|
||
(display "See Git history for a change log.\n" port))
|
||
;; Create ChangeLog{,.html} to placate the makefile, which would
|
||
;; otherwise require access to the Git repo.
|
||
(call-with-output-file "ChangeLog"
|
||
write-dummy-changelog)
|
||
(call-with-output-file "ChangeLog.html"
|
||
write-dummy-changelog)
|
||
|
||
;; Don't try to run 'git' for the version number.
|
||
(substitute* "configure.ac"
|
||
(("m4_esyscmd_s\\([^)]+\\)")
|
||
(string-append "[" ,version "]")))
|
||
|
||
;; Remove references to non-existent files.
|
||
(substitute* "po/POTFILES.in"
|
||
(("^plugins/import/.*") ""))
|
||
#t)))))
|
||
(inputs
|
||
`(("clutter" ,clutter)
|
||
("libchamplain" ,libchamplain)
|
||
("lcms" ,lcms)
|
||
("exiv2" ,exiv2)
|
||
("libpng" ,libpng)
|
||
("gtk+" ,gtk+)))
|
||
(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
|
||
interoperability; easy integration with other software; geeqie works on files
|
||
and directories, there is no need to import images; fast preview for many raw
|
||
image formats; tools for image comparison, sorting and managing photo
|
||
collection. Geeqie was initially based on GQview.")
|
||
(license license:gpl2+))))
|
||
|
||
(define-public gpicview
|
||
(package
|
||
(name "gpicview")
|
||
(version "0.2.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/lxde/"
|
||
"GPicView%20%28image%20Viewer%29/0.2.x/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0hi9v0rdx47nys0wvm9xasdrafa34r5kq6crb074a0ipwmc60iiq"))))
|
||
(build-system gnu-build-system)
|
||
(inputs `(("gtk+" ,gtk+-2)
|
||
("libjpeg" ,libjpeg-turbo)))
|
||
(native-inputs `(("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
(synopsis "Simple and fast image viewer for X")
|
||
(description "gpicview is a lightweight GTK+ 2.x based image viewer.
|
||
It is the default image viewer on LXDE desktop environment.")
|
||
(home-page "http://lxde.sourceforge.net/gpicview/")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public sxiv
|
||
(package
|
||
(name "sxiv")
|
||
(version "26")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/muennich/sxiv.git")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0xaawlfdy7b277m38mgg4423kd7p1ffn0dq4hciqs6ivbb3q9c4f"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; no check target
|
||
#:make-flags
|
||
(list (string-append "PREFIX=" %output)
|
||
"CC=gcc"
|
||
;; Xft.h #includes <ft2build.h> without ‘freetype2/’. The Makefile
|
||
;; works around this by hard-coding /usr/include & $PREFIX.
|
||
(string-append "CPPFLAGS=-I"
|
||
(assoc-ref %build-inputs "freetype")
|
||
"/include/freetype2")
|
||
"V=1")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)))) ; no configure script
|
||
(inputs
|
||
`(("freetype" ,freetype)
|
||
("giflib" ,giflib)
|
||
("imlib2" ,imlib2)
|
||
("libexif" ,libexif)
|
||
("libx11" ,libx11)
|
||
("libxft" ,libxft)))
|
||
(home-page "https://github.com/muennich/sxiv")
|
||
(synopsis "Simple X Image Viewer")
|
||
(description
|
||
"sxiv is an alternative to feh and qiv. Its primary goal is to
|
||
provide the most basic features required for fast image viewing. It has
|
||
vi key bindings and works nicely with tiling window managers. Its code
|
||
base should be kept small and clean to make it easy for you to dig into
|
||
it and customize it for your needs.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public viewnior
|
||
(package
|
||
(name "viewnior")
|
||
(version "1.7")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/hellosiyan/Viewnior.git")
|
||
(commit (string-append name "-" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0y4hk3vq8psba5k615w18qj0kbdfp5w0lm98nv5apy6hmcpwfyig"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-source
|
||
(lambda _
|
||
;; Don't create 'icon-theme.cache'
|
||
(substitute* "meson.build"
|
||
(("meson.add_install_script*") ""))
|
||
#t)))
|
||
#:tests? #f)) ; no tests
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib" ,glib "bin") ; glib-genmarshal
|
||
("pkg-config" ,pkg-config)
|
||
("shared-mime-info" ,shared-mime-info)))
|
||
(inputs
|
||
`(("exiv2" ,exiv2)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("gtk+-2" ,gtk+-2)))
|
||
(home-page "http://siyanpanayotov.com/project/viewnior")
|
||
(synopsis "Simple, fast and elegant image viewer")
|
||
(description "Viewnior is an image viewer program. Created to be simple,
|
||
fast and elegant. Its minimalistic interface provides more screenspace for
|
||
your images. Among its features are:
|
||
@enumerate
|
||
@item Fullscreen & Slideshow
|
||
@item Rotate, flip, crop, save, delete images
|
||
@item Animation support
|
||
@item Browse only selected images
|
||
@item Navigation window
|
||
@item Set image as wallpaper (Gnome 2, Gnome 3, XFCE, LXDE, FluxBox, Nitrogen)
|
||
@item Simple interface
|
||
@item EXIF and IPTC metadata
|
||
@item Configurable mouse actions
|
||
@end enumerate\n")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public catimg
|
||
(package
|
||
(name "catimg")
|
||
(version "2.6.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/posva/catimg.git")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0g9ywbgy162wiam9hc3yqpq5q4gyxa8fj4jskr3fdz8z8jjaabzz"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; no tests
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-convert
|
||
(lambda _
|
||
(substitute* "catimg"
|
||
;; By replacing "convert", we also replace the "convert"
|
||
;; in the message 'The version of convert is too old, don't
|
||
;; expect good results :('. This should not happen, but in
|
||
;; practice this error message should not affect us.
|
||
(("convert") (which "convert")))
|
||
#t))
|
||
(add-after 'install 'install-script
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; The bash script lacks an file extension. We have to rename
|
||
;; it so that the C program and the bash script can be happy
|
||
;; side by side.
|
||
(copy-file "../source/catimg"
|
||
(string-append (assoc-ref outputs "out")
|
||
"/bin/catimg.sh"))
|
||
#t)))))
|
||
(inputs
|
||
`(("imagemagick" ,imagemagick))) ; for the bash script version
|
||
(home-page "https://github.com/posva/catimg")
|
||
(synopsis "Render images in the terminal")
|
||
(description
|
||
"Catimg is a little program that prints images in the terminal.
|
||
It supports JPEG, PNG and GIF formats.")
|
||
(license license:expat)))
|
||
|
||
(define-public luminance-hdr
|
||
(package
|
||
(name "luminance-hdr")
|
||
(version "2.4.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://sourceforge/qtpfsgui/luminance/"
|
||
version "/luminance-hdr-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"00fldbcizrx8jcnjgq74n3zmbm27dxzl96fxa7q49689mfnlw08l"))
|
||
(patches (search-patches "luminance-hdr-qt-printer.patch"))))
|
||
(build-system cmake-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("qttools" ,qttools)))
|
||
(inputs
|
||
`(("qtbase" ,qtbase)
|
||
("qtdeclarative" ,qtdeclarative)
|
||
("qtwebkit" ,qtwebkit)
|
||
("boost" ,boost)
|
||
;; ("gtest" ,gtest)
|
||
("libraw" ,libraw)
|
||
("zlib" ,zlib)
|
||
("exiv2" ,exiv2)
|
||
("libpng" ,libpng)
|
||
("libjpeg" ,libjpeg-turbo)
|
||
("lcms" ,lcms)
|
||
("openexr" ,openexr)
|
||
("fftw" ,fftwf)
|
||
("gsl" ,gsl)
|
||
("libtiff" ,libtiff)))
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'set-paths 'add-ilmbase-include-path
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; 'OpenEXR.pc' has a -I for IlmBase but 'FindOpenEXR.cmake' does
|
||
;; not use 'OpenEXR.pc'. Thus, we need to add
|
||
;; "$ilmbase/include/OpenEXR/" to the CPATH.
|
||
(setenv "CPATH"
|
||
(string-append (assoc-ref inputs "ilmbase")
|
||
"/include/OpenEXR"
|
||
":" (or (getenv "CPATH") "")))
|
||
#t)))))
|
||
(home-page "http://qtpfsgui.sourceforge.net")
|
||
(synopsis "High dynamic range (HDR) imaging application")
|
||
(description
|
||
"Luminance HDR (formerly QtPFSGui) is a graphical user interface
|
||
application that aims to provide a workflow for high dynamic range (HDR)
|
||
imaging. It supports several HDR and LDR image formats, and it can:
|
||
|
||
@itemize
|
||
@item Create an HDR file from a set of images (formats: JPEG, TIFF 8bit and
|
||
16bit, RAW) of the same scene taken at different exposure setting;
|
||
@item Save load HDR images;
|
||
@item Rotate, resize and crop HDR images;
|
||
@item Tone-map HDR images;
|
||
@item Copy EXIF data between sets of images.
|
||
@end itemize\n")
|
||
(license license:gpl2+)))
|
||
|
||
;; CBR and RAR are currently unsupported, due to non-free dependencies.
|
||
(define-public mcomix
|
||
;; Official mcomix hasn't been updated since 2016, it's broken with
|
||
;; python-pillow 6+ and only supports Python 2. We use fork instead.
|
||
(let ((commit "fea55a7a9369569eefed72209eed830409c4af98"))
|
||
(package
|
||
(name "mcomix")
|
||
(version (git-version "1.2.1" "1" commit))
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/multiSnow/mcomix3")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"05zl0dkjwbdcm2zlk4nz9w33amlqj8pbf32a8ymshc2356fqhhi5"))))
|
||
(build-system python-build-system)
|
||
(inputs
|
||
`(("p7zip" ,p7zip)
|
||
("python-pillow" ,python-pillow)
|
||
("python-pygobject" ,python-pygobject)
|
||
("python-pycairo" ,python-pycairo)))
|
||
(arguments
|
||
`(#:tests? #f ; FIXME: How do we run tests?
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'configure
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((p7zip (assoc-ref inputs "p7zip")))
|
||
;; insert absolute path to 7z executable
|
||
(substitute* "mcomix/mcomix/archive/sevenzip_external.py"
|
||
(("_7z_executable = -1")
|
||
(string-append "_7z_executable = u'" p7zip "/bin/7z'"))))
|
||
#t))
|
||
(replace 'build
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(pyver ,(version-major+minor (package-version python)))
|
||
(lib (string-append out "/lib/python" pyver)))
|
||
(invoke (which "python") "installer.py" "--srcdir=mcomix"
|
||
(string-append "--target=" lib))
|
||
(rename-file (string-append lib "/mcomix")
|
||
(string-append lib "/site-packages"))
|
||
#t)))
|
||
(replace 'install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(share (string-append out "/share"))
|
||
(bin (string-append out "/bin"))
|
||
(pyver ,(version-major+minor (package-version python)))
|
||
(lib (string-append out "/lib/python" pyver "/site-packages")))
|
||
(mkdir-p bin)
|
||
(rename-file (string-append lib "/mcomixstarter.py")
|
||
(string-append bin "/mcomix"))
|
||
(rename-file (string-append lib "/comicthumb.py")
|
||
(string-append bin "/comicthumb"))
|
||
(install-file "mime/mcomix.desktop"
|
||
(string-append share "/applications"))
|
||
(install-file "mime/mcomix.appdata.xml"
|
||
(string-append share "/metainfo"))
|
||
(install-file "mime/mcomix.xml"
|
||
(string-append share "/mime/packages"))
|
||
(install-file "mime/comicthumb.thumbnailer"
|
||
(string-append share "/thumbnailers"))
|
||
(install-file "man/mcomix.1" (string-append share "/man/man1"))
|
||
(install-file "man/comicthumb.1" (string-append share "/man/man1"))
|
||
(for-each
|
||
(lambda (size)
|
||
(install-file
|
||
(format #f "mcomix/mcomix/images/~sx~s/mcomix.png" size size)
|
||
(format #f "~a/icons/hicolor/~sx~s/apps/" share size size))
|
||
(for-each
|
||
(lambda (ext)
|
||
(install-file
|
||
(format #f "mime/icons/~sx~s/application-x-~a.png" size size ext)
|
||
(format #f "~a/icons/hicolor/~sx~s/mimetypes/"
|
||
share size size)))
|
||
'("cb7" "cbr" "cbt" "cbz")))
|
||
'(16 22 24 32 48))
|
||
#t))))))
|
||
(home-page "https://sourceforge.net/p/mcomix/wiki/Home/")
|
||
(synopsis "Image viewer for comics")
|
||
(description "MComix is a customizable image viewer that specializes as
|
||
a comic and manga reader. It supports a variety of container formats
|
||
including CBZ, CB7, CBT, LHA.
|
||
|
||
For PDF support, install the @emph{mupdf} package.")
|
||
(license license:gpl2+))))
|
||
|
||
(define-public qview
|
||
(package
|
||
(name "qview")
|
||
(version "3.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/jurplel/qView.git")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "15a91bs3wcqhgf76wzigbn10hayg628j84pq4j2vaxar94ak0vk7"))))
|
||
(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+)))
|
||
|
||
(define-public chafa
|
||
(package
|
||
(name "chafa")
|
||
(version "1.2.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://hpjansson.org/chafa/releases/chafa-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0aa7119514rhsak5i0kgvwllb9z74lnfzfn7dzfhs27fc8cvx1dg"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("imagemagick" ,imagemagick)))
|
||
(synopsis "Convert images to ANSI/Unicode characters")
|
||
(description
|
||
"Chafa is a command-line utility that converts all kinds of images,
|
||
including animated GIFs, into ANSI/Unicode character output that can be
|
||
displayed in a terminal.")
|
||
(home-page "https://hpjansson.org/chafa/")
|
||
(license license:lgpl3+)))
|
||
|
||
(define-public imv
|
||
(package
|
||
(name "imv")
|
||
(version "4.1.0")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/eXeC64/imv")
|
||
(commit (string-append "v" version))))
|
||
(sha256
|
||
(base32
|
||
"0gk8g178i961nn3bls75a8qpv6wvfvav6hd9lxca1skaikd33zdx"))
|
||
(file-name (git-file-name name version))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(add-after 'install 'record-absolute-file-names
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; 'imv' is a script that execs 'imv-x11' or 'imv-wayland'.
|
||
;; Record their absolute file name.
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin (string-append out "/bin")))
|
||
(substitute* (string-append bin "/imv")
|
||
(("imv-")
|
||
(string-append bin "/imv-")))
|
||
#t))))
|
||
#:make-flags
|
||
(list "CC=gcc"
|
||
(string-append "PREFIX=" (assoc-ref %outputs "out"))
|
||
(string-append "CONFIGPREFIX="
|
||
(assoc-ref %outputs "out") "/etc"))))
|
||
(inputs
|
||
`(("asciidoc" ,asciidoc)
|
||
("freeimage" ,freeimage)
|
||
("glu" ,glu)
|
||
("librsvg" ,librsvg)
|
||
("libxkbcommon" ,libxkbcommon)
|
||
("pango" ,pango)
|
||
("wayland" ,wayland)))
|
||
(native-inputs
|
||
`(("cmocka" ,cmocka)
|
||
("pkg-config" ,pkg-config)))
|
||
(synopsis "Image viewer for tiling window managers")
|
||
(description "@code{imv} is a command line image viewer intended for use
|
||
with tiling window managers. Features include:
|
||
|
||
@itemize
|
||
@item Native Wayland and X11 support.
|
||
@item Support for dozens of image formats including:
|
||
@itemize
|
||
@item PNG
|
||
@item JPEG
|
||
@item Animated GIFs
|
||
@item SVG
|
||
@item TIFF
|
||
@item Various RAW formats
|
||
@item Photoshop PSD files
|
||
@end itemize
|
||
@item Configurable key bindings and behavior.
|
||
@item Highly scriptable with IPC via imv-msg.
|
||
@end itemize\n")
|
||
(home-page "https://github.com/eXeC64/imv")
|
||
(license license:expat)))
|
||
|
||
(define-public qiv
|
||
(package
|
||
(name "qiv")
|
||
(version "2.3.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://spiegl.de/qiv/download/qiv-"
|
||
version ".tgz"))
|
||
(sha256
|
||
(base32 "1rlf5h67vhj7n1y7jqkm9k115nfnzpwngj3kzqsi2lg676srclv7"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
;; That is required for testing.
|
||
("xorg-server" ,xorg-server-for-tests)))
|
||
(inputs
|
||
`(("imlib2" ,imlib2)
|
||
("glib" ,glib)
|
||
("gtk+" ,gtk+-2)
|
||
("lcms" ,lcms)
|
||
("libjpeg" ,libjpeg-turbo)
|
||
("libtiff" ,libtiff)
|
||
("libexif" ,libexif)
|
||
("libx11" ,libx11)
|
||
("libxext" ,libxext)))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure) ; no configure script
|
||
(add-before 'install 'patch-file-start-xserver
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; patch the file so that qiv runs and exits by itself
|
||
(substitute* "Makefile"
|
||
(("./qiv -f ./intro.jpg") "./qiv -f -C -s ./intro.jpg")
|
||
;; Fail the build when test fails.
|
||
(("echo \"-- Test Failed --\"")
|
||
"(echo \"-- Test Failed --\" ; false)"))
|
||
;; There must be a running X server and make install doesn't start one.
|
||
;; Therefore we must do it.
|
||
(system "Xvfb :1 &")
|
||
(setenv "DISPLAY" ":1")
|
||
#t)))
|
||
#:tests? #f ; there is no check target
|
||
#:make-flags
|
||
(list
|
||
(string-append "PREFIX=" (assoc-ref %outputs "out")))))
|
||
(home-page "http://spiegl.de/qiv/")
|
||
(synopsis "Graphical image viewer for X")
|
||
(description
|
||
"Quick Image Viewer is a small and fast GDK/Imlib2 image viewer.
|
||
Features include zoom, maxpect, scale down, fullscreen, slideshow, delete,
|
||
brightness/contrast/gamma correction, pan with keyboard and mouse, flip,
|
||
rotate left/right, jump/forward/backward images, filename filter and use it
|
||
to set X desktop background.")
|
||
(license license:gpl2)))
|