diff options
| -rw-r--r-- | el-exiftool.el | 7 |
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))) |