gnu/packages/sxiv.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2015 Alex Kost <alezost@gmail.com>
   3 ;;;
   4 ;;; This file is part of GNU Guix.
   5 ;;;
   6 ;;; GNU Guix is free software; you can redistribute it and/or modify it
   7 ;;; under the terms of the GNU General Public License as published by
   8 ;;; the Free Software Foundation; either version 3 of the License, or (at
   9 ;;; your option) any later version.
  10 ;;;
  11 ;;; GNU Guix is distributed in the hope that it will be useful, but
  12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 ;;; GNU General Public License for more details.
  15 ;;;
  16 ;;; You should have received a copy of the GNU General Public License
  17 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 (define-module (gnu packages sxiv)
  20   #:use-module (guix packages)
  21   #:use-module (guix download)
  22   #:use-module (guix build-system gnu)
  23   #:use-module ((guix licenses) #:prefix license:)
  24   #:use-module (gnu packages xorg)
  25   #:use-module (gnu packages image)
  26   #:use-module (gnu packages photo))
  27
  28 (define-public sxiv
  29   (package
  30     (name "sxiv")
  31     (version "1.3.1")
  32     (source (origin
  33               (method url-fetch)
  34               (uri (string-append
  35                     "https://github.com/muennich/sxiv/archive/v"
  36                     version ".tar.gz"))
  37               (file-name (string-append name "-" version ".tar.gz"))
  38               (sha256
  39                (base32
  40                 "03hxy5ff7xbs15rhlbpgx8xmvmpjlffp0m4528975hg16sqa2c4s"))))
  41     (build-system gnu-build-system)
  42     (arguments
  43      '(#:tests? #f                      ; no check target
  44        #:make-flags (list (string-append "PREFIX=" %output)
  45                           "CC=gcc")
  46        #:phases (alist-delete
  47                  'configure             ; no configure phase
  48                  %standard-phases)))
  49     (inputs
  50      `(("libx11" ,libx11)
  51        ("imlib2" ,imlib2)
  52        ("giflib" ,giflib)
  53        ("libexif" ,libexif)))
  54     (home-page "https://github.com/muennich/sxiv")
  55     (synopsis "Simple X Image Viewer")
  56     (description
  57      "sxiv is an alternative to feh and qiv.  Its primary goal is to
  58 provide the most basic features required for fast image viewing.  It has
  59 vi key bindings and works nicely with tiling window managers.  Its code
  60 base should be kept small and clean to make it easy for you to dig into
  61 it and customize it for your needs.")
  62     (license license:gpl2+)))