aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVasilij Schneidermann <mail@vasilij.de>2022-04-28 16:17:15 +0200
committerVasilij Schneidermann <mail@vasilij.de>2022-04-28 16:17:15 +0200
commitca66033b8e8a7b2adba83ecee256270ae257a4d8 (patch)
treecfbc49d9e4987d7e2363b86327680da5b5a7e315
parentfce7b0b0506231626887f131ca38e968e4c7f9e8 (diff)
Style improvements
-rw-r--r--nov.el9
1 files changed, 6 insertions, 3 deletions
diff --git a/nov.el b/nov.el
index d53e5d0..5076edc 100644
--- a/nov.el
+++ b/nov.el
@@ -195,9 +195,12 @@ Each element of the stack is a list (NODEINDEX BUFFERPOS).")
"Extract FILENAME into DIRECTORY.
Unnecessary nesting is removed with `nov-unnest-directory'."
(let* ((status (apply #'call-process nov-unzip-program nil "*nov unzip*" t
- (mapcar (lambda (e) (cond ((eq e 'directory) directory)
- ((eq e 'filename) filename)
- (t e))) nov-unzip-args)))
+ (mapcar (lambda (arg)
+ (cond
+ ((eq arg 'directory) directory)
+ ((eq arg 'filename) filename)
+ (t arg)))
+ nov-unzip-args)))
child)
(while (setq child (nov-contains-nested-directory-p directory))
(nov-unnest-directory directory child))