aboutsummaryrefslogtreecommitdiff
path: root/el-exiftool.el
diff options
context:
space:
mode:
Diffstat (limited to 'el-exiftool.el')
-rw-r--r--el-exiftool.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/el-exiftool.el b/el-exiftool.el
index dd4081b..c68664b 100644
--- a/el-exiftool.el
+++ b/el-exiftool.el
@@ -70,10 +70,13 @@ to the exiftool command line application."
\(fn FILE TAG...)"
(mapcar
(lambda (line)
- (apply 'cons (split-string line ": ")))
+ (cl-destructuring-bind
+ (tag value) (split-string line ": ")
+ (let ((value (if (equal value "-") "" value)))
+ (cons tag value))))
(split-string
(apply 'el-exiftool-command
- "-s" "-s"
+ "-s" "-s" "-f"
(append
(mapcar (apply-partially 'format "-%s") tags)
(list file)))