[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/scanner d5be7b8 12/56: clean up resolution setters
From: |
Stefan Monnier |
Subject: |
[elpa] externals/scanner d5be7b8 12/56: clean up resolution setters |
Date: |
Fri, 10 Apr 2020 13:56:00 -0400 (EDT) |
branch: externals/scanner
commit d5be7b82374e3e6d36e30b1c55c7365b64405bba
Author: Raffael Stocker <address@hidden>
Commit: Raffael Stocker <address@hidden>
clean up resolution setters
---
scanner.el | 22 +++++++++-------------
1 file changed, 9 insertions(+), 13 deletions(-)
diff --git a/scanner.el b/scanner.el
index c6a484a..5ab03bb 100644
--- a/scanner.el
+++ b/scanner.el
@@ -254,19 +254,15 @@ name, the device type, and the vendor and model names."
(setq scanner-tesseract-languages
(completing-read-multiple "Languages: " langs nil t))))
-(defun scanner--set-resolution (type res)
- "Set the resolution for scanning TYPE :image or :doc to RES."
- (plist-put scanner-resolution type res))
-
-(defun scanner-set-image-resolution ()
- "Set the resolution for scanning images."
- (interactive)
- (scanner--set-resolution :image (read-number "Image scan resolution: " 600)))
-
-(defun scanner-set-document-resolution ()
- "Set the resolution for scanning documents."
- (interactive)
- (scanner--set-resolution :doc (read-number "Document scan resolution: "
300)))
+(defun scanner-set-image-resolution (resolution)
+ "Set the RESOLUTION for scanning images."
+ (interactive "NImage scan resolution: ")
+ (plist-put scanner-resolution :image resolution))
+
+(defun scanner-set-document-resolution (resolution)
+ "Set the RESOLUTION for scanning documents."
+ (interactive "NDocument scan resolution: ")
+ (plist-put scanner-resolution :doc resolution))
(defun scanner-select-device (&optional detect)
"Select a scanning device, maybe running auto-detection.
- [elpa] branch externals/scanner created (now 72ecf43), Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 704f055 04/56: add compile dependencies to check target, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 027658b 06/56: ignore image files, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 4596ed9 09/56: add autoloads, minor refactoring, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 30b97d3 05/56: add implementation of image scanning and first test case, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 9665335 10/56: add a menu and configuration functions, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner d5be7b8 12/56: clean up resolution setters,
Stefan Monnier <=
- [elpa] externals/scanner 1e60cd2 03/56: add test and check targets to Makefile, gitignore dep, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 5bc37ff 02/56: add more customizations and validations, arglist functions, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner c952d0d 15/56: rename -options to -switches, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner e5c74e6 11/56: implement multi-page scan modes, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner dbb0ee4 14/56: add commentary, correct docstrings, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 3e0398c 22/56: correct to eval-and-compile (scanner--device-specific-switches), Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 5f06a4a 21/56: implement correct cleanup and error handling (scanner-scan-document), Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 536e998 16/56: move commands were they belong, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 31c8a49 08/56: add document scanning command and test cases, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 2147abd 30/56: add tests for the configuration commands, Stefan Monnier, 2020/04/10