summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Makefile.scm29
-rw-r--r--utils/cover/cover.scm28
2 files changed, 50 insertions, 7 deletions
diff --git a/Makefile.scm b/Makefile.scm
index 6a40e43..72565b4 100644
--- a/Makefile.scm
+++ b/Makefile.scm
@@ -4,6 +4,7 @@ exec chibi-scheme -A utils/ $0 $@
|#
(import (chibi)
(chibi json)
+ (chibi string)
(only (chibi filesystem)
directory-files
create-directory*
@@ -11,7 +12,6 @@ exec chibi-scheme -A utils/ $0 $@
(chibi process)
(only (chibi pathname) path-strip-directory path-extension make-path)
;(chibi app)
- (only (chibi string) string-prefix? string-trim-right string-join)
(prefix (chibi io) io:)
(utils cover cover)
(srfi 1)
@@ -180,6 +180,20 @@ exec chibi-scheme -A utils/ $0 $@
files)
"Error in ebook creation")))
+(define (get-print-box svg-file)
+ "SVG covers have a rectangle `meta-content-box` prepared to serve as the
+ printing bounding box. Its position is the (x0,y0) and (width,height) is
+ (x1,y1). This function extracts that information."
+ (string-join
+ (string-split
+ (process->string-or-fail
+ `("inkscape"
+ ,svg-file
+ "-I" "meta-content-box"
+ "-XYWH")
+ "Error: impossible to extract cover printing bounding box")
+ #\newline)
+ ":"))
(define (make-cover lang output input)
(let* ((outpath (make-path output lang))
(files (directory-sources lang input))
@@ -197,7 +211,18 @@ exec chibi-scheme -A utils/ $0 $@
"--export-filename" ,(make-path outpath "cover.pdf")
"--export-type=pdf"
,svg-file))
- "Error in cover creation")))
+ "Error in PDF cover creation")
+
+ (process->string-or-fail
+ (append
+ `("inkscape"
+ ,svg-file
+ "--export-filename" ,(make-path outpath "cover.png")
+ "--export-type=png"
+ "--export-background=white"
+ "--export-background-opacity=1.0"
+ "--export-area" ,(get-print-box svg-file)))
+ "Error in PNG cover creation")))
(define (build-lang lang output input)
(pandoc-web lang output input)
diff --git a/utils/cover/cover.scm b/utils/cover/cover.scm
index 915f42a..65769a5 100644
--- a/utils/cover/cover.scm
+++ b/utils/cover/cover.scm
@@ -140,8 +140,12 @@
(style
(string-append
"
+ #meta-content-box{
+ stroke: none;
+ fill: none;
+ }
.margin-mark {
- stroke-width: 0.1;
+ stroke-width: 0.1mm;
stroke-linecap: butt;
stroke: red;
}
@@ -245,6 +249,8 @@
;; CUTTING MARKS
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
,(map (lambda (posx posy rot)
+ (let* ((margin (- margin 0.1))
+ (len (* 0.6 margin)))
`(g (@ (id ,(string-append "marks-"
(num posx)
"-"
@@ -253,15 +259,15 @@
(line (@
(x1 ,(+ posx))
(y1 ,(+ posy margin))
- (x2 ,(+ posx (* 0.6 margin)))
+ (x2 ,(+ posx len))
(y2 ,(+ posy margin))
(class "margin-mark")))
(line (@
(x1 ,(+ posx margin))
(y1 ,(+ posy))
(x2 ,(+ posx margin))
- (y2 ,(+ posy (* 0.6 margin)))
- (class "margin-mark")))))
+ (y2 ,(+ posy len))
+ (class "margin-mark"))))))
(list 0 0 width width)
(list 0 height 0 height)
@@ -272,7 +278,19 @@
(num height) ")")))
- ;; BACK SIDE
+ ; NOTE:
+ ; This element simulates the offset and size of the full page inside
+ ; the svg file.
+ ; inkscape cover.svg -I meta-content-box -XYWH
+ ; will return the bounding box of the printable part of the file in
+ ; X0\nY0\nX1\nY1 format
+ (rect (@ (id "meta-content-box")
+ (x ,margin)
+ (y ,margin)
+ (width ,(- width margin))
+ (height ,(- height margin))))
+
+ ;; BACK SIDE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; TITLE + BOOK SUMMARY