Clean formatting

1 files changed, 40 insertions, 41 deletions

diff --git a/utils/cover/cover.scm b/utils/cover/cover.scm
index 3af66ff..efa3af7 100644
--- a/utils/cover/cover.scm
+++ b/utils/cover/cover.scm
@@ -37,7 +37,7 @@ 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. 
+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
@@ -244,10 +244,11 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
 
 
      ; BLACK BACKGROUND FOR SUMMARY
-     (g (@ (transform ,(string-append
-                         ; TODO extender lo negro en el margen
-                         "translate("(num margin)"," (num (+ margin (* 0.05 page-height))) ")
-                         scale(" (num (* 0.95 page-width)) ")")))
+     (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"))))
      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -255,30 +256,30 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
      ,(map (lambda (posx posy rot)
-            `(g (@ (id ,(string-append "marks-"
-                                       (num posx)
-                                       "-"
-                                       (num posy)))
+             `(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) ")")))
+                 (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                                                             ;;
      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -287,7 +288,7 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
      (text (@ (class "title-back")
               (x ,(+ margin (* 0.15 page-width)))
               (y ,(+ margin (* page-height 0.20))))
-        ,(string-upcase book-title))
+           ,(string-upcase book-title))
 
 
      ,(textArea book-summary
@@ -376,12 +377,12 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
                     (height ,h)))
 
            (text
-              (@ (class "subject")
-                 (x ,(+ x (* 0.10 w)))
-                 (y ,(+ y (* 0.75 h)))
-                 (w ,w)
-                 (h ,h))
-              ,book-subject)))
+             (@ (class "subject")
+                (x ,(+ x (* 0.10 w)))
+                (y ,(+ y (* 0.75 h)))
+                (w ,w)
+                (h ,h))
+             ,book-subject)))
 
      (text (@ (class "main-title-before")
               (x ,(exact->inexact (- width
@@ -397,9 +398,9 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
 
      ; TODO PENSAR SI QUITAR ESTO
      #;(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")
+         (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")
 
      ,(map (lambda (author pos)
              `(text (@ (class "author")
@@ -415,6 +416,4 @@ ligula. Morbi consequat fringilla mauris, vitae aliquet metus sodales in.
      ,(elenq-logo "PUBLISHING"
                   3
                   (exact->inexact (- width (/ page-width 2) margin))
-                  (+ margin (* 0.95 page-height)))
-
-     )))
+                  (+ margin (* 0.95 page-height))))))