gnu/packages/photo.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2014, 2015, 2017, 2019 Ludovic Courtès <ludo@gnu.org>
   3 ;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
   4 ;;; Copyright © 2015, 2017 Andreas Enge <andreas@enge.fr>
   5 ;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
   6 ;;; Copyright © 2017 Roel Janssen <roel@gnu.org>
   7 ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
   8 ;;; Copyright © 2018 Leo Famulari <leo@famulari.name>
   9 ;;; Copyright © 2020 Sebastian Schott <sschott@mailbox.org>
  10 ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
  11 ;;; Copyright © 2020 Vinicius Monego <monego@posteo.net>
  12 ;;;
  13 ;;; This file is part of GNU Guix.
  14 ;;;
  15 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  16 ;;; under the terms of the GNU General Public License as published by
  17 ;;; the Free Software Foundation; either version 3 of the License, or (at
  18 ;;; your option) any later version.
  19 ;;;
  20 ;;; GNU Guix is distributed in the hope that it will be useful, but
  21 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  22 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 ;;; GNU General Public License for more details.
  24 ;;;
  25 ;;; You should have received a copy of the GNU General Public License
  26 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  27
  28 (define-module (gnu packages photo)
  29   #:use-module (guix build-system cmake)
  30   #:use-module (guix build-system gnu)
  31   #:use-module (guix build-system meson)
  32   #:use-module (guix build-system perl)
  33   #:use-module (guix build-system python)
  34   #:use-module (guix download)
  35   #:use-module (guix git-download)
  36   #:use-module ((guix licenses) #:prefix license:)
  37   #:use-module (guix packages)
  38   #:use-module (guix utils)
  39   #:use-module (gnu packages)
  40   #:use-module (gnu packages algebra)
  41   #:use-module (gnu packages autotools)
  42   #:use-module (gnu packages base)
  43   #:use-module (gnu packages boost)
  44   #:use-module (gnu packages cmake)
  45   #:use-module (gnu packages compression)
  46   #:use-module (gnu packages cups)
  47   #:use-module (gnu packages curl)
  48   #:use-module (gnu packages file)
  49   #:use-module (gnu packages freedesktop)
  50   #:use-module (gnu packages geo)
  51   #:use-module (gnu packages gettext)
  52   #:use-module (gnu packages ghostscript)
  53   #:use-module (gnu packages gl)
  54   #:use-module (gnu packages gnome)
  55   #:use-module (gnu packages glib)
  56   #:use-module (gnu packages graphics)
  57   #:use-module (gnu packages gstreamer)
  58   #:use-module (gnu packages gtk)
  59   #:use-module (gnu packages image)
  60   #:use-module (gnu packages image-processing)
  61   #:use-module (gnu packages imagemagick)
  62   #:use-module (gnu packages iso-codes)
  63   #:use-module (gnu packages libcanberra)
  64   #:use-module (gnu packages libusb)
  65   #:use-module (gnu packages llvm)
  66   #:use-module (gnu packages lua)
  67   #:use-module (gnu packages man)
  68   #:use-module (gnu packages maths)
  69   #:use-module (gnu packages opencl)
  70   #:use-module (gnu packages perl)
  71   #:use-module (gnu packages pkg-config)
  72   #:use-module (gnu packages popt)
  73   #:use-module (gnu packages python)
  74   #:use-module (gnu packages python-xyz)
  75   #:use-module (gnu packages python-web)
  76   #:use-module (gnu packages qt)
  77   #:use-module (gnu packages readline)
  78   #:use-module (gnu packages sqlite)
  79   #:use-module (gnu packages tex)
  80   #:use-module (gnu packages time)
  81   #:use-module (gnu packages video)
  82   #:use-module (gnu packages web)
  83   #:use-module (gnu packages wxwidgets)
  84   #:use-module (gnu packages xfig)
  85   #:use-module (gnu packages xorg)
  86   #:use-module (gnu packages xml)
  87   #:use-module ((srfi srfi-1) #:hide (zip))
  88   #:use-module (srfi srfi-26))
  89
  90 (define-public rapid-photo-downloader
  91   (package
  92     (name "rapid-photo-downloader")
  93     (version "0.9.18")
  94     (source (origin
  95               (method url-fetch)
  96               (uri (string-append "https://launchpad.net/rapid/pyqt/"
  97                                   version "/+download/" name "-"
  98                                   version ".tar.gz"))
  99               (sha256
 100                (base32
 101                 "15p7sssg6vmqbm5xnc4j5dr89d7gl7y5qyq44a240yl5aqkjnybw"))))
 102     (build-system python-build-system)
 103     (native-inputs
 104      `(("file" ,file)
 105        ("intltool" ,intltool)
 106        ("gobject-introspection" ,gobject-introspection)))
 107     (inputs
 108      `(("gdk-pixbuf" ,gdk-pixbuf)
 109        ("gexiv2" ,gexiv2)
 110        ("gst-libav" ,gst-libav)
 111        ("gst-plugins-base" ,gst-plugins-base)
 112        ("gst-plugins-good" ,gst-plugins-good)
 113        ("gstreamer" ,gstreamer)
 114        ("libgudev" ,libgudev)
 115        ("libnotify" ,libnotify)
 116        ("libmediainfo" ,libmediainfo)
 117        ("usdisks" ,udisks)
 118        ("python-pyqt" ,python-pyqt)
 119        ("python-pygobject" ,python-pygobject)
 120        ("python-gphoto2" ,python-gphoto2)
 121        ("python-pyzmq" ,python-pyzmq)
 122        ("python-tornado" ,python-tornado)
 123        ("python-psutil" ,python-psutil)
 124        ("python-pyxdg" ,python-pyxdg)
 125        ("python-arrow" ,python-arrow)
 126        ("python-dateutil" ,python-dateutil)
 127        ("python-easygui" ,python-easygui)
 128        ("python-colour" ,python-colour)
 129        ("python-pymediainfo" ,python-pymediainfo)
 130        ("python-sortedcontainers" ,python-sortedcontainers)
 131        ("python-rawkit" ,python-rawkit)
 132        ("python-requests" ,python-requests)
 133        ("python-colorlog" ,python-colorlog)
 134        ("python-pyprind" ,python-pyprind)
 135        ("python-tenacity" ,python-tenacity)
 136        ("perl-image-exiftool" ,perl-image-exiftool)))
 137     (arguments
 138      `(#:phases
 139        (modify-phases %standard-phases
 140          (add-after 'unpack 'patch-libmediainfo
 141            (lambda _
 142              (substitute* "raphodo/metadatavideo.py"
 143                (("pymedia_library_file = 'libmediainfo.so.0'")
 144                 (string-append "pymedia_library_file = '"
 145                                (assoc-ref %build-inputs "libmediainfo")
 146                                "/lib/libmediainfo.so.0'")))
 147              #t))
 148          (add-after 'install 'wrap
 149            (lambda* (#:key inputs outputs #:allow-other-keys)
 150              (let ((out               (assoc-ref outputs "out"))
 151                    (path              (string-join
 152                                        (list (string-append
 153                                               (assoc-ref inputs "perl-image-exiftool")
 154                                               "/bin"))
 155                                        ":"))
 156                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
 157                    (python-path       (getenv "PYTHONPATH")))
 158                (for-each
 159                 (lambda (program)
 160                   (wrap-program program
 161                     `("PATH" ":" prefix (,path))
 162                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
 163                     `("PYTHONPATH"             ":" prefix (,python-path))))
 164                 (map (lambda (name)
 165                        (string-append out "/bin/" name))
 166                      '("analyze-pv-structure"
 167                        "rapid-photo-downloader"))))
 168              #t)))))
 169     (home-page "https://www.damonlynch.net/rapid/")
 170     (synopsis "Import photos and videos from cameras, phones and memory cards")
 171     (description "Import photos and videos from cameras, phones and memory
 172 cards and generate meaningful file and folder names.")
 173     (license license:gpl2+)))
 174
 175 (define-public libraw
 176   (package
 177     (name "libraw")
 178     (version "0.20.0")
 179     (source (origin
 180               (method url-fetch)
 181               (uri (string-append "https://www.libraw.org/data/LibRaw-"
 182                                   version ".tar.gz"))
 183               (sha256
 184                (base32
 185                 "18wlsvj6c1rv036ph3695kknpgzc3lk2ikgshy8417yfl8ykh2hz"))))
 186     (build-system gnu-build-system)
 187     (native-inputs
 188      `(("pkg-config" ,pkg-config)))
 189     (inputs
 190      `(("libjpeg" ,libjpeg-turbo)))     ;for lossy DNGs and old Kodak cameras
 191     (propagated-inputs
 192      `(("lcms" ,lcms)))                 ;for color profiles
 193     (home-page "https://www.libraw.org")
 194     (synopsis "Raw image decoder")
 195     (description
 196      "LibRaw is a library for reading RAW files obtained from digital photo
 197 cameras (CRW/CR2, NEF, RAF, DNG, and others).")
 198     ;; LibRaw is distributed under both LGPL2.1 and CDDL 1.0.  From the README:
 199     ;; "You may use one of these licensing modes and switch between them.  If
 200     ;; you modify LibRaw source and made your changes public, you should accept
 201     ;; both two licensing modes for your changes/additions."
 202     (license (list license:lgpl2.1 license:cddl1.0))))
 203
 204 (define-public libraw-0.18
 205   (package (inherit libraw)
 206     (name "libraw")
 207     (version "0.18.12")
 208     (source (origin
 209               (method url-fetch)
 210               (uri (string-append "https://www.libraw.org/data/LibRaw-"
 211                                   version ".tar.gz"))
 212               (sha256
 213                (base32
 214                 "1m2khr2cij8z6lawgbmdksjn14fpnjsy8ad4qahnpqapm1slsxap"))))))
 215
 216 (define-public libexif
 217   (package
 218     (name "libexif")
 219     (version "0.6.22")
 220     (source (origin
 221               (method url-fetch)
 222               (uri (string-append
 223                     "https://github.com/libexif/libexif/releases"
 224                     "/download/libexif-"
 225                     (string-map (lambda (x) (if (char=? x #\.) #\_ x)) version)
 226                     "-release/libexif-" version ".tar.xz"))
 227               (sha256
 228                (base32
 229                 "0mhcad5zab7fsn120rd585h8ncwkq904nzzrq8vcd72hzk4g2j2h"))))
 230     (build-system gnu-build-system)
 231     (home-page "https://libexif.github.io/")
 232     (synopsis "Read and manipulate EXIF data in digital photographs")
 233     (description
 234      "The libexif C library allows applications to read, edit, and save EXIF
 235 data as produced by digital cameras.")
 236     (license license:lgpl2.1+)))
 237
 238 (define-public libgphoto2
 239   (package
 240     (name "libgphoto2")
 241     (version "2.5.25")
 242     (source (origin
 243               (method url-fetch)
 244               (uri (string-append "mirror://sourceforge/gphoto/libgphoto/"
 245                                   version "/libgphoto2-" version ".tar.bz2"))
 246               (sha256
 247                (base32
 248                 "0fkz2rx7xlmr6zl6f56hhxps6bx16dwcw5pyd8c2icf273s9h3kw"))))
 249     (build-system gnu-build-system)
 250     (native-inputs `(("pkg-config" ,pkg-config)))
 251     (inputs
 252      `(("libjpeg-turbo" ,libjpeg-turbo)
 253        ("libltdl" ,libltdl)
 254        ("libusb" ,libusb)
 255        ("libxml2" ,libxml2)))
 256     (propagated-inputs
 257      `(;; The .pc refers to libexif.
 258        ("libexif" ,libexif)))
 259     (home-page "http://www.gphoto.org/proj/libgphoto2/")
 260     (synopsis "Accessing digital cameras")
 261     (description
 262      "This is the library backend for gphoto2.  It contains the code for PTP,
 263 MTP, and other vendor specific protocols for controlling and transferring data
 264 from digital cameras.")
 265
 266     ;; 'COPYING' says LGPLv2.1+, but in practices files are under LGPLv2+.
 267     (license license:lgpl2.1+)))
 268
 269 (define-public gphoto2
 270   (package
 271     (name "gphoto2")
 272     (version "2.5.23")
 273     (source (origin
 274               (method url-fetch)
 275               (uri (string-append "mirror://sourceforge/gphoto/gphoto/" version
 276                                   "/gphoto2-" version ".tar.bz2"))
 277               (sha256
 278                (base32
 279                 "1laqwhxr0xhbykmp0dhd3j4rr2lhj5y228s31afnqxp700hhk1yz"))))
 280     (build-system gnu-build-system)
 281     (native-inputs
 282      `(("pkg-config" ,pkg-config)))
 283     (inputs
 284      `(("readline" ,readline)
 285        ("libjpeg-turbo" ,libjpeg-turbo)
 286        ("popt" ,popt)
 287        ("libexif" ,libexif)
 288        ("libgphoto2" ,libgphoto2)))
 289     (arguments
 290      '(#:phases
 291        (modify-phases %standard-phases
 292          (add-before 'check 'pre-check
 293            (lambda* (#:key inputs #:allow-other-keys)
 294              (substitute* (find-files "tests/data" "\\.param$")
 295                (("/usr/bin/env")
 296                 (which "env")))
 297              #t)))
 298
 299        ;; FIXME: There is 1 test failure, most likely related to the build
 300        ;; environment.
 301        #:tests? #f))
 302
 303     (home-page "http://www.gphoto.org/")
 304     (synopsis "Command-line tools to access digital cameras")
 305     (description
 306      "Gphoto2 is a set of command line utilities for manipulating a large
 307 number of different digital cameras.  Through libgphoto2, it supports PTP,
 308 MTP, and much more.")
 309
 310     ;; Files are typically under LGPLv2+, but 'COPYING' says GPLv2+.
 311     (license license:gpl2+)))
 312
 313 ;; Note: See <https://metacpan.org/pod/Image::ExifTool> for the latest
 314 ;; release.  The versions at <https://www.sno.phy.queensu.ca/~phil/exiftool/>
 315 ;; are not meant for production use according to the Changes file.
 316 (define-public perl-image-exiftool
 317   (package
 318     (name "perl-image-exiftool")
 319     (version "11.85")
 320     (source
 321      (origin
 322        (method url-fetch)
 323        (uri (list
 324              (string-append "mirror://cpan/authors/id/E/EX/EXIFTOOL/"
 325                             "Image-ExifTool-" version ".tar.gz")
 326              ;; New releases may take a while to hit CPAN.
 327              (string-append "https://www.sno.phy.queensu.ca/~phil/exiftool/"
 328                             "Image-ExifTool-" version ".tar.gz")))
 329        (sha256
 330         (base32
 331          "15zqm0ly2b3paqg0ym44ib2mvh6k18a9q5rvdirwipqa127al2lb"))))
 332     (build-system perl-build-system)
 333     (arguments
 334      '(#:phases
 335        (modify-phases %standard-phases
 336          (add-after 'install 'post-install
 337            (lambda* (#:key outputs #:allow-other-keys)
 338              ;; Make sure the 'exiftool' commands finds the library.
 339              ;; XXX: Shouldn't it be handled by PERL-BUILD-SYSTEM?
 340              (let* ((out (assoc-ref outputs "out"))
 341                     (pm  (find-files out "^ExifTool\\.pm$"))
 342                     (lib (dirname (dirname (car pm)))))
 343                (wrap-program (string-append out "/bin/exiftool")
 344                  `("PERL5LIB" prefix (,lib)))
 345                #t))))))
 346     (home-page "https://metacpan.org/release/Image-ExifTool")
 347     (synopsis "Program and Perl library to manipulate EXIF and other metadata")
 348     (description "This package provides the @code{exiftool} command and the
 349 @code{Image::ExifTool} Perl library to manipulate EXIF tags of digital images
 350 and a wide variety of other metadata.")
 351     (license license:perl-license)))
 352
 353 (define-public libpano13
 354   (package
 355     (name "libpano13")
 356     (version "2.9.19")
 357     (source (origin
 358               (method url-fetch)
 359               (uri (string-append "mirror://sourceforge/panotools/libpano13/"
 360                                   "libpano13-" version "/"
 361                                   "libpano13-" version ".tar.gz"))
 362               (sha256
 363                (base32
 364                 "1a4m3plmfcrrplqs9zfzhc5apibn10m5sajpizm1sd3q74w5fwq3"))))
 365     (build-system cmake-build-system)
 366     (inputs
 367      `(("libjpeg" ,libjpeg-turbo)
 368        ("libpng" ,libpng)
 369        ("libtiff" ,libtiff)
 370        ("zlib" ,zlib)))
 371     (home-page "http://panotools.sourceforge.net/")
 372     (synopsis "Library for panoramic images")
 373     (description
 374      "The libpano13 package contains the backend library written by the
 375 Panorama Tools project for building panoramic images from a set of
 376 overlapping images, as well as some command line tools.")
 377     (license license:gpl2+)))
 378
 379 (define-public enblend-enfuse
 380   (package
 381     (name "enblend-enfuse")
 382     (version "4.2")
 383     (source (origin
 384               (method url-fetch)
 385               (uri (string-append "mirror://sourceforge/enblend/"
 386                                   name "/"
 387                                   name "-" (version-major+minor version) "/"
 388                                   name "-" version ".tar.gz"))
 389               (sha256
 390                (base32
 391                 "0j5x011ilalb47ssah50ag0a4phgh1b0wdgxdbbp1gcyjcjf60w7"))))
 392     (build-system gnu-build-system)
 393     (native-inputs
 394      `(("pkg-config" ,pkg-config)
 395        ("perl" ,perl)
 396        ("perl-timedate" ,perl-timedate)
 397        ;; for building the documentation
 398        ("gnuplot" ,gnuplot)
 399        ("help2man" ,help2man)
 400        ("imagemagick" ,imagemagick)
 401        ("libxml2" ,libxml2)
 402        ("texlive-minimal" ,texlive-tiny)
 403        ("tidy" ,tidy)
 404        ("transfig" ,transfig)))
 405     (inputs
 406      `(("boost" ,boost)
 407        ("gsl" ,gsl)
 408        ("lcms" ,lcms)
 409        ("libjpeg" ,libjpeg-turbo)
 410        ("libpng" ,libpng)
 411        ("libtiff" ,libtiff)
 412        ("openexr" ,openexr)
 413        ("vigra" ,vigra)
 414        ("zlib" ,zlib)))
 415     (arguments
 416      `(#:configure-flags `("--enable-openmp")))
 417     (home-page "http://enblend.sourceforge.net/")
 418     (synopsis "Tools for combining and blending images")
 419     (description
 420      "Enblend blends away the seams in a panoramic image mosaic using a
 421 multi-resolution spline.  Enfuse merges different exposures of the same
 422 scene to produce an image that looks much like a tone-mapped image.")
 423     (license license:gpl2+)))
 424
 425 (define-public lensfun
 426   (package
 427     (name "lensfun")
 428     (version "0.3.2")
 429     (source (origin
 430               (method url-fetch)
 431               (uri (string-append
 432                     "mirror://sourceforge/lensfun/"
 433                     version "/lensfun-" version ".tar.gz"))
 434               (sha256
 435                (base32
 436                 "0cfk8jjhs9nbfjfdy98plrj9ayi59aph0nx6ppslgjhlcvacm2xf"))))
 437     (build-system cmake-build-system)
 438     (arguments
 439      `(,@(if (any (cute string-prefix? <> (or (%current-system)
 440                                               (%current-target-system)))
 441                   '("x86_64" "i686"))
 442         ;; SSE and SSE2 are supported only on Intel processors.
 443         '()
 444         '(#:configure-flags '("-DBUILD_FOR_SSE=OFF" "-DBUILD_FOR_SSE2=OFF")))
 445        #:tests? #f)) ; There are no tests to run.
 446     (native-inputs
 447      `(("pkg-config" ,pkg-config)))
 448     (inputs
 449      `(("glib" ,glib)))
 450     (home-page "https://sourceforge.net/projects/lensfun/")
 451     (synopsis "Library to correct optical lens defects with a lens database")
 452     (description "Digital photographs are not ideal.  Of course, the better is
 453 your camera, the better the results will be, but in any case if you look
 454 carefully at shots taken even by the most expensive cameras equipped with the
 455 most expensive lenses you will see various artifacts.  It is very hard to make
 456 ideal cameras, because there are a lot of factors that affect the final image
 457 quality, and at some point camera and lens designers have to trade one factor
 458 for another to achieve the optimal image quality, within the given design
 459 restrictions and budget.  But we all want ideal shots, don't we?  So that's
 460 what's Lensfun is all about: rectifying the defects introduced by your
 461 photographic equipment.")
 462     ;; The libraries are licensed under the LGPL3, the programs are
 463     ;; licensed GPL3, and the database is license CC-BY-SA 3.0.  See the
 464     ;; README.md file for this clarification.
 465     (license (list license:lgpl3 license:gpl3 license:cc-by-sa3.0))))
 466
 467 (define-public darktable
 468   (package
 469     (name "darktable")
 470     (version "3.0.2")
 471     (source
 472      (origin
 473        (method url-fetch)
 474        (uri (string-append
 475              "https://github.com/darktable-org/darktable/releases/"
 476              "download/release-" version "/darktable-" version ".tar.xz"))
 477        (sha256
 478         (base32 "1yrnkw8c47kmy2x6m1xp69hwyk02xyc8pd9kvcmyj54lzrhzdfka"))))
 479     (build-system cmake-build-system)
 480     (arguments
 481      `(#:tests? #f                      ; there are no tests
 482        #:configure-flags '("-DBINARY_PACKAGE_BUILD=On")
 483        #:phases
 484        (modify-phases %standard-phases
 485          (add-before 'configure 'prepare-build-environment
 486            (lambda* (#:key inputs #:allow-other-keys)
 487              (setenv "CC" "clang") (setenv "CXX" "clang++")
 488              ;; Darktable looks for opencl-c.h in the LLVM dir. Guix installs
 489              ;; it to the Clang dir. We fix this by patching CMakeLists.txt.
 490              (substitute* "CMakeLists.txt"
 491                (("\\$\\{LLVM_INSTALL_PREFIX\\}")
 492                 (assoc-ref %build-inputs "clang")))
 493              #t))
 494          (add-before 'configure 'set-LDFLAGS-and-CPATH
 495            (lambda* (#:key inputs outputs #:allow-other-keys)
 496              (setenv "LDFLAGS"
 497                      (string-append
 498                       "-Wl,-rpath="
 499                       (assoc-ref outputs "out") "/lib/darktable"))
 500
 501              ;; Ensure the OpenEXR headers are found.
 502              (setenv "CPATH"
 503                      (string-append (assoc-ref inputs "ilmbase")
 504                                     "/include/OpenEXR:" (or (getenv "CPATH") "")))
 505              #t))
 506           (add-after 'install 'wrap-program
 507             (lambda* (#:key inputs outputs #:allow-other-keys)
 508               (wrap-program (string-append (assoc-ref outputs "out")
 509                                            "/bin/darktable")
 510                 ;; For GtkFileChooserDialog.
 511                 `("GSETTINGS_SCHEMA_DIR" =
 512                   (,(string-append (assoc-ref inputs "gtk+")
 513                                    "/share/glib-2.0/schemas"))))
 514               #t)))))
 515     (native-inputs
 516      `(("clang" ,clang-9)
 517        ("desktop-file-utils" ,desktop-file-utils)
 518        ("glib:bin" ,glib "bin")
 519        ("gobject-introspection" ,gobject-introspection)
 520        ("intltool" ,intltool)
 521        ("llvm" ,llvm-9) ;should match the Clang version
 522        ("opencl-headers" ,opencl-headers)
 523        ("perl" ,perl)
 524        ("pkg-config" ,pkg-config)
 525        ("po4a" ,po4a)))
 526     (inputs
 527      `(("cairo" ,cairo)
 528        ("colord-gtk" ,colord-gtk)
 529        ("cups" ,cups)
 530        ("curl" ,curl)
 531        ("dbus-glib" ,dbus-glib)
 532        ("exiv2" ,exiv2)
 533        ("freeimage" ,freeimage)
 534        ("gmic" ,gmic)
 535        ("graphicsmagick" ,graphicsmagick)
 536        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 537        ("gtk+" ,gtk+)
 538        ("ilmbase" ,ilmbase)
 539        ("iso-codes" ,iso-codes)
 540        ("json-glib" ,json-glib)
 541        ("lcms" ,lcms)
 542        ("lensfun" ,lensfun)
 543        ("libgphoto2" ,libgphoto2)
 544        ("libjpeg" ,libjpeg-turbo)
 545        ("libomp" ,libomp)
 546        ("libpng" ,libpng)
 547        ("librsvg" ,librsvg)
 548        ("libsecret" ,libsecret)
 549        ("libsoup" ,libsoup)
 550        ("libtiff" ,libtiff)
 551        ("libwebp" ,libwebp)
 552        ("libxml2" ,libxml2)
 553        ("libxslt" ,libxslt)
 554        ("lua" ,lua) ;for plugins
 555        ("openexr" ,openexr)
 556        ("openjpeg" ,openjpeg)
 557        ("osm-gps-map" ,osm-gps-map)
 558        ("pugixml" ,pugixml)
 559        ("python-jsonschema" ,python-jsonschema)
 560        ("sqlite" ,sqlite)))
 561     (home-page "https://www.darktable.org")
 562     (synopsis "Virtual lighttable and darkroom for photographers")
 563     (description "Darktable is a photography workflow application and RAW
 564 developer.  It manages your digital negatives in a database, lets you view
 565 them through a zoomable lighttable and enables you to develop raw images
 566 and enhance them.")
 567     ;; See src/is_supported_platform.h for supported platforms.
 568     (supported-systems '("i686-linux" "x86_64-linux" "aarch64-linux"))
 569     (license (list license:gpl3+ ;; Darktable itself.
 570                    license:lgpl2.1+)))) ;; Rawspeed library.
 571
 572 (define-public photoflare
 573   (package
 574     (name "photoflare")
 575     (version "1.6.5")
 576     (source
 577      (origin
 578        (method git-fetch)
 579        (uri (git-reference
 580              (url "https://github.com/photoflare/photoflare")
 581              (commit (string-append "v" version))))
 582        (file-name (git-file-name name version))
 583        (sha256
 584         (base32 "0a394324h7ds567z3i3pw6kkii78n4qwdn129kgkkm996yh03q89"))))
 585     (build-system gnu-build-system)
 586     (arguments
 587      '(#:tests? #f                      ;no tests
 588        #:phases
 589        (modify-phases %standard-phases
 590          (replace 'configure
 591            (lambda* (#:key inputs outputs #:allow-other-keys)
 592              (let ((magickpp (assoc-ref inputs "graphicsmagick"))
 593                    (out (assoc-ref outputs "out")))
 594                (invoke "qmake"
 595                        (string-append "INCLUDEPATH += " magickpp
 596                                       "/include/GraphicsMagick")
 597                        (string-append "PREFIX=" out)
 598                        "Photoflare.pro")))))))
 599     (native-inputs
 600      `(("pkg-config" ,pkg-config)
 601        ("qttools" ,qttools)))
 602     (inputs
 603      `(("graphicsmagick" ,graphicsmagick)
 604        ("libomp" ,libomp)
 605        ("qtbase" ,qtbase)))
 606     (home-page "https://photoflare.io")
 607     (synopsis "Quick, simple but powerful image editor")
 608     (description "Photoflare is a cross-platform image editor with an aim
 609 to balance between powerful features and a very friendly graphical user
 610 interface.  It suits a wide variety of different tasks and users who value a
 611 more nimble workflow.  Features include basic image editing capabilities,
 612 paint brushes, image filters, colour adjustments and more advanced features
 613 such as Batch image processing.")
 614     (license license:gpl3+)))
 615
 616 (define-public entangle
 617   (package
 618     (name "entangle")
 619     (version "3.0")
 620     (source
 621      (origin
 622        (method git-fetch)
 623        (uri (git-reference
 624              (url "https://gitlab.com/entangle/entangle")
 625              (commit (string-append "v" version))))
 626        (file-name (git-file-name name version))
 627        (sha256
 628         (base32 "1pdmgxjdb3xlcqsaz7l8qzj5f7g7nwzhsrgid8929bm36d49cgc7"))))
 629     (build-system meson-build-system)
 630     (arguments
 631      `(#:glib-or-gtk? #t
 632        #:phases
 633        (modify-phases %standard-phases
 634          (add-after 'unpack 'skip-gtk-update-icon-cache
 635            ;; Don't create 'icon-theme.cache'.
 636            (lambda _
 637              (substitute* "meson_post_install.py"
 638                (("gtk-update-icon-cache") "true"))
 639              #t))
 640          (add-after 'install 'wrap-gi-python
 641            ;; Make GTK find files needed by plugins.
 642            (lambda* (#:key inputs outputs #:allow-other-keys)
 643              (let ((out               (assoc-ref outputs "out"))
 644                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
 645                    (python-path       (getenv "PYTHONPATH")))
 646                (wrap-program (string-append out "/bin/entangle")
 647                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
 648                  `("PYTHONPATH" ":" prefix (,python-path))))
 649              #t)))))
 650     (native-inputs
 651      `(("cmake" ,cmake)
 652        ("gettext" ,gettext-minimal)
 653        ("glib:bin" ,glib "bin")
 654        ("gobject-introspection" ,gobject-introspection)
 655        ("gtk-doc" ,gtk-doc)
 656        ("perl" ,perl)
 657        ("pkg-config" ,pkg-config)
 658        ("xmllint" ,libxml2)))
 659     (inputs
 660      `(("gdk-pixbuf" ,gdk-pixbuf)
 661        ("gexiv2" ,gexiv2)
 662        ("gst-plugins-base" ,gst-plugins-base)
 663        ("gstreamer" ,gstreamer)
 664        ("gtk+" ,gtk+)
 665        ("lcms" ,lcms)
 666        ("libgphoto2" ,libgphoto2)
 667        ("libgudev" ,libgudev)
 668        ("libpeas" ,libpeas)
 669        ("libraw" ,libraw)
 670        ("python" ,python)
 671        ("python-pygobject" ,python-pygobject)))
 672     (home-page "https://entangle-photo.org/")
 673     (synopsis "Camera control and capture")
 674     (description
 675      "Entangle is an application which uses GTK and libgphoto2 to provide a
 676 graphical interface for tethered photography with digital cameras.  It
 677 includes control over camera shooting and configuration settings and 'hands
 678 off' shooting directly from the controlling computer.")
 679     (license license:gpl3+)))
 680
 681 (define-public hugin
 682   (package
 683     (name "hugin")
 684     (version "2019.2.0")
 685     (source (origin
 686               (method url-fetch)
 687               (uri (string-append "mirror://sourceforge/hugin/hugin/hugin-"
 688                                   (version-major+minor version)
 689                                   "/hugin-" version ".tar.bz2"))
 690               (sha256
 691                (base32
 692                 "0gjsm5bgz10wbr5q3y74f8dzb238dh32xx0p5wa3yca6lbzbv9lb"))))
 693     (build-system cmake-build-system)
 694     (native-inputs
 695      `(("gettext" ,gettext-minimal)
 696        ("pkg-config" ,pkg-config)))
 697     (inputs
 698      `(("boost" ,boost)
 699        ("enblend-enfuse" ,enblend-enfuse)
 700        ("exiv2" ,exiv2-0.26)
 701        ("fftw" ,fftw)
 702        ("flann" ,flann)
 703        ("freeglut" ,freeglut)
 704        ("glew" ,glew)
 705        ("lcms" ,lcms)
 706        ("libjpeg" ,libjpeg-turbo)
 707        ("libpano13" ,libpano13)
 708        ("libpng" ,libpng)
 709        ("libtiff" ,libtiff)
 710        ("libxi" ,libxi)
 711        ("libxmu" ,libxmu)
 712        ("mesa" ,mesa)
 713        ("openexr" ,openexr)
 714        ("sqlite" ,sqlite)
 715        ("vigra" ,vigra)
 716        ("wxwidgets" ,wxwidgets)
 717        ("zlib" ,zlib)))
 718     (arguments
 719      `(#:tests? #f                      ; no check target
 720        #:configure-flags
 721        (list
 722         ;; The header files of ilmbase (propagated by openexr) are not found
 723         ;; when included by the header files of openexr, and an explicit
 724         ;; flag needs to be set.
 725         (string-append "-DCMAKE_CXX_FLAGS=-I"
 726                        (assoc-ref %build-inputs "ilmbase")
 727                        "/include/OpenEXR")
 728         ;; Disable installation of the Python scripting interface.
 729         ;; It would require the additional inputs python and swig.
 730         ;; Installation would need to be tweaked, as it tries to install
 731         ;; into the python directory.
 732         "-DBUILD_HSI=OFF")
 733        #:phases
 734        (modify-phases %standard-phases
 735          (add-before 'configure 'substitute
 736            (lambda _
 737              (substitute* "src/hugin1/base_wx/StitchingExecutor.cpp"
 738                (("wxT\\(\"enblend\"\\)")
 739                 (string-append "wxT(\"" (which "enblend") "\")"))
 740                (("wxT\\(\"enfuse\"\\)")
 741                 (string-append "wxT(\"" (which "enfuse") "\")")))
 742              #t)))))
 743     (home-page "http://hugin.sourceforge.net/")
 744     (synopsis "Panorama photo stitcher")
 745     (description
 746      "Hugin is an easy to use panoramic imaging toolchain with a graphical
 747 user interface.  It can be used to assemble a mosaic of photographs into
 748 a complete panorama and stitch any series of overlapping pictures.")
 749     (license license:gpl2+)))
 750
 751 (define-public rawtherapee
 752   (package
 753     (name "rawtherapee")
 754     (version "5.8")
 755     (source (origin
 756               (method url-fetch)
 757               (uri (string-append "http://rawtherapee.com/shared/source/"
 758                                   "rawtherapee-" version ".tar.xz"))
 759               (sha256
 760                (base32
 761                 "0lq8qi7g0a28h3rab7bk5bbbd4gvfma42bvlz1dfn8p9mah2h19n"))))
 762     (build-system cmake-build-system)
 763     (arguments
 764      '(#:tests? #f                      ; no test suite
 765        #:build-type "release"
 766        #:configure-flags
 767        (list (string-append "-DLENSFUNDBDIR="
 768                             (assoc-ref %build-inputs "lensfun")
 769                             "/share/lensfun")
 770              ;; Don't optimize the build for the host machine. See the file
 771              ;; 'ProcessorTargets.cmake' in the source distribution for more
 772              ;; information.
 773              "-DPROC_TARGET_NUMBER=1"
 774              ;; These flags are recommended by upstream for distributed packages.
 775              ;; See the file 'RELEASE_NOTES.txt' in the source distribution.
 776              "-O3"
 777              "-DCACHE_NAME_SUFFIX=\"\"")))
 778     (native-inputs
 779      `(("pkg-config" ,pkg-config)))
 780     (inputs
 781      `(("expat" ,expat)
 782        ("fftw" ,fftwf)
 783        ("glib" ,glib)
 784        ("glibmm" ,glibmm)
 785        ("gtk+" ,gtk+)
 786        ("gtkmm" ,gtkmm)
 787        ("lcms" ,lcms)
 788        ("lensfun" ,lensfun)
 789        ("libcanberra" ,libcanberra)
 790        ("libiptcdata" ,libiptcdata)
 791        ("libjpeg" ,libjpeg-turbo)
 792        ("libpng" ,libpng)
 793        ("librsvg" ,librsvg)
 794        ("libsigc++" ,libsigc++)
 795        ("libtiff" ,libtiff)
 796        ("zlib" ,zlib)))
 797     (home-page "http://rawtherapee.com")
 798     (synopsis "Raw image developing and processing")
 799     (description "RawTherapee is a raw image processing suite.  It comprises a
 800 subset of image editing operations specifically aimed at non-destructive raw
 801 photo post-production and is primarily focused on improving a photographer's
 802 workflow by facilitating the handling of large numbers of images.  Most raw
 803 formats are supported, including Pentax Pixel Shift, Canon Dual-Pixel, and those
 804 from Foveon and X-Trans sensors.")
 805     (license license:gpl3+)))