[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/scanner ff513b0 10/17: add image size selection functio
From: |
Stefan Monnier |
Subject: |
[elpa] externals/scanner ff513b0 10/17: add image size selection function and order menu more logically |
Date: |
Mon, 14 Dec 2020 18:34:43 -0500 (EST) |
branch: externals/scanner
commit ff513b0314eac9bf85ef354b147f034eb01d08f3
Author: Raffael Stocker <r.stocker@mnet-mail.de>
Commit: Raffael Stocker <r.stocker@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
- [elpa] externals/scanner f76603c 03/17: ask for confirmation before overwriting existing files, (continued)
- [elpa] externals/scanner f76603c 03/17: ask for confirmation before overwriting existing files, Stefan Monnier, 2020/12/14
- [elpa] externals/scanner b683e19 05/17: correct handling of existing files, Stefan Monnier, 2020/12/14
- [elpa] externals/scanner a43ce69 01/17: Update scanner.el, Stefan Monnier, 2020/12/14
- [elpa] externals/scanner 072222a 06/17: improve doc-string in scanner--confirm-filenames, Stefan Monnier, 2020/12/14
- [elpa] externals/scanner e199957 07/17: add file-local variables for tab configuration, Stefan Monnier, 2020/12/14
- [elpa] externals/scanner 7d5cd5c 02/17: correct Readme.org markup (=...= instead of ~...~), Stefan Monnier, 2020/12/14
- [elpa] externals/scanner 2101ca0 08/17: handle undefined options and tesseract config directory gracefully, Stefan Monnier, 2020/12/14
- [elpa] externals/scanner 22ead30 15/17: correct handling of empty TESSDATA_PREFIX env variable, Stefan Monnier, 2020/12/14
- [elpa] externals/scanner 5c8f04b 09/17: add --tessdata-dir option to scanner--tesseract-args, Stefan Monnier, 2020/12/14
- [elpa] externals/scanner 52bb719 14/17: fix handling of tessdata directory, Stefan Monnier, 2020/12/14
- [elpa] externals/scanner ff513b0 10/17: add image size selection function and order menu more logically,
Stefan Monnier <=
- [elpa] externals/scanner 1439335 16/17: update documentation, Stefan Monnier, 2020/12/14
- [elpa] externals/scanner f1a7256 12/17: make use of --tessdata-dir compatible with tesseract v4, Stefan Monnier, 2020/12/14
- [elpa] externals/scanner 440a324 13/17: Revert "make use of --tessdata-dir compatible with tesseract v4", Stefan Monnier, 2020/12/14
- [elpa] externals/scanner b96d3d1 17/17: bump version number, Stefan Monnier, 2020/12/14
- [elpa] externals/scanner a09407e 11/17: query tesseract version and use new switches conditionally, Stefan Monnier, 2020/12/14