[elpa] externals/scanner 1495d30 04/17: add time stamps when logging and log program arguments

[Stefan Monnier]

branch: externals/scanner
commit 1495d30e3ba77025204aefd5144794cf4e65cc15
Author: Raffael Stocker <r.stocker@mnet-mail.de>
Commit: Raffael Stocker <r.stocker@mnet-mail.de>

    add time stamps when logging and log program arguments
    
    * scanner.el (scanner--log): add time stamp
                         (scanner-scan-document): log program arguments
                         (scanner-scan-image): log program arguments
---
 scanner.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/scanner.el b/scanner.el
index 27568eb..9cd54c8 100644
--- a/scanner.el
+++ b/scanner.el
@@ -372,7 +372,8 @@ available options."
 MSG is a format string, with ARGS passed to ‘format’."
   (with-current-buffer (scanner--log-buffer)
     (goto-char (point-max))
-    (insert (apply #'format msg args) "\n")))
+    (insert (apply #'format (concat "[" (current-time-string) "]: " msg) args)
+                       "\n")))
 
 ;; FIXME use special mode in the log buffer
 (defun scanner--log-buffer ()
@@ -472,6 +473,7 @@ available, ask for a selection interactively."
                                                                                
                                                 switches
                                                                                
                                                 fmt)))
                                   (push img-file file-list)
+                                  (scanner--log (format "scanimage arguments: 
%s" scanimage-args))
                                   (make-process :name "Scanner (scanimage)"
                                                                 :command 
`(,scanner-scanimage-program
                                                                                
        ,@scanimage-args)
@@ -503,7 +505,7 @@ available, ask for a selection interactively."
                                                                                
                                  "\n")))
                                 (let ((tesseract-args (scanner--tesseract-args 
fl-file
                                                                                
                                                doc-file)))
-                                  (scanner--log "")   ; make sure logs are 
properly sequenced
+                                  (scanner--log (format "tesseract arguments: 
%s" tesseract-args))
                                   (make-process :name "Scanner (tesseract)"
                                                                 :command 
`(,scanner-tesseract-program
                                                                                
        ,@tesseract-args)
@@ -589,6 +591,8 @@ available, ask for a selection interactively."
                                                                                
                   img-file))))
                                           nil
                                         (scanner--log "Scanning image to file 
\"%s\"" img-file)
+                                        (scanner--log (format "scanimage 
arguments: %s"
+                                                                               
   scanimage-args))
                                         (make-process :name "Scanner 
(scanimage)"
                                                                   :command 
`(,scanner-scanimage-program
                                                                                
          ,@scanimage-args)