From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:39843) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1j5E0z-00069N-Ur for guix-patches@gnu.org; Fri, 21 Feb 2020 14:31:11 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1j5E0t-0008P7-FG for guix-patches@gnu.org; Fri, 21 Feb 2020 14:31:06 -0500 Received: from debbugs.gnu.org ([209.51.188.43]:42185) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1j5E0t-0008NC-0K for guix-patches@gnu.org; Fri, 21 Feb 2020 14:31:03 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1j5E0s-0000yV-TO for guix-patches@gnu.org; Fri, 21 Feb 2020 14:31:02 -0500 Subject: [bug#39718] [PATCH 1/1] gnu: Add emacs-exiftool. Resent-Message-ID: From: Arun Isaac Date: Sat, 22 Feb 2020 01:00:01 +0530 Message-Id: <20200221193001.8009-2-arunisaac@systemreboot.net> In-Reply-To: <20200221193001.8009-1-arunisaac@systemreboot.net> References: <20200221193001.8009-1-arunisaac@systemreboot.net> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 39718@debbugs.gnu.org Cc: Arun Isaac * 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 e2e8a9e62e..82df71118b 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -16,7 +16,7 @@ ;;; Copyright © 2016, 2019 Alex Griffin ;;; Copyright © 2016, 2017, 2018, 2019, 2020 Nicolas Goaziou ;;; Copyright © 2016, 2017, 2018 Alex Vong -;;; Copyright © 2016, 2017, 2018, 2019 Arun Isaac +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Arun Isaac ;;; Copyright © 2017 Christopher Baines ;;; Copyright © 2017, 2018, 2019, 2020 Mathieu Othacehe ;;; Copyright © 2017, 2018, 2019 Clément Lassieur @@ -153,6 +153,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)) @@ -21477,3 +21478,40 @@ Values are stored in a directory in @code{user-emacs-directory}, using one file per value. This makes it easy to delete or remove unused variables.") (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{emacse-exiftool} is an elisp wrapper around ExifTool. +ExifTool supports reading and writing metadata in various formats including +EXIF, XMP and IPTC.") + (license license:gpl3+))) -- 2.23.0