From 192a30f73a0a1d99fa4fdbf0309a5bc68f911fe1 Mon Sep 17 00:00:00 2001
From: Mike Solomon <mike@apollinemike.com>
Date: Wed, 9 Mar 2011 19:48:32 +0100
Subject: [PATCH] Makes the footnote separator markup span only part of the
 page.

Also allows for the centering of this line to be user controlled.
---
 ly/paper-defaults-init.ly      |  2 +-
 scm/define-markup-commands.scm | 18 ++++++++++++++----
 2 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/ly/paper-defaults-init.ly b/ly/paper-defaults-init.ly
index 9f88def048..61750d2159 100644
--- 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 9a576439fb..5de7fdc6b5 100644
--- 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?)
-- 
2.39.2