for lp-book, output empty *-systems.tex* for an empty file.

diff --git a/ly/init.ly b/ly/init.ly
index 2f718ed93d1efcd1965646ecc0146ec9162af7dc..da97ded0e6c662740b7e0d30ffe750b0b29206ae 100644 (file)
--- a/ly/init.ly
+++ b/ly/init.ly
@@ -15,7 +15,8 @@
 #(define $defaultheader #f)
 #(define version-seen #f)
 #(define expect-error #f) 
-  
+#(define output-empty-score-list #f)
+
 #(use-modules (scm clip-region))
 \maininput
 %% there is a problem at the end of the input file
@@ -33,7 +34,7 @@
       (defined? 'input-file-name))
   (version-not-seen-message input-file-name))
 
-#(if (pair? toplevel-scores)
+#(if (or (pair? toplevel-scores) output-empty-score-list)
   ((if (defined? 'default-toplevel-book-handler)
     default-toplevel-book-handler
     toplevel-book-handler)

diff --git a/ly/lilypond-book-preamble.ly b/ly/lilypond-book-preamble.ly
index 91fde7c84b874f2796bf80742981864335deae0a..063c69680b54aae89b801a2c2443ba4b0a286f99 100644 (file)
--- a/ly/lilypond-book-preamble.ly
+++ b/ly/lilypond-book-preamble.ly
@@ -6,6 +6,29 @@
 #(define default-toplevel-book-handler
   print-book-with-defaults-as-systems )
 
+#(define toplevel-book-handler
+
+  (lambda ( . rest)
+  (set! output-empty-score-list #f)
+  (apply print-book-with-defaults rest)))
+
+#(define toplevel-music-handler
+  (lambda ( . rest)
+   (set! output-empty-score-list #f)
+   (apply collect-music-for-book rest)))
+
+#(define toplevel-score-handler
+  (lambda ( . rest)
+   (set! output-empty-score-list #f)
+   (apply collect-scores-for-book rest)))
+#(define toplevel-text-handler
+  (lambda ( . rest)
+   (set! output-empty-score-list #f)
+   (apply collect-scores-for-book rest)))
+
+#(set! output-empty-score-list #t)
+
+
 #(ly:set-option (quote no-point-and-click))
 #(define inside-lilypond-book #t)
 #(define version-seen #t)

diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm
index e2215ede41b7b68913bc51bc6a41c93be9aac763..f7003bac2aa6fdf23edad3fb429d5810e41f2a0d 100644 (file)
--- a/scm/framework-eps.scm
+++ b/scm/framework-eps.scm
@@ -28,11 +28,14 @@
 stencil, so LaTeX includegraphics doesn't fuck up the alignment."
 
   (define left
-    (apply min
-          (map (lambda (stc)
-                 (interval-start (ly:stencil-extent stc X)))
-               stencils)))
+    (if (pair? stencils)
 
+       (apply min
+              (map (lambda (stc)
+                     (interval-start (ly:stencil-extent stc X)))
+                   stencils))
+       0.0))
+    
   (map (lambda (stil)
         
         (ly:make-stencil