Fix title and summary and use lorem ipsum as testing

1 files changed, 34 insertions, 20 deletions

diff --git a/utils/cover/cover.scm b/utils/cover/cover.scm
index 2678986..24887f9 100644
--- a/utils/cover/cover.scm
+++ b/utils/cover/cover.scm
@@ -18,17 +18,34 @@
 (define book-title-after "")
 (define book-subject "Informática")
 (define book-authors '("Giacomo Tesio" "Ekaitz Zarraga"))
-(define book-summary "Hola,\n\nSoy Ekaitz\nZarragahola hola hola hola hola hola
-                hola hola hola hola hola hola hola hola hola hola hola
-                hola hola hola hola hola hola hola hola hola hola hola
-                hola hola hola hola hola hola hola hola hola hola hola
-                hola hola hola hola hola hola hola hola hola hola hola
-                hola hola hola hola hola hola hola hola hola hola hola
-                hola hola hola hola hola hola hola hola hola hola hola
-                hola hola hola hola hola hola hola hola hola hola hola
-                hola hola hola hola hola hola hola  ")
-(define company-info "ElenQ Technology is a project that... blabla bla bla
-                      blablabla blablablabla blablabla")
+(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                                                                      ;;
@@ -260,19 +277,16 @@
      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
      ; TITLE + BOOK SUMMARY
-     ,(textArea
-        (string-upcase book-title)
-        "title-back"
-        (+ margin (* 0.15 page-width))
-        (- (+ margin (* page-height 0.25)) 15)
-        (* 0.7 page-width)
-        (* 0.25 page-height))
+     (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.25))
+                (+ margin (* page-height 0.20))
                 (* 0.7 page-width)
                 (* 0.25 page-height))
 
@@ -366,7 +380,7 @@
 
 
      ; TODO PENSAR SI QUITAR ESTO
-     (text (@ (class "main-title-after")
+     #;(text (@ (class "main-title-after")
               (x ,(exact->inexact (- width (/ page-width 8) margin)))
               (y ,(+ main-title-size margin (* 0.37 page-height))))
            "Subtítulo que puede ser una frase resumen")