[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/scanner adf5fd6 3/5: re-indent long or weird lines
From: |
Stefan Monnier |
Subject: |
[elpa] externals/scanner adf5fd6 3/5: re-indent long or weird lines |
Date: |
Mon, 15 Mar 2021 22:22:22 -0400 (EDT) |
branch: externals/scanner
commit adf5fd6f57ed9234984d038fac7d4b4d0ac0ac3c
Author: Raffael Stocker <r.stocker@mnet-mail.de>
Commit: Raffael Stocker <r.stocker@mnet-mail.de>
re-indent long or weird lines
---
scanner.el | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/scanner.el b/scanner.el
index 9f3df3c..32aa7c3 100644
--- a/scanner.el
+++ b/scanner.el
@@ -341,10 +341,10 @@ simply dropped."
("--mode" (concat
"--mode="
(plist-get scanner-scan-mode
scan-type)))
- ("--resolution"
(concat "--resolution="
-
(number-to-string
-
(plist-get scanner-resolution
-
scan-type))))
+ ("--resolution"
+ (concat
"--resolution="
+
(number-to-string
+
(plist-get scanner-resolution scan-type))))
((and "-x" (guard
size))
(list "-x"
(number-to-string (car size))))
((and "-y" (guard
size))
@@ -382,9 +382,7 @@ scanimage this will construct a shell command."
shell-command-switch
(concat scanner-scanimage-program
" "
- (mapconcat 'identity
- args
- " ")
+ (mapconcat 'identity args " ")
" > "
outfile))
`(,scanner-scanimage-program "-o" ,outfile ,@args)))
@@ -522,7 +520,8 @@ them. Otherwise, return nil."
(let ((configs (condition-case err
(directory-files
scanner-tesseract-configdir nil "[^.]")
(error
- (error "Could not find output
configurations %s" (cdr err))))))
+ (error "Could not find output
configurations %s"
+ (cdr err))))))
(list (completing-read-multiple "Outputs: " configs nil t))))
(setq scanner-tesseract-outputs outputs))