Massive rework on makefiles and cover generator:

    - New style in cover
    - Support for call from main Makefile
    - Reorder directory structure

6 files changed, 443 insertions, 408 deletions

diff --git a/Makefile.scm b/Makefile.scm
index cc36c8b..628b6a9 100644
--- a/Makefile.scm
+++ b/Makefile.scm
@@ -1,11 +1,16 @@
+#|
+#!/usr/bin/env sh
+exec chibi-scheme -A utils/ $0 $@
+|#
 (import (chibi)
         (chibi json)
-        (chibi filesystem)
+        (only (chibi filesystem) directory-files create-directory*)
         (chibi process)
-        (chibi pathname)
-        (chibi app)
-        (chibi string)
-        (chibi io)
+        (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)
         (srfi 16)
         (srfi 95))
@@ -35,7 +40,7 @@
         (begin
           (if debug
             (display
-              (string-append "\nDEBUG: In call: " strcall "\n" err)
+              (string-append "\nDEBUG: Called: " strcall "\n" err)
               (current-error-port)))
           out)
         (error (string-append
@@ -45,13 +50,13 @@
                  "\n" err)))))
 
 (define (read-meta file)
-  (parse-json
+  (string->json
     (process->string-or-fail
       `("./utils/yaml2json.py" ,file)
       "Error parsing Metadata file")))
 
 (define (pandoc-web-simple lang output input)
-  (let ((outpath  (make-path output "WebSimple"))
+  (let ((outpath  (make-path output lang))
         (files    (directory-sources lang input))
         (metafile (directory-meta lang input)))
     (create-directory* outpath)
@@ -59,7 +64,7 @@
       (append
         `("pandoc"
           "--to=html"
-          "-o" ,(make-path outpath (string-append lang ".html"))
+          "-o" ,(make-path outpath "web-simple.html")
           "--standalone"
           "--no-highlight"
           "--data-dir=."
@@ -75,7 +80,7 @@
 
 
 (define (pandoc-web lang output input)
-  (let ((outpath  (make-path output "Web"))
+  (let ((outpath  (make-path output lang))
         (files    (directory-sources lang input))
         (metafile (directory-meta lang input)))
     (create-directory* outpath)
@@ -83,7 +88,7 @@
       (append
         `("pandoc"
           "--to=html"
-          "-o" ,(make-path outpath (string-append lang ".html"))
+          "-o" ,(make-path outpath "web.html")
           "--standalone"
           "--self-contained"
           "--base-header-level=2" ;"--shift-heading-level-by=-1" is the new way
@@ -97,17 +102,17 @@
           "--lua-filter=appendixes.lua")
         files
         `("--metadata-file" ,metafile))
-      "Error in web-page creation")))
+      "Error in simple web-page creation")))
 
 (define (pandoc-book lang output input)
-  (let ((outpath  (make-path output "Book"))
+  (let ((outpath  (make-path output lang))
         (files    (directory-sources lang input))
         (metafile (directory-meta lang input)))
     (create-directory* outpath)
     (process->string-or-fail
       (append
         `("pandoc"
-          "-o" ,(make-path outpath (string-append lang ".pdf"))
+          "-o" ,(make-path outpath "book.pdf")
           "--standalone"
           "--pdf-engine=xelatex"
           "--data-dir=."
@@ -118,15 +123,34 @@
         `("--metadata-file" ,metafile))
       "Error in book creation")))
 
+(define (pandoc-book-simple lang output input)
+  (let ((outpath  (make-path output lang))
+        (files    (directory-sources lang input))
+        (metafile (directory-meta lang input)))
+    (create-directory* outpath)
+    (process->string-or-fail
+      (append
+        `("pandoc"
+          "-o" ,(make-path outpath "book-simple.pdf")
+          "--standalone"
+          "--pdf-engine=xelatex"
+          "--data-dir=."
+          ,(string-append "--resource-path=" input)
+          "--template=book-simple.latex"
+          "--lua-filter=appendixes.lua")
+        files
+        `("--metadata-file" ,metafile))
+      "Error in simple book creation")))
+
 (define (pandoc-epub lang output input)
-  (let ((outpath  (make-path output "Epub"))
+  (let ((outpath  (make-path output lang))
         (files    (directory-sources lang input))
         (metafile (directory-meta lang input)))
     (create-directory* outpath)
     (process->string-or-fail
       (append
         `("pandoc"
-          "-o" ,(make-path outpath (string-append lang ".epub"))
+          "-o" ,(make-path outpath "book.epub")
           "--standalone"
           "--data-dir=."
           ,(string-append "--resource-path=" input)
@@ -135,7 +159,27 @@
           "--lua-filter=appendixes.lua")
         files
         `("--metadata-file" ,metafile))
-      "Error in book creation")))
+      "Error in ebook creation")))
+
+(define (make-cover lang out input)
+  (let* ((outpath  (make-path output lang))
+         (files    (directory-sources lang input))
+         (metafile (directory-meta lang input))
+         (metadata (read-meta metafile))
+         (svg-file (make-path outpath "cover.svg")))
+    (create-directory* outpath)
+    (call-with-output-file
+      svg-file
+      (lambda (out)
+        (metadata->svg metadata out)))
+    (process->string-or-fail
+      (append
+        `("inkscape"
+          "--export-filename" ,(make-path outpath "cover.pdf")
+          "--export-type=pdf"
+          ,svg-file))
+      "Error in cover creation")))
+
 ;; RUN THIS LIKE:
 ;; chibi-scheme Makefile.scm src/BOOK_FOLDER
 ;;
@@ -150,7 +194,8 @@
 (pandoc-web "es" output input)
 (pandoc-web-simple "es" output input)
 (pandoc-book "es" output input)
+(pandoc-book-simple "es" output input)
 (pandoc-epub "es" output input)
+(make-cover "es" output input)
 
-;(display (process->string-or-fail '("./utils/yaml2json.py"  "src/Programming_in_Python/es/Metadata.yaml")  ""))
 ;(display (cdr (assoc 'title (read-meta "src/Programming_in_Python/es/Metadata.yaml"))))
diff --git a/utils/cover/Makefile b/utils/cover/Makefile
deleted file mode 100644
index 2fddab0..0000000
--- a/utils/cover/Makefile
+++ /dev/null
@@ -1,14 +0,0 @@
-TARGET_PDF  = cover.pdf
-
-.PHONY: pdf
-pdf: $(TARGET_PDF)
-
-$(TARGET_PDF): cover.svg
-	inkscape $^ --export-pdf=$@
-
-cover.svg: cover.scm # Cover data too
-	chibi-scheme cover.scm > cover.svg
-
-.PHONY: clean
-clean:
-	rm $(TARGET_PDF) cover.svg
diff --git a/utils/cover/barcode.scm b/utils/cover/barcode.scm
index 85f28c2..b016e27 100644
--- a/utils/cover/barcode.scm
+++ b/utils/cover/barcode.scm
@@ -86,7 +86,8 @@
                                  (number->string height)))
          (encoded (barcode code)))
     `(g
-       (@ (transform ,(string-append "translate(" (number->string x) "," (number->string y) ")"
+       (@ (transform ,(string-append "translate(" (number->string x) ","
+                                     (number->string y) ")"
                                      "scale(" (number->string scale) ")")))
 
        ,(map
@@ -105,14 +106,17 @@
 
        ,(map
           (lambda (char pos)
-            `(text (@ (style ,(string-append "font-size: " (number->string text-size) ";"
-                                             "text-anchor: middle"))
-                      (x ,(cond ((= 0 pos)    (* 3.5 colwidth))
-                                ((<= 1 pos 6) (+ border (* (+ 3 (* (- pos 0.5) 7)) colwidth)))
-                                ((< 6 pos)    (+ border (* (+ 3 5 (* (- pos 0.5) 7)) colwidth)))))
-                      (y  ,height))
-                   ,(list->string (list char))))
+            `(text
+               (@ (style ,(string-append "font-size: "
+                                         (number->string text-size) ";"
+                                         "text-anchor: middle"))
+                  (x ,(cond
+                        ((= 0 pos)    (* 3.5 colwidth))
+                        ((<= 1 pos 6) (+ border (* (+ 3 (* (- pos 0.5) 7))
+                                                   colwidth)))
+                        ((< 6 pos)    (+ border (* (+ 3 5 (* (- pos 0.5) 7))
+                                                   colwidth)))))
+                  (y  ,height))
+               ,(list->string (list char))))
           (string->list code)
           (iota (string-length code))))))
-
-#;(display (barcode-svg "9780201379624"))
diff --git a/utils/cover/barcode.sld b/utils/cover/barcode.sld
new file mode 100644
index 0000000..05fabc3
--- /dev/null
+++ b/utils/cover/barcode.sld
@@ -0,0 +1,7 @@
+(define-library
+  (utils cover barcode)
+  (import (chibi)
+          (chibi sxml)
+          (srfi 1))
+  (export barcode-sxml)
+  (include "barcode.scm"))
diff --git a/utils/cover/cover.scm b/utils/cover/cover.scm
index aa2035c..cde9c10 100644
--- a/utils/cover/cover.scm
+++ b/utils/cover/cover.scm
@@ -1,53 +1,3 @@
-(import (scheme base)
-        (scheme char)
-        (chibi)
-        (chibi string)
-        (chibi sxml)
-        (srfi 1))
-
-(include "barcode.scm")
-; GUILE
-#;(use-modules (sxml simple)
-             (srfi srfi-1))
-
-;; CONTENTS
-(define isbn "9780201379624")
-(define book-title "Programación en Python")
-(define book-subtitle "Introducción a la programación y al lenguaje")
-(define book-title-before "") ; TODO: Thinking about removing this
-(define book-title-word  book-title)
-(define book-title-after book-subtitle)
-(define book-category "Básico")
-(define book-authors '("Giacomo Tesio" "Ekaitz Zarraga"))
-(define book-summary "
-Lorem ipsum dolor sit amet, consectetur adipiscing elit. Vivamus vitae rhoncus
-augue. Donec blandit ligula dui, vitae commodo sem sodales ac. Donec varius sed
-ipsum vitae gravida. Morbi nec ipsum quis sapien commodo lacinia. Sed at risus
-at nisl mollis consectetur ac non mauris. Pellentesque ipsum leo, accumsan
-scelerisque convallis ut, condimentum nec libero. Class aptent taciti sociosqu
-ad litora torquent per conubia nostra, per inceptos himenaeos. Cras pharetra
-rhoncus eros, eu auctor nibh sollicitudin quis. Praesent sodales ultricies ex.
-Aliquam erat volutpat.
-
-Donec aliquam faucibus enim sit amet facilisis. Pellentesque at pretium risus.
-Nullam ac vehicula purus, sed pharetra magna. Morbi mollis luctus nisi vel
-porta. Duis tempus erat eu ante congue consequat. In ac leo sem. Quisque
-bibendum bibendum rutrum. Fusce interdum in metus sed congue. Sed nunc mauris,
-mattis vitae fermentum eu, dignissim vitae nulla. Donec blandit at mi eu
-luctus. Fusce pharetra ipsum fringilla quam faucibus, ut lobortis risus varius.
-Ut nec sem lectus. Integer porta justo a augue sodales, nec malesuada libero
-varius. Sed convallis cursus efficitur. Cras maximus, ligula et dapibus
-ultrices, sapien lectus pellentesque purus, nec dignissim augue dolor eu
-ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
-  ")
-(define company-info "Lorem ipsum dolor sit amet, consectetur adipiscing elit,
-  sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad
-  minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea
-  commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit
-  esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat
-  cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est
-  laborum.")
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; UTILS                                                                      ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -60,45 +10,12 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 ; SIZE
-; Take spine from the outside because it's related to the amount of pages
-(define spine-width  5) ;mm
-(define spine-title-margin-min (* 0.1 spine-width))
-(define spine-title-max-size   10)
-(define spine-title-size
-  (let ((size (- spine-width (* 2 spine-title-margin-min))))
-    (if (> size spine-title-max-size)
-        spine-title-max-size
-        size)))
-
-;B5 Paper size
-(define page-height 250) ;mm
-(define page-width  176) ;mm
-(define margin        3) ;mm
-
-(define text-size   (exact->inexact (/ page-height 70))); mm
-(define category-size   (* 1.5 text-size)); mm
-(define authors-size (* 1.8 text-size))
-(define title-size   (* 2.5 text-size)); mm
-(define main-title-size ; mm
-  (let ((size (exact->inexact
-               (* 3
-                  (/ page-width
-                     (length (string->list book-title-word)))))))
-    (if (< (/ page-height 4) size)
-        (exact->inexact (/ page-height 4))
-        size)))
-(define main-subtitle-size (* 2 text-size))
-
-(define width  (+ (* 2 margin) (* 2 page-width) spine-width)) ;mm
-(define height (+ (* 2 margin) page-height)) ;mm
-(define viewBox (string-append "0 0 "
-                               (num width)
-                               " "
-                               (num height)))
 ; INFO: Setting viewbox and size to the same it makes the measurements real
 ; world ones, in this case millimeters
 ; Read more: https://mpetroff.net/2013/08/analysis-of-svg-units/
 
+
+
 (define (elenq-logo sub size x y . extra) ; 10 x 4mm
   `(g (@ (id "elenq-logo")
         (transform
@@ -121,85 +38,7 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
 ;(define elenq-technology (elenq-logo "TECHNOLOGY" 1 0 0))
 ;(define elenq-publishing (elenq-logo "PUBLISHING" 1 0 0))
 
-(define style
-  (string-append "
-  .margin-mark {
-    stroke-width: 0.1;
-    stroke-linecap: butt;
-    stroke: red;
-  }
-  .title-back {
-    font-family: 'Pathway Gothic One';
-    font-size: "(num title-size)";
-    fill: white;
-  }
-  .title-spine {
-    font-family: 'Pathway Gothic One';
-    font-size: "(num spine-title-size)";
-    dominant-baseline: mathematical;
-    fill: black;
-  }
-  .authors-spine {
-    font-family: 'Lato';
-    font-size: "(num text-size)";
-    dominant-baseline: mathematical;
-    text-anchor: end;
-  }
-  #black-part {
-    fill: black;
-  }
-  .text-elenq{
-    font-family:Lato;
-    -inkscape-font-specification:'Lato Light Italic';
-    font-style: italic;
-    font-weight: 300;
-    fill: black;
-    font-size: "(num text-size)";
-    text-align: justify;
-  }
-  .text-summary {
-    font-family:Lato;
-    font-size: "(num text-size)";
-    fill: white;
-    text-align: justify;
-  }
-  rect.category{
-    fill: black;
-  }
-  text.category{
-    fill: white;
-    font-size: "(num category-size)";
-    -inkscape-font-specification:'Lato Light';
-    font-family:Lato;
-    font-weight: 300;
-  }
-  .main-title {
-    font-size: "(num main-title-size)";
-    font-family: 'Pathway Gothic One';
-  }
-  .main-title-before {
-    font-size: "(num (* 1 title-size))";
-    font-family: 'Pathway Gothic One';
-    font-weight:300;
-  }
-  .main-title-after {
-    font-size: "(num main-subtitle-size)";
-    -inkscape-font-specification:'Lato Light Italic';
-    line-height: 0.9;
-    font-style: italic;
-    font-family:Lato;
-    font-weight: 300;
-    text-anchor: end;
-  }
-  .author {
-    font-size: "(num authors-size)";
-    font-family:Lato;
-    font-style:normal;
-    font-stretch:normal;
-    font-variant:normal;
-    text-anchor: end;
-  }
-  "))
+
 
 ; Text area, Inkscape-only svg parameter
 (define (textArea text class x y w h)
@@ -229,205 +68,350 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
                  text
                  #\newline))))))
 
-(display "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>")
-(display (sxml->xml
-  `(svg
-     (@ (width ,(mm width))
-        (height ,(mm height))
-        (viewBox ,viewBox))
-     (defs
-       (style ,style))
-
-
-     ; BLACK BACKGROUND FOR SUMMARY
-     (g (@ (transform
-             ,(string-append
-                ; TODO extender lo negro en el margen
-                "translate( 0," (num (+ margin (* 0.05 page-height))) ")
-                scale(" (num (+ margin (* 0.95 page-width))) ")")))
-        (path (@ (id "black-part")
-                 (d "M 1.00, 0.10 L 0.30, 0.00 L 0.00, 0.16 L 0.00, 0.67 L 0.45, 0.76 L 0.97, 0.67 Z"))))
-     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-     ;; CUTTING MARKS                                                         ;;
-     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-     ,(map (lambda (posx posy rot)
-             `(g (@ (id ,(string-append "marks-"
-                                        (num posx)
-                                        "-"
-                                        (num posy)))
-                    (transform ,rot))
-                 (line (@
-                         (x1 ,(+ posx))
-                         (y1 ,(+ posy margin))
-                         (x2 ,(+ posx (* 0.6 margin)))
-                         (y2 ,(+ posy margin))
-                         (class "margin-mark")))
-                 (line (@
-                         (x1 ,(+ posx margin))
-                         (y1 ,(+ posy))
-                         (x2 ,(+ posx margin))
-                         (y2 ,(+ posy (* 0.6 margin)))
-                         (class "margin-mark")))))
-
-           (list 0 0      width width)
-           (list 0 height 0     height)
-           (list "rotate(0,0,0)"
-                 (string-append "rotate(-90,   0," (num height) ")")
-                 (string-append "rotate(-270," (num width) ", 0)")
-                 (string-append "rotate(-180," (num width) "," (num height) ")")))
-     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-     ;; BACK SIDE                                                             ;;
-     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-     ; TITLE + BOOK SUMMARY
-     (text (@ (class "title-back")
-              (x ,(+ margin (* 0.15 page-width)))
-              (y ,(+ margin (* page-height 0.20))))
-           ,(string-upcase book-title))
-
-
-     ,(textArea book-summary
-                "text-summary"
-                (+ margin (* 0.15 page-width))
-                (+ margin (* page-height 0.20))
-                (* 0.7 page-width)
-                (* 0.25 page-height))
-
-
-     ; LOGO + ELENQ SUMMARY
-     ,(elenq-logo "TECHNOLOGY"
-                  3
-                  (* (+ (+ margin (* 0.5 page-width))
-                        (+ margin (* 0.5 page-width)
-                           (- (* 0.5 page-width) (* 0.1 page-width)))) 0.5)
-                  (+ margin (* 0.70 page-height) -10))
-     ,(textArea company-info
-                "text-elenq"
-                (+ margin (* 0.5 page-width))
-                (+ margin (* 0.70 page-height))
-                (- (* 0.5 page-width) (* 0.1 page-width))
-                (- (* 0.25 page-height) (* 0.1 page-height)))
-
-
-     ; BARCODE
-     ,(barcode-sxml isbn
-                    (+ margin (* 0.1 page-width))
-                    (+ margin (* 0.75 page-height))
-                    (* 0.25 page-width))
-
-
-     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-     ;; SPINE                                                                 ;;
-     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-     ,(let ((x (+ margin page-width))
-            (y height)
-            (width (+ margin margin page-height))
-            (height spine-width))
-        `(g (@ (transform
-                 ,(string-append "translate(" (num x) "," (num y) ") rotate (-90)")))
-            (rect (@ (height ,height)
-                     (width ,width)
-                     (style "fill: white;")))
-
-            (text (@ (class "title-spine")
-                     (x      ,(* 0.2 width))
-                     (y      ,(* 0.5 spine-width))
-                     (width  ,(* 0.3 width))
-                     (height ,spine-title-size))
-                  ,book-title)
-            (text (@ (class "authors-spine")
-                     (x      ,(* 0.9 width))
-                     (y      ,(* 0.5 spine-width))
-                     (width  ,(* 0.3 width))
-                     (height ,spine-title-size))
-                  ,(string-join book-authors ", "))))
-
-
-     ,(if (< spine-width 10)
-          ; Smaller than 10mm -> Renders just a Q
-          `(text (@ (style ,(string-append "font-family: armata;
-                                           text-anchor: middle;
-                                           font-size: " (num spine-width)))
-                   (x ,(+ margin page-width (* 0.5 spine-width)))
-                   (y ,(+ margin (* 0.95 page-height))))
-                "Q")
-          (elenq-logo "PUBLISHING"
-                      ; Max logo size is as the spine was 40mm thick
-                      (* (if (< 40 spine-width) 40 spine-width) 0.1 0.75)
-                      (+ margin page-width (* 0.5 spine-width)) ;anchor is centered
-                      (+ margin (* 0.95 page-height))))
-
-     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-     ;; FRONT SIDE                                                            ;;
-     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-     ,(let* ((win (* 0.35 page-width))
-             (w (+ win margin))
-             (h (* 1.5 category-size))
-             (x (- width margin win))
-             (y (+ margin (* 0.15 page-height))))
-        `(g
-           (rect (@ (class "category")
-                    (x ,x)
-                    (y ,y)
-                    (width ,w)
-                    (height ,h)))
-
-           (text
-             (@ (class "category")
-                (x ,(+ x (* 0.10 w)))
-                (y ,(+ y (* 0.75 h)))
-                (w ,w)
-                (h ,h))
-             ,book-category)))
-
-     (text (@ (class "main-title-before")
-              (x ,(exact->inexact (- width
-                                     (- page-width (/ page-width 8))
-                                     margin)))
-              (y ,(+ margin (* 0.30 page-height))))
-           ,book-title-before)
-
-     (text (@ (class "main-title")
-              (textLength ,(* page-width 6/8))
-              (lengthAdjust ,"spacingAndGlyphs")
-              (x ,(exact->inexact (- width
-                                     (- page-width (/ page-width 8))
-                                     margin)))
-              (y ,(+ main-title-size margin (* 0.30 page-height))))
-           ,(string-upcase book-title-word))
-
-     #;(text (@ (class "main-title-after")
-              (x ,(exact->inexact (- width  (/ page-width 8) margin)))
-              (y ,(+ main-title-size
-                     (* 1.25 title-size)
-                     margin
-                     (* 0.30 page-height))))
-           ,book-title-after)
-
-     ; TODO WORK ON THIS
-     ,(textArea book-title-after
-                "main-title-after"
-                (exact->inexact (- width  (- page-width (/ page-width 8)) margin))
-                (+ main-title-size
-                   (* main-subtitle-size 0.5)
-                   margin
-                   (* 0.30 page-height))
-                (* page-width 6/8)
-                (* 2 1.25 main-subtitle-size))
-
-     ,(map (lambda (author pos)
-             `(text (@ (class "author")
-                       (x ,(exact->inexact (- width (/ page-width 8) margin)))
-                       (y ,(+ main-title-size
-                              margin
-                              (* 0.35 page-height)
-                              (* (+ 2 pos) (* 1.5 authors-size)))))
-                    ,author))
-           book-authors
-           (iota (length book-authors)))
-
-     ,(elenq-logo "PUBLISHING"
-                  3
-                  (exact->inexact (- width (/ page-width 2) margin))
-                  (+ margin (* 0.95 page-height))))))
+
+(define (metadata->svg metadata outport)
+
+  (let* (;B5 Paper size
+         (page-height 250) ;mm
+         (page-width  176) ;mm
+         (margin        3) ;mm
+
+         (isbn "9780201379624")
+         (book-title "Programación en Python")
+         (book-subtitle "Introducción a la programación y al lenguaje")
+         (book-title-before "") ; TODO: Thinking about removing this
+         (book-title-after book-subtitle)
+         (book-category "Básico")
+         (book-authors '("Giacomo Tesio" "Ekaitz Zarraga"))
+         (book-summary " ")
+         (company-info "")
+
+         (main-title-size
+           (let ((size (exact->inexact
+                         (* 3
+                            (/ page-width
+                               (length (string->list book-title)))))))
+             (if (< (/ page-height 5) size)
+                 (exact->inexact (/ page-height 5))
+                 size))) ;mm
+
+         (spine-width  10) ;mm TODO
+         (spine-title-margin-min (* 0.1 spine-width))
+         (spine-title-max-size   10)
+         (spine-title-size
+           (let ((size (- spine-width (* 2 spine-title-margin-min))))
+             (if (> size spine-title-max-size)
+                 spine-title-max-size
+                 size)))
+
+
+         (text-size       (exact->inexact (/ page-height 70))); mm
+         (category-size   (* 1.5 text-size)); mm
+         (authors-size    (* 1.8 text-size))
+         (title-size      (* 2.5 text-size)); mm
+
+         (main-subtitle-size (* 2 text-size))
+         (main-title-width   (exact->inexact (* 6/8 page-width)))
+         (main-title-margin  (/ (- page-width main-title-width) 2))
+
+         (width   (+ (* 2 margin) (* 2 page-width) spine-width)) ;mm
+         (height  (+ (* 2 margin) page-height)) ;mm
+         (viewBox (string-append "0 0 " (num width) " " (num height)))
+         (style
+           (string-append
+             "
+             .margin-mark {
+             stroke-width: 0.1;
+             stroke-linecap: butt;
+             stroke: red;
+             }
+             .title-back {
+             font-family: 'Pathway Gothic One';
+             font-size: "(num title-size)";
+             fill: white;
+             }
+             .title-spine {
+             font-family: 'Pathway Gothic One';
+             font-size: "(num spine-title-size)";
+             dominant-baseline: mathematical;
+             fill: black;
+             }
+             .authors-spine {
+             font-family: 'Lato';
+             font-size: "(num text-size)";
+             dominant-baseline: mathematical;
+             text-anchor: end;
+             }
+             #black-part {
+             fill: black;
+             }
+             .text-elenq{
+             font-family:Lato;
+             -inkscape-font-specification:'Lato Light Italic';
+             font-style: italic;
+             font-weight: 300;
+             fill: black;
+             font-size: "(num text-size)";
+             text-align: justify;
+             }
+             .text-summary {
+             font-family:Lato;
+             font-size: "(num text-size)";
+             fill: white;
+             text-align: justify;
+             }
+             rect.category{
+             fill: black;
+             }
+             text.category{
+             fill: white;
+             font-size: "(num category-size)";
+             -inkscape-font-specification:'Lato Light';
+             font-family:Lato;
+             font-weight: 300;
+             }
+             .main-title {
+             font-size: "(num main-title-size)";
+             font-family: 'Pathway Gothic One';
+             }
+             .main-title-before {
+             font-size: "(num (* 1 title-size))";
+             font-family: 'Pathway Gothic One';
+             font-weight:300;
+             }
+             .main-title-after {
+             font-size: "(num main-subtitle-size)";
+             -inkscape-font-specification:'Lato Light Italic';
+             line-height: 0.9;
+             font-style: italic;
+             font-family:Lato;
+             font-weight: 300;
+             text-anchor: middle;
+             }
+             .author {
+             font-size: "(num authors-size)";
+             font-family:Lato;
+             text-anchor: end;
+             }
+             ")))
+
+    (display "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>" outport)
+    (display (sxml->xml
+     `(svg
+        (@ (width ,(mm width))
+           (height ,(mm height))
+           (viewBox ,viewBox))
+        (defs
+          (style ,style))
+
+
+        ; BLACK BACKGROUND FOR SUMMARY
+        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+        (g (@ (transform
+                ,(string-append
+                   ; TODO extender lo negro en el margen
+                   "translate( 0," (num (+ margin (* 0.05 page-height))) ")
+                   scale(" (num (+ margin (* 0.95 page-width))) ")")))
+           (path
+             (@ (id "black-part")
+                (d "M 1.00,
+                    0.10 L 0.30,
+                    0.00 L 0.00,
+                    0.16 L 0.00,
+                    0.67 L 0.45,
+                    0.76 L 0.97,
+                    0.67 Z"))))
+
+        ;; CUTTING MARKS
+        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+        ,(map (lambda (posx posy rot)
+                `(g (@ (id ,(string-append "marks-"
+                                           (num posx)
+                                           "-"
+                                           (num posy)))
+                       (transform ,rot))
+                    (line (@
+                            (x1 ,(+ posx))
+                            (y1 ,(+ posy margin))
+                            (x2 ,(+ posx (* 0.6 margin)))
+                            (y2 ,(+ posy margin))
+                            (class "margin-mark")))
+                    (line (@
+                            (x1 ,(+ posx margin))
+                            (y1 ,(+ posy))
+                            (x2 ,(+ posx margin))
+                            (y2 ,(+ posy (* 0.6 margin)))
+                            (class "margin-mark")))))
+
+              (list 0 0      width width)
+              (list 0 height 0     height)
+              (list "rotate(0,0,0)"
+                    (string-append "rotate(-90,   0," (num height) ")")
+                    (string-append "rotate(-270," (num width) ", 0)")
+                    (string-append "rotate(-180," (num width) ","
+                                                  (num height) ")")))
+
+
+        ;; BACK SIDE 
+        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+        ; TITLE + BOOK SUMMARY
+        (text (@ (class "title-back")
+                 (x ,(+ margin (* 0.15 page-width)))
+                 (y ,(+ margin (* page-height 0.20))))
+              ,(string-upcase book-title))
+
+
+        ,(textArea book-summary
+                   "text-summary"
+                   (+ margin (* 0.15 page-width))
+                   (+ margin (* page-height 0.20))
+                   (* 0.7 page-width)
+                   (* 0.25 page-height))
+
+
+        ; LOGO + ELENQ SUMMARY
+        ,(elenq-logo "TECHNOLOGY"
+                     3
+                     (* (+ (+ margin (* 0.5 page-width))
+                           (+ margin (* 0.5 page-width)
+                              (- (* 0.5 page-width) (* 0.1 page-width)))) 0.5)
+                     (+ margin (* 0.70 page-height) -10))
+        ,(textArea company-info
+                   "text-elenq"
+                   (+ margin (* 0.5 page-width))
+                   (+ margin (* 0.70 page-height))
+                   (- (* 0.5 page-width) (* 0.1 page-width))
+                   (- (* 0.25 page-height) (* 0.1 page-height)))
+
+
+        ; BARCODE
+        ,(barcode-sxml isbn
+                       (+ margin (* 0.1 page-width))
+                       (+ margin (* 0.75 page-height))
+                       (* 0.25 page-width))
+
+
+        ;; SPINE
+        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+        ,(let ((x (+ margin page-width))
+               (y height)
+               (width (+ margin margin page-height))
+               (height spine-width))
+           `(g (@ (transform
+                    ,(string-append "translate(" (num x) "," (num y) ")
+                                    rotate (-90)")))
+               (rect (@ (height ,height)
+                        (width ,width)
+                        (style "fill: white;")))
+
+               (text (@ (class "title-spine")
+                        (x      ,(* 0.2 width))
+                        (y      ,(* 0.5 spine-width))
+                        (width  ,(* 0.3 width))
+                        (height ,spine-title-size))
+                     ,book-title)
+               (text (@ (class "authors-spine")
+                        (x      ,(* 0.9 width))
+                        (y      ,(* 0.5 spine-width))
+                        (width  ,(* 0.3 width))
+                        (height ,spine-title-size))
+                     ,(string-join book-authors ", "))))
+
+
+        ,(if (< spine-width 10)
+             ; Smaller than 10mm -> Renders just a Q
+             `(text (@ (style ,(string-append "font-family: armata;
+                                              text-anchor: middle;
+                                              font-size: " (num spine-width)))
+                      (x ,(+ margin page-width (* 0.5 spine-width)))
+                      (y ,(+ margin (* 0.95 page-height))))
+                   "Q")
+             (elenq-logo "PUBLISHING"
+                         ; Max logo size is as the spine was 40mm thick
+                         (* (if (< 40 spine-width) 40 spine-width) 0.1 0.75)
+                         (+ margin page-width (* 0.5 spine-width)) ;anchor is centered
+                         (+ margin (* 0.95 page-height))))
+
+
+        ;; FRONT SIDE
+        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+        ,(let* ((win (* 0.35 page-width))
+                (w (+ win margin))
+                (h (* 1.5 category-size))
+                (x (- width margin win))
+                (y (+ margin (* 0.15 page-height))))
+           `(g
+              (rect (@ (class "category")
+                       (x ,x)
+                       (y ,y)
+                       (width ,w)
+                       (height ,h)))
+
+              (text
+                (@ (class "category")
+                   (x ,(+ x (* 0.10 w)))
+                   (y ,(+ y (* 0.75 h)))
+                   (w ,w)
+                   (h ,h))
+                ,book-category)))
+
+        (text (@ (class "main-title-before")
+                 (x ,(exact->inexact
+                       (- width
+                          (- page-width
+                             (/ (- page-width main-title-width) 2))
+                          margin)))
+                 (y ,(+ margin (* 0.30 page-height))))
+              ,book-title-before)
+
+        (text (@ (class "main-title")
+                 (textLength ,main-title-width)
+                 (lengthAdjust ,"spacingAndGlyphs")
+                 (x ,(exact->inexact (- width
+                                        main-title-width
+                                        main-title-margin
+                                        margin)))
+                 (y ,(+ main-title-size margin (* 0.30 page-height))))
+              ,(string-upcase book-title))
+
+        #;(text (@ (class "main-title-after")
+                 (x ,(exact->inexact (- width  (/ page-width 8) margin)))
+                 (y ,(+ main-title-size
+                        (* 1.25 title-size)
+                        margin
+                        (* 0.30 page-height))))
+              ,book-title-after)
+
+        ; TODO WORK ON THIS
+        ,(textArea book-title-after
+                   "main-title-after"
+                   (exact->inexact (- width
+                                      margin
+                                      main-title-margin
+                                      main-title-width))
+                   (+ main-title-size
+                      (* main-subtitle-size 0.5)
+                      margin
+                      (* 0.30 page-height))
+                   main-title-width
+                   (* 2 1.25 main-subtitle-size))
+
+        ,(map (lambda (author pos)
+                `(text (@ (class "author")
+                          (x ,(exact->inexact
+                                (- width main-title-margin margin)))
+                          (y ,(+ main-title-size
+                                 margin
+                                 (* 0.35 page-height)
+                                 (* (+ 2 pos) (* 1.3 authors-size)))))
+                       ,author))
+              book-authors
+              (iota (length book-authors)))
+
+        ,(elenq-logo "PUBLISHING"
+                     3
+                     (exact->inexact (- width (/ page-width 2) margin))
+                     (+ margin (* 0.95 page-height))))) outport)))
+
+
diff --git a/utils/cover/cover.sld b/utils/cover/cover.sld
new file mode 100644
index 0000000..7a83f8e
--- /dev/null
+++ b/utils/cover/cover.sld
@@ -0,0 +1,9 @@
+(define-library (utils cover cover)
+                (import (scheme char)
+                        (chibi)
+                        (chibi string)
+                        (chibi sxml)
+                        (utils cover barcode)
+                        (srfi 1))
+                (export metadata->svg)
+                (include "cover.scm"))