[elpa] externals/scanner ff513b0 10/17: add image size selection function and order menu more logically

[Stefan Monnier]

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

    add image size selection function and order menu more logically
    
    * scanner.el (scanner-select-image-size): new function
             (scanner-menu): add image size item
---
 scanner.el | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/scanner.el b/scanner.el
index 51b6c07..a36f320 100644
--- a/scanner.el
+++ b/scanner.el
@@ -223,8 +223,16 @@ plugged in.  For these, auto-detection will always be 
done."
 ;;;###autoload
 (defvar scanner-menu
   (let ((map (make-sparse-keymap)))
+    (define-key map [image-size]
+      '(menu-item "Select image size" scanner-select-image-size
+                                 :key-sequence nil
+                                 :help "Select a size for image scanning."))
+    (define-key map [img-res]
+      '(menu-item "Set image resolution" scanner-set-image-resolution
+                                 :key-sequence nil
+                                 :help "Set the resolution for image 
scanning."))
     (define-key map [languages]
-      '(menu-item "Select languages" scanner-select-languages
+      '(menu-item "Select OCR languages" scanner-select-languages
                                  :key-sequence nil
                                  :help "Select languages for OCR."))
     (define-key map [outputs]
@@ -235,10 +243,6 @@ plugged in.  For these, auto-detection will always be 
done."
       '(menu-item "Select paper size" scanner-select-papersize
                                  :key-sequence nil
                                  :help "Select a paper size for document 
scanning."))
-    (define-key map [img-res]
-      '(menu-item "Set image resolution" scanner-set-image-resolution
-                                 :key-sequence nil
-                                 :help "Set the resolution for image 
scanning."))
     (define-key map [doc-res]
       '(menu-item "Set document resolution" scanner-set-document-resolution
                                  :key-sequence nil
@@ -428,6 +432,12 @@ them.  Otherwise, return nil."
   (setq scanner-doc-papersize size))
 
 ;;;###autoload
+(defun scanner-select-image-size (x y)
+  "Select the size for image scanning as X and Y dimensions."
+  (interactive "nImage size in x-dimension: \nnImage size in y-dimension: ")
+  (setq scanner-image-size (list x y)))
+
+;;;###autoload
 (defun scanner-select-languages (languages)
   "Select LANGUAGES for optical character recognition."
   (interactive