Makes the footnote separator markup span only part of the page.

Also allows for the centering of this line to be user controlled.

diff --git a/ly/paper-defaults-init.ly b/ly/paper-defaults-init.ly
index 9f88def048a7cee394aa93cb396d00fe12b2ee37..61750d2159db7a001024b406ea67db996ebb12c1 100644 (file)
--- a/ly/paper-defaults-init.ly
+++ b/ly/paper-defaults-init.ly
@@ -106,7 +106,7 @@
   %%
   %% Footnotes
   %%
-  footnote-separator-markup = \markup { \draw-hline }
+  footnote-separator-markup = \markup { \fill-line \override #`(span-factor . 1/2) { \draw-hline } }
   footnote-padding = 0.5\mm
 
 

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 9a576439fbd1386b35cf71c7eb85de52cf659b01..5de7fdc6b5a28bfafd1a0885bdb2dea306ce2fc2 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -143,17 +143,27 @@ A simple line.
   ()
   #:category graphic
   #:properties ((draw-line-markup)
-                (line-width))
+                (line-width)
+                (span-factor 1))
   "
 @cindex drawing a line across a page
 
-Draws a line across a page.
+Draws a line across a page, where the property @code{span-factor}
+controls what fraction of the page is taken up.
 @lilypond[verbatim,quote]
 \\markup {
-  \\draw-hline
+  \\column {
+    \\draw-hline
+    \\override #'(span-factor . 1/3)
+    \\draw-hline
+  }
 }
 @end lilypond"
-  (interpret-markup layout props (make-draw-line-markup (cons line-width 0))))
+  (interpret-markup layout
+                    props
+                    (markup #:draw-line (cons (* line-width
+                                                  span-factor)
+                                               0))))
 
 (define-markup-command (draw-circle layout props radius thickness filled)
   (number? number? boolean?)