From 41b08c2bb72dada6f891724bb27c743eb708a465 Mon Sep 17 00:00:00 2001 From: Werner Lemberg Date: Thu, 30 Nov 2006 22:08:49 +0100 Subject: [PATCH] (first-line-position): Don't insert page-top-space if first line is a title. From Nicolas. --- scm/layout-page-layout.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/scm/layout-page-layout.scm b/scm/layout-page-layout.scm index 090ad06b7b..f7853b01bb 100644 --- a/scm/layout-page-layout.scm +++ b/scm/layout-page-layout.scm @@ -89,7 +89,10 @@ (define (first-line-position line layout) "Position of the first line on page" - (max (+ (ly:output-def-lookup layout 'page-top-space) + (max (+ (if (ly:prob-property? line 'is-title) + ;; do not use page-top-space if first line is a title + 0.0 + (ly:output-def-lookup layout 'page-top-space)) (interval-end (paper-system-staff-extents line))) (interval-end (paper-system-extent line Y)))) -- 2.39.5