X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Flilypond-book-preamble.ly;h=51e1231b1c22fed400bf14f8f641896804d27710;hb=0a0274a3bf5792dfb7ce3719f5dfaef36059affe;hp=9ff3e6349ffb6db30ca7a9b1958824a4e7af08f2;hpb=01a35dca425ac280b50864c0526ac6b3879723cf;p=lilypond.git

diff --git a/ly/lilypond-book-preamble.ly b/ly/lilypond-book-preamble.ly
index 9ff3e6349f..51e1231b1c 100644
--- a/ly/lilypond-book-preamble.ly
+++ b/ly/lilypond-book-preamble.ly
@@ -1,12 +1,32 @@
 
+\version "2.14.0"
 
-#(set! toplevel-score-handler print-score-with-defaults)
-#(set! toplevel-music-handler
-  (lambda (p m)
-   (if (not (eq? (ly:music-property m \'void) #t))
-        (print-score-with-defaults
-         p (scorify-music m p)))))
+%% toplevel \book gets output per page,
+%% everything else gets output per system/title
+#(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)
+   (apply collect-music-for-book rest)))
+
+#(define toplevel-score-handler
+  (lambda ( . rest)
+   (apply collect-scores-for-book rest)))
+
+#(define toplevel-text-handler
+  (lambda ( . rest)
+   (apply collect-scores-for-book rest)))
+
+#(set! output-empty-score-list #t)
+
+
+#(ly:set-option 'backend 'eps)
 #(ly:set-option (quote no-point-and-click))
 #(define inside-lilypond-book #t)
 #(define version-seen #t)