From a2d08965937e29dd184050f95ca1cfef0e931dae Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Tue, 21 Mar 2006 00:44:21 +0000
Subject: [PATCH] (process_music): kludge: add InstrumentName spanner to axis
 group of left bound. Fixes chopped off instrument names in EPS images.

---
 ChangeLog                        | 4 ++++
 lily/instrument-name-engraver.cc | 2 ++
 scm/framework-ps.scm             | 1 +
 stepmake/bin/add-html-footer.py  | 2 +-
 4 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index e5bcd60abd..3dfd33fb23 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2006-03-21  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* lily/instrument-name-engraver.cc (process_music): kludge: add
+	InstrumentName spanner to axis group of left bound. Fixes chopped
+	off instrument names in EPS images.
+
 	* input/regression/lyric-hyphen-retain.ly: elaborate explanation.
 
 	* scripts/abc2ly.py (option_parser): update to 2.7.40
diff --git a/lily/instrument-name-engraver.cc b/lily/instrument-name-engraver.cc
index f3f1d90185..66ef592273 100644
--- a/lily/instrument-name-engraver.cc
+++ b/lily/instrument-name-engraver.cc
@@ -53,8 +53,10 @@ Instrument_name_engraver::process_music ()
 	  || Text_interface::is_markup (short_text))
 	{
 	  text_spanner_ = make_spanner ("InstrumentName", SCM_EOL);
+	  Grob *col = unsmob_grob (get_property ("currentCommandColumn"));
 	  text_spanner_->set_bound (LEFT,
 				    unsmob_grob (get_property ("currentCommandColumn")));
+	  Axis_group_interface::add_element (col, text_spanner_);
 	  text_spanner_->set_property ("text", short_text);
 	  text_spanner_->set_property ("long-text", long_text);
 	}
diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 0e68240bd3..01afebab02 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -491,6 +491,7 @@
 	 (port (ly:outputter-port outputter))
 	 (xext (ly:stencil-extent dump-me X))
 	 (yext (ly:stencil-extent dump-me Y))
+	 (foo (display (list xext yext "\n")))
 	 (bbox
 	  (map
 	   (lambda (x)
diff --git a/stepmake/bin/add-html-footer.py b/stepmake/bin/add-html-footer.py
index d406d3719a..ed45c0aaf0 100644
--- a/stepmake/bin/add-html-footer.py
+++ b/stepmake/bin/add-html-footer.py
@@ -55,7 +55,7 @@ built = r"""
 This page is for %(package_name)s-%(package_version)s (%(branch_str)s). <br>
 </font>
 <address><font size="-1">
-Report errors to &lt;<a href="%(mail_address_url)s">%(mail_address)s</a>&gt;.</font></address>
+Report errors to <a href="%(mail_address_url)s">%(mail_address)s</a>.</font></address>
 </p>
 </div>
 
-- 
2.39.5