[elpa] externals/scanner f1a7256 12/17: make use of --tessdata-dir compatible with tesseract v4

[Stefan Monnier]

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

    make use of --tessdata-dir compatible with tesseract v4
---
 scanner-test.el |  9 +++++++--
 scanner.el      | 11 +++++------
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/scanner-test.el b/scanner-test.el
index a88d67c..7c8a7ac 100644
--- a/scanner-test.el
+++ b/scanner-test.el
@@ -141,6 +141,7 @@
        (scanner-tesseract-languages '("eng" "deu"))
        (scanner-tesseract-switches '("--opt1" "--opt2"))
        (scanner-tesseract-outputs '("out1" "out2"))
+       (scanner-tessdata-dir "/usr/share")
        (-compare-fn #'string=))
     (should (-is-infix-p '("-l" "eng+deu") (scanner--tesseract-args "infile"
                                                                    "outfile")))
@@ -149,13 +150,17 @@
                                                                     
"outfile"))))
     (let ((scanner--tesseract-v4 "1000"))
       (should-not (-is-infix-p '("--dpi" "300") (scanner--tesseract-args 
"infile"
-                                                                    
"outfile"))))
+                                                                        
"outfile"))))
     (should (-contains-p (scanner--tesseract-args "infile" "outfile") 
"--opt1"))
     (should (-contains-p (scanner--tesseract-args "infile" "outfile") 
"--opt2"))
     (should (-contains-p (scanner--tesseract-args "infile" "outfile") 
"infile"))
     (should (-contains-p (scanner--tesseract-args "infile" "outfile") 
"outfile"))
     (should (-contains-p (scanner--tesseract-args "infile" "outfile") "out1"))
-    (should (-contains-p (scanner--tesseract-args "infile" "outfile") 
"out2"))))
+    (should (-contains-p (scanner--tesseract-args "infile" "outfile") "out2"))
+    (should (-contains-p (scanner--tesseract-args "infile" "outfile")
+                        "--tessdata-dir=/usr/share"))
+    (should-not (-is-infix-p '("--tessdata-dir" "/usr/share")
+                            (scanner--tesseract-args "infile" "outfile")))))
 
 ;; Note: interactive commands are only tested for their non-interactive
 ;; behavior
diff --git a/scanner.el b/scanner.el
index b4cad60..752bd49 100644
--- a/scanner.el
+++ b/scanner.el
@@ -164,8 +164,8 @@ widget's values and the elements of SET."
    (condition-case err
           (cdr (process-lines scanner-tesseract-program
                                                   "--list-langs"
-                                                  "--tessdata-dir"
-                                                  scanner-tessdata-dir))
+                                                  (concat "--tessdata-dir="
+                                                                  
scanner-tessdata-dir)))
         (error (error "No language definitions found %s" (cdr err))))))
 
 (defcustom scanner-tesseract-languages
@@ -357,8 +357,7 @@ extensions depending on the selected output options, see
                                        (list "--dpi" (number-to-string
                                                                   (plist-get 
scanner-resolution :doc))))
                                  scanner-tesseract-switches
-                                 "--tessdata-dir"
-                                 scanner-tessdata-dir
+                                 (concat "--tessdata-dir=" 
scanner-tessdata-dir)
                                  scanner-tesseract-outputs)))
 
 (defun scanner--ensure-init ()
@@ -455,8 +454,8 @@ them.  Otherwise, return nil."
                                          (cl-assert scanner-tesseract-program)
                                          (cdr (process-lines 
scanner-tesseract-program
                                                                                
  "--list-langs"
-                                                                               
  "--tessdata-dir"
-                                                                               
  scanner-tessdata-dir)))
+                                                                               
  (concat "--tessdata-dir="
+                                                                               
                  scanner-tessdata-dir))))
                                  (error
                                   (error "Could not query language list %s" 
(cdr err))))))
      (list (completing-read-multiple "Languages: " langs nil t))))