summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
Diffstat (limited to 'utils')
-rw-r--r--utils/cover/cover.scm54
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")