branch: externals/scanner
commit f1a7256a56090a58b7f7a6d17d24994a132fe705
Author: Raffael Stocker <r.stoc...@mnet-mail.de>
Commit: Raffael Stocker <r.stoc...@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))))
