1 files changed, 46 insertions, 0 deletions
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)