From f3868f9d7be48f24a1505cd596f5b73ae733e916 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Tue, 16 Jul 2024 17:13:02 +0200
Subject: Add PDF cover creation system

---
 utils/cover/cover.scm | 28 +++++++++++++++++++++++-----
 1 file changed, 23 insertions(+), 5 deletions(-)

(limited to 'utils')

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
-- 
cgit v1.2.3