diff options
| -rw-r--r-- | utils/cover/cover.scm | 54 |
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") |