(define-module (gnu packages qiv)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages)
  #:use-module (gnu packages image)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages photo)
  #:use-module (gnu packages pkg-config))


(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)))
    (inputs
     `(("imlib2" ,imlib2)
       ("glib" ,glib)
       ("gtk+" ,gtk+-2)
       ("libtiff" ,libtiff)
       ("libexif" ,libexif)
       ("libpng" ,libpng)))
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (delete `configure))
       #:tests? #f
       #:make-flags
        (list
          "CC=gcc"
          "LCMS="
          (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 very small and fast GDK/Imlib image viewer.
Features include zoom, maxpect, scale down, fullscreen, brightness/contrast/
gamma correction, slideshow, pan with keyboard and mouse, rotate left/right,
flip, delete, jump/forward/backward images, filename filter and use it to
set X desktop background.")
    (license license:gpl2)))