*** empty log message ***

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 38c085a48edf60c25df89dc8d1a62cb280529680..8e27a74be03c19d186abee016aefaae9b4d47892 100644 (file)
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -260,15 +260,11 @@
 
 
 (define-public (convert-to-pdf book name)
-  (let*
-      ((defs (ly:paper-book-paper book))
-       (size (ly:output-def-lookup defs 'papersize)))
+  (let* ((defs (ly:paper-book-paper book))
+        (size (ly:output-def-lookup defs 'papersize)))
 
     (postscript->pdf (if (string? size) size "a4")
-                    (string-append
-                     (basename name ".tex")
-                     ".ps")
-                    )))
+                    (string-append (basename name ".tex") ".ps"))))
 
 (define-public (convert-to-png book name)
   (let*
@@ -277,8 +273,7 @@
 
     (postscript->png
      (if (number? resolution) resolution 90)
-     (string-append (basename name ".tex") ".ps")
-     )))
+     (string-append (basename name ".tex") ".ps"))))
 
 (define-public (convert-to-ps book name)
   (let* ((paper (ly:paper-book-paper book))

diff --git a/scm/paper.scm b/scm/paper.scm
index 9e96e594439cf5882653f4673ab0dca637efaab7..d1233f3e5b274301fbe282cff0502d3af5b6e846 100644 (file)
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -112,8 +112,18 @@
       (if landscape?
          (set! entry (swap entry)))
       (set-paper-dimensions module (car entry) (cdr entry))
+
+      
       (module-define! module 'papersize name)
+      
+      ;; FIXME: if this name-play is on purpose, please document.  Why
+      ;; is it not used troughout?  Should this be removed, or
+      ;; should 'papersize be removed?
+
+      ;; setting \paper{ papersize = "a6" } gives funny results.
+      
       (module-define! module 'papersizename name)
+
       (if landscape?
          (module-define! module 'landscape #t)))
      (else