summaryrefslogtreecommitdiff
path: root/el-exiftool.el
diff options
context:
space:
mode:
Diffstat (limited to 'el-exiftool.el')
-rw-r--r--el-exiftool.el46
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)