From f6cd7057f7a01f3a0c6bc5293e67dbacc4aa6299 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Sun, 17 May 2020 20:58:24 +0200
Subject: Use subject as category (more sense)

---
 utils/cover/cover.scm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'utils')

diff --git a/utils/cover/cover.scm b/utils/cover/cover.scm
index efa3af7..ad29717 100644
--- a/utils/cover/cover.scm
+++ b/utils/cover/cover.scm
@@ -16,7 +16,7 @@
 (define book-title-before "Qué es la")
 (define book-title-word "Informática")
 (define book-title-after "")
-(define book-subject "Informática")
+(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
@@ -75,7 +75,7 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
 (define margin        3) ;mm
 
 (define text-size   (exact->inexact (/ page-height 70))); mm
-(define subject-size   (* 1.5 text-size)); mm
+(define category-size   (* 1.5 text-size)); mm
 (define authors-size (* 2 text-size))
 (define title-size   (* 2.5 text-size)); mm
 (define main-title-size ; mm
@@ -161,12 +161,12 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
     fill: white;
     text-align: justify;
   }
-  rect.subject{
+  rect.category{
     fill: black;
   }
-  text.subject{
+  text.category{
     fill: white;
-    font-size: "(num subject-size)";
+    font-size: "(num category-size)";
     -inkscape-font-specification:'Lato Light';
     font-family:Lato;
     font-weight: 300;
@@ -366,23 +366,23 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      ,(let* ((win (* 0.35 page-width))
              (w (+ win margin))
-             (h (* 1.5 subject-size))
+             (h (* 1.5 category-size))
              (x (- width margin win))
              (y (+ margin (* 0.15 page-height))))
         `(g
-           (rect (@ (class "subject")
+           (rect (@ (class "category")
                     (x ,x)
                     (y ,y)
                     (width ,w)
                     (height ,h)))
 
            (text
-             (@ (class "subject")
+             (@ (class "category")
                 (x ,(+ x (* 0.10 w)))
                 (y ,(+ y (* 0.75 h)))
                 (w ,w)
                 (h ,h))
-             ,book-subject)))
+             ,book-category)))
 
      (text (@ (class "main-title-before")
               (x ,(exact->inexact (- width
-- 
cgit v1.2.3