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.5