aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac <arunisaac@systemreboot.net>2019-05-16 20:44:36 +0530
committerArun Isaac <arunisaac@systemreboot.net>2019-05-16 20:44:36 +0530
commit930f692039680051b89b130a7e790a232df4462b (patch)
treed1b01860f743f3b251e3aadc75d4984d9232de89
parent4131fa38160dabd5d7143aad8aca5db575749292 (diff)
downloadexiftool.el-930f692039680051b89b130a7e790a232df4462b.tar.xz
exiftool.el-930f692039680051b89b130a7e790a232df4462b.zip
Specify exiftool executable in a variable.
* exiftool.el (exiftool-executable): New variable. (exiftool-run): Invoke command specified in exiftool-executable.
-rw-r--r--exiftool.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/exiftool.el b/exiftool.el
index fdc2d54..2fd60e2 100644
--- a/exiftool.el
+++ b/exiftool.el
@@ -42,6 +42,9 @@
(require 'subr-x)
(require 'tq)
+(defvar exiftool-executable "exiftool"
+ "Executable used to invoke exiftool.")
+
(defun exiftool--tq-sync-query (tq question regexp)
"Add a transaction to transaction queue TQ, block and read response.
@@ -61,7 +64,8 @@ a new one. Return the process object of the newly created
process."
(when-let (exiftool (get-process "exiftool"))
(delete-process exiftool))
- (start-process "exiftool" "exiftool" "exiftool" "-stay_open" "True" "-@" "-"))
+ (start-process "exiftool" "exiftool"
+ exiftool-executable "-stay_open" "True" "-@" "-"))
(let ((tq (tq-create (exiftool-run))))
(defun exiftool-command (&rest args)