Increase tagline spacing (Issue 3214)

diff --git a/input/regression/page-breaking-good-estimation.ly b/input/regression/page-breaking-good-estimation.ly
index 438d5f63c271fe6f2397e4bfff285ead890ae16f..b2038ad65bfd2eb66f7b4da171ab9a373bdc39c7 100644 (file)
--- a/input/regression/page-breaking-good-estimation.ly
+++ b/input/regression/page-breaking-good-estimation.ly
@@ -14,8 +14,8 @@ Melody = \relative c' {
   c2 c | c c | c c
 }
 Words = \lyricmode{
-  bla bla bla bla bla bla
-  bla bla bla bla bla bla
+  ma ma ma ma ma ma
+  ma ma ma ma ma ma
 }
 \book {
   \score {

diff --git a/input/regression/page-turn-page-breaking.ly b/input/regression/page-turn-page-breaking.ly
index 30a2270e9c14a21e367295092285bb21d0424004..e54292fa0b0dbe08a0134902120ffbae81bcfcb9 100644 (file)
--- a/input/regression/page-turn-page-breaking.ly
+++ b/input/regression/page-turn-page-breaking.ly
@@ -22,6 +22,7 @@ in which case the turn will go after the special barline.
     auto-first-page-number = ##t
     print-page-number = ##t
     print-first-page-number = ##t
+    tagline = ##f
   }
 
   \score {

diff --git a/ly/titling-init.ly b/ly/titling-init.ly
index 546efac4fac66106297b1cc99432ca9a0e44430f..da2bf166c94e063ec5b419b2bf38cc5325ce7603 100644 (file)
--- a/ly/titling-init.ly
+++ b/ly/titling-init.ly
@@ -8,17 +8,19 @@ slashSeparator = \markup {
 }
 
 tagline = \markup {
-  \with-url
+  \pad-to-box #'(0 . 0) #'(0 . 3)
+  {  \with-url
 
-  #"http://lilypond.org/"
-  \line {
+    #"http://lilypond.org/"
+    \line {
 
-    %% 2014 = em dash.
+      %% 2014 = em dash.
 
-    #(format #f "Music engraving by LilyPond ~a~awww.lilypond.org"
-       (lilypond-version)
-       (ly:wide-char->utf-8 #x2014)
-       )
+      #(format #f "Music engraving by LilyPond ~a~awww.lilypond.org"
+         (lilypond-version)
+         (ly:wide-char->utf-8 #x2014)
+         )
+    }
   }
 }