aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-11-08 22:24:08 +0100
committerLudovic Courtès <ludo@gnu.org>2014-11-08 22:34:24 +0100
commitb138ec947ad10096489d6a6b2b30f992784797c4 (patch)
treed287b46fe06457dbe6ee6a62b64425107772a0fa
parent28567712f397d5e50324acd381e389eba920d8df (diff)
downloadguix-b138ec947ad10096489d6a6b2b30f992784797c4.tar
guix-b138ec947ad10096489d6a6b2b30f992784797c4.tar.gz
gnu: Add Image::ExitTool.
* gnu/packages/photo.scm (perl-image-exiftool): New variable.
-rw-r--r--gnu/packages/photo.scm35
1 files changed, 35 insertions, 0 deletions
diff --git a/gnu/packages/photo.scm b/gnu/packages/photo.scm
index 8bc2079f4c..4f1787fe75 100644
--- a/gnu/packages/photo.scm
+++ b/gnu/packages/photo.scm
@@ -21,11 +21,13 @@
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu)
+ #:use-module (guix build-system perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages libusb)
#:use-module (gnu packages autotools)
#:use-module (gnu packages readline)
#:use-module (gnu packages popt)
+ #:use-module (gnu packages perl)
#:use-module ((gnu packages base) #:select (tzdata)))
(define-public libexif
@@ -119,3 +121,36 @@ MTP, and much more.")
;; Files are typically under LGPLv2+, but 'COPYING' says GPLv2+.
(license gpl2+)))
+
+(define-public perl-image-exiftool
+ (package
+ (name "perl-image-exiftool")
+ (version "9.70")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://cpan/authors/id/E/EX/EXIFTOOL/Image-ExifTool-"
+ version ".tar.gz"))
+ (sha256
+ (base32
+ "074yxjgy50iacnjakdvac37wvrzrqmabkn0nzk0n70y3hssli7d5"))))
+ (build-system perl-build-system)
+ (arguments
+ '(#:phases (alist-cons-after
+ 'install 'post-install
+ (lambda* (#:key outputs #:allow-other-keys)
+ ;; Make sure the 'exiftool' commands finds the library.
+ ;; XXX: Shouldn't it be handled by PERL-BUILD-SYSTEM?
+ (let* ((out (assoc-ref outputs "out"))
+ (pm (find-files out "^ExifTool\\.pm$"))
+ (lib (dirname (dirname (car pm)))))
+ (wrap-program (string-append out "/bin/exiftool")
+ `("PERL5LIB" prefix (,lib)))))
+ %standard-phases)))
+ (home-page
+ "http://search.cpan.org/~exiftool/Image-ExifTool-9.70/lib/Image/ExifTool.pod")
+ (synopsis "Program and Perl library to manipulate EXIF tags")
+ (description
+ "This package provides the 'exiftool' command and the 'Image::ExifTool'
+Perl library to manipulate EXIF tags of digital images.")
+ (license (package-license perl))))