summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2023-02-08 07:52:23 +0100
committerVivien Kraus <vivien@planete-kraus.eu>2023-02-08 07:52:23 +0100
commit8d198e013ae036ac066a19dd57e0f01de3043356 (patch)
treeb0182973c6a0377c46e5f394bd0d2b4fd69c1f88
parent3c84bf0a4d44959c14e9288d0eda8ba6e30f81ff (diff)
Display up to 4 pages in the miniature
-rw-r--r--copirate/modules/copirate-site.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/copirate/modules/copirate-site.scm b/copirate/modules/copirate-site.scm
index 8c1d5d7..21b5cb5 100644
--- a/copirate/modules/copirate-site.scm
+++ b/copirate/modules/copirate-site.scm
@@ -36,8 +36,8 @@
(substring name 0 (- (string-length name) (string-length ".pdf")))
"-miniature.png")))
(invoke #$(file-append imagemagick "/bin/convert")
- "-resize" "210x297"
- (string-append name "[0]")
+ "-resize" "210x297" "+append"
+ (string-append name "[0-4]")
miniature-name)))))
(down (lambda (name stat result) #t))
(up (lambda (name stat result) #t))