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