[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: gnu: Add emacs-exiftool.
From: |
guix-commits |
Subject: |
01/02: gnu: Add emacs-exiftool. |
Date: |
Thu, 27 Feb 2020 04:53:42 -0500 (EST) |
ambrevar pushed a commit to branch master
in repository guix.
commit b4e0f0dc37d6a3a887e85008194daf4178f827ef
Author: Arun Isaac <address@hidden>
AuthorDate: Thu Feb 27 10:42:14 2020 +0100
gnu: Add emacs-exiftool.
* gnu/packages/emacs-xyz.scm (emacs-exiftool): New variable.
---
gnu/packages/emacs-xyz.scm | 40 +++++++++++++++++++++++++++++++++++++++-
1 file changed, 39 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index fdd4ffe..177b2f3 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -16,7 +16,7 @@
;;; Copyright © 2016, 2019 Alex Griffin <address@hidden>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Nicolas Goaziou <address@hidden>
;;; Copyright © 2016, 2017, 2018 Alex Vong <address@hidden>
-;;; Copyright © 2016, 2017, 2018, 2019 Arun Isaac <address@hidden>
+;;; Copyright © 2016, 2017, 2018, 2019, 2020 Arun Isaac <address@hidden>
;;; Copyright © 2017 Christopher Baines <address@hidden>
;;; Copyright © 2017, 2018, 2019, 2020 Mathieu Othacehe <address@hidden>
;;; Copyright © 2017, 2018, 2019 Clément Lassieur <address@hidden>
@@ -155,6 +155,7 @@
#:use-module (gnu packages video)
#:use-module (gnu packages haskell-xyz)
#:use-module (gnu packages wordnet)
+ #:use-module (gnu packages photo)
#:use-module (guix utils)
#:use-module (srfi srfi-1)
#:use-module (ice-9 match))
@@ -21601,3 +21602,40 @@ variables.")
"This library is a Company back-end providing auto-completion for
emoji.")
(license license:gpl3+)))
+
+(define-public emacs-exiftool
+ (package
+ (name "emacs-exiftool")
+ (version "0.3.2")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://git.systemreboot.net/exiftool.el/")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "0bv58is66cz21yhc0qqkp1z4nk13zfi2l7i6pjbhyi0g1n88qqyv"))))
+ (build-system emacs-build-system)
+ (arguments
+ `(#:tests? #t
+ #:test-command '("make" "-C" "tests")
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'configure
+ (lambda* (#:key inputs #:allow-other-keys)
+ (make-file-writable "exiftool.el")
+ (emacs-substitute-variables "exiftool.el"
+ ("exiftool-executable"
+ (string-append (assoc-ref inputs "perl-image-exiftool")
+ "/bin/exiftool")))
+ #t)))))
+ (inputs
+ `(("perl-image-exiftool" ,perl-image-exiftool)))
+ (home-page "https://git.systemreboot.net/exiftool.el/about/")
+ (synopsis "Elisp wrapper around ExifTool")
+ (description "@code{emacs-exiftool} is an Elisp wrapper around ExifTool.
+ExifTool supports reading and writing metadata in various formats including
+EXIF, XMP and IPTC.")
+ (license license:gpl3+)))