branch: externals/scanner
commit fff65739d2d84a60a900562a63446f49da42780e
Author: Raffael Stocker <[email protected]>
Commit: Raffael Stocker <[email protected]>
implement page-reversal customization for document mode
---
scanner.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/scanner.el b/scanner.el
index 6217ecf..01eadc3 100644
--- a/scanner.el
+++ b/scanner.el
@@ -105,6 +105,11 @@ The value must be one of the keys in the paper sizes list."
:type '(restricted-sexp :match-alternatives
((lambda (k) (plist-member scanner-paper-sizes k)))))
+(defcustom scanner-reverse-pages
+ nil
+ "If non-nil, reverse pages in document mode."
+ :type '(boolean))
+
(defcustom scanner-image-format
'(:image "jpeg" :doc "pnm")
"Image file formats for images and documents (intermediate representation)."
@@ -488,7 +493,8 @@ available, ask for a selection interactively."
(cleanup)))
(tesseract
()
- (setq file-list (nreverse file-list))
+ (unless scanner-reverse-pages
+ (setq file-list (nreverse file-list)))
(setq fl-file (make-temp-file "scanlist" nil ".txt"
(mapconcat #'identity
file-list
