diff options
Diffstat (limited to 'el-exiftool.el')
| -rw-r--r-- | el-exiftool.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/el-exiftool.el b/el-exiftool.el index d72022f..789269c 100644 --- a/el-exiftool.el +++ b/el-exiftool.el @@ -27,19 +27,20 @@ response)) (defun el-exiftool-run () - "Start an exiftool process if not already running. If an exiftool -process is already running, delete it, and create a new one. Return -the process object of the newly created process." + "Start an exiftool process if one is not already running. +If an exiftool process is already running, delete it, and create +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" "-@" "-")) (let ((tq (tq-create (el-exiftool-run)))) (defun el-exiftool-command (&rest args) - "Execute a command in the currently running exiftool process. If -there is no running exiftool process, a new one will be created. ARGS -are arguments of the command to be run, as provided to the exiftool -command line application." + "Execute a command in the currently running exiftool process. +If there is no running exiftool process, a new one will be +created. ARGS are arguments of the command to be run, as provided +to the exiftool command line application." (string-trim (let ((suffix "{ready}\n")) (string-remove-suffix @@ -49,8 +50,7 @@ command line application." suffix)))))) (defun el-exiftool-read (file &rest tags) - "Read TAGs from FILE, and return an alist mapping tag names to -corresponding values. + "Read TAGs from FILE, and return an alist mapping tag names to corresponding values. \(fn FILE TAG...)" (mapcar |