diff options
| author | Arun Isaac | 2017-02-23 00:52:18 +0530 |
|---|---|---|
| committer | Arun Isaac | 2017-02-23 00:52:18 +0530 |
| commit | b99c161c985726f76c9f93b45c14db10d2198b43 (patch) | |
| tree | f8e11f897a30916f6e2767a51624ce7f471f8b70 | |
| parent | c18b8a0fd8953853864b69d4884bfc6da3ed0215 (diff) | |
| download | exiftool.el-b99c161c985726f76c9f93b45c14db10d2198b43.tar.gz exiftool.el-b99c161c985726f76c9f93b45c14db10d2198b43.tar.lz exiftool.el-b99c161c985726f76c9f93b45c14db10d2198b43.zip | |
Return empty string for missing tags.
* el-exiftool.el (el-exiftool-read): Handle case when tag is not found. Force exiftool to print missing tags, and replace their values with an empty string.
| -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))) |