branch: externals/scanner commit 37941bf3d8764233c6e86e6d910c77579b44a105 Author: Raffael Stocker <r.stoc...@mnet-mail.de> Commit: Raffael Stocker <r.stoc...@mnet-mail.de>
add unpaper stub to the scan fsm
* scanner.el (scanner-scan-document): add local function ‘unpaper’
---
scanner.el | 17 ++++++++++++++---
1 file changed, 14 insertions(+), 3 deletions(-)
diff --git a/scanner.el b/scanner.el
index 89729dc65b..f4c7eb4b30 100644
--- a/scanner.el
+++ b/scanner.el
@@ -697,9 +697,12 @@ performing OCR."
(let ((ev (string-trim event)))
(unless (string= "finished" ev)
(error "%s: %s" process ev))
- (cond ((consp npages) (if (y-or-n-p
"Scan another page? ")
-
(scanimage)
-
(tesseract)))
+ (cond ((consp npages)
+ (if (y-or-n-p "Scan
another page? ")
+ (scanimage)
+ (if
scanner-use-unpaper
+
(unpaper)
+ (tesseract))))
((> num-pages 1)
(cl-decf num-pages)
(run-at-time
scanner-scan-delay nil #'scanimage))
@@ -707,6 +710,14 @@ performing OCR."
(error
(cleanup)
(signal (car err) (cdr err)))))
+ (unpaper
+ ()
+ (cl-assert scanner-unpaper-program)
+ (condition-case err
+ ()
+ (error
+ (cleanup)
+ (signal (car err) (cdr err)))))
(tesseract
()
(unless scanner-reverse-pages
