branch: externals/scanner
commit d5be7b82374e3e6d36e30b1c55c7365b64405bba
Author: Raffael Stocker <[email protected]>
Commit: Raffael Stocker <[email protected]>
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.
