From 5169f200cce03fb47b4f11b743d46d0204d9e4b6 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 20 Feb 2017 00:24:12 +0530
Subject: Initial commit
---
el-exiftool-tests.el | 14 ++++++++++++++
el-exiftool.el | 46 ++++++++++++++++++++++++++++++++++++++++++++++
test1.png | Bin 0 -> 1234 bytes
test2.jpg | Bin 0 -> 4704 bytes
4 files changed, 60 insertions(+)
create mode 100644 el-exiftool-tests.el
create mode 100644 el-exiftool.el
create mode 100644 test1.png
create mode 100644 test2.jpg
diff --git a/el-exiftool-tests.el b/el-exiftool-tests.el
new file mode 100644
index 0000000..7fce6e8
--- /dev/null
+++ b/el-exiftool-tests.el
@@ -0,0 +1,14 @@
+(require 'el-exiftool)
+(require 'ert)
+
+(ert-deftest read-write-test ()
+ (let ((test-filename "test1.png"))
+ (let ((temp-filename (make-temp-file "el-exiftool-"
+ nil (concat "-" test-filename)))
+ (tag "xmp:Marked")
+ (value "True"))
+ (copy-file test-filename temp-filename t)
+ (el-exiftool-write temp-filename (cons tag value))
+ (should (equal (el-exiftool-read temp-filename tag)
+ value))
+ (delete-file temp-filename))))
diff --git a/el-exiftool.el b/el-exiftool.el
new file mode 100644
index 0000000..9dd4807
--- /dev/null
+++ b/el-exiftool.el
@@ -0,0 +1,46 @@
+;; -*- lexical-binding: t -*-
+
+(require 'subr-x)
+(require 'cl)
+
+(defun el-exiftool--tq-sync-query (tq question regexp &optional closure)
+ (let ((response))
+ (tq-enqueue tq question regexp closure
+ (lambda (closure answer) (setq response answer)))
+ (while (not response)
+ (accept-process-output))
+ response))
+
+(defun el-exiftool-run ()
+ (when-let (exiftool (get-process "exiftool"))
+ (delete-process exiftool))
+ (start-process "exiftool" "exiftool" "exiftool" "-stay_open" "True" "-@" "-"))
+
+(let ((tq (tq-create (el-exiftool-run))))
+ (defun el-exiftool-command (&rest args)
+ (string-trim
+ (let ((suffix "{ready}\n"))
+ (string-remove-suffix
+ suffix (el-exiftool--tq-sync-query
+ tq (concat (string-join args "\n")
+ "\n-execute\n")
+ suffix))))))
+
+(defun el-exiftool-read (filepath tag)
+ (el-exiftool-command
+ "-s" "-s" "-s" (format "-%s" tag) filepath))
+
+(defun el-exiftool-copy (source destination)
+ (el-exiftool-command "-overwrite_original"
+ "-tagsFromFile" source
+ "-all:all" destination)
+ (message "Tags from %s copied to %s" source destination)
+ destination)
+
+(cl-defun el-exiftool-write (filepath (tag . value))
+ (unless (string-blank-p value)
+ (el-exiftool-command
+ "-m" "-overwrite_original"
+ (format "-%s=%s" tag value) filepath)))
+
+(provide 'el-exiftool)
diff --git a/test1.png b/test1.png
new file mode 100644
index 0000000..7252cca
Binary files /dev/null and b/test1.png differ
diff --git a/test2.jpg b/test2.jpg
new file mode 100644
index 0000000..b027165
Binary files /dev/null and b/test2.jpg differ
--
cgit v1.2.3