From 18898e2d2616eac3f95b34f73db0a7ae74db5f33 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Sun, 26 Jul 2020 17:04:13 +0200
Subject: Correct ISBN insertion in cover
---
utils/cover/cover.scm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
(limited to 'utils')
diff --git a/utils/cover/cover.scm b/utils/cover/cover.scm
index 0cc573e..0ea1884 100644
--- a/utils/cover/cover.scm
+++ b/utils/cover/cover.scm
@@ -87,8 +87,10 @@
(page-width 176) ;mm
(margin 3) ;mm
- (isbn (if (equal? "" (get-string 'isbn metadata))
- "0000000000000"))
+ (isbn (let ((isbnstr (get-string 'isbn metadata)))
+ (if (equal? "" isbnstr)
+ "0000000000000"
+ (get-string 'isbn metadata))))
(book-title (get-string 'title metadata))
(book-subtitle (get-string 'subtitle metadata))
(book-title-before "") ; TODO: Thinking about removing this
--
cgit v1.2.3