--- /dev/null
+\header {
+ texidoc="Blank music paper with clefs"
+}
+\score {
+ \notes {
+ % \clef violin
+ \clef bass
+ \repeat unfold 9 { c1 \break }
+ }
+ \paper {
+ \translator {
+ \ScoreContext
+ TimeSignature \override #'transparent = ##t
+ NoteHead \override #'transparent = ##t
+ defaultBarType = #""
+ \remove Bar_number_engraver
+ }
+ }
+}
{
figure_ = new Item (get_property ("BassFigure"));
announce_grob (figure_, rest_req_); // todo
- figure_->set_grob_property ("text" , gh_str02scm ("-"));
+ figure_->set_grob_property ("text" , ly_str02scm ("-"));
}
else if (figures_.size ())
{
return unsmob_input (x) ? SCM_BOOL_T : SCM_BOOL_F ;
}
-static
-void start_input_smobs ()
+static void
+start_input_smobs ()
{
input_tag = scm_make_smob_type ("input", 0);
scm_set_smob_mark (input_tag, mark_smob);
scm_c_define_gsubr ("ly-input-location?", 1, 0, 0,
(Scheme_function_unknown)ly_input_p);
- }
+}
SCM
make_input (Input ip)
def remove_self_ref (s):
self_url = abspath (os.getcwd () + '/' + f)
#sys.stderr.write ('url0: %s\n' % self_url)
- self_url = re.sub ('.*' + string.lower (package_name) + '[^/]*/',
+
+ # self_url = re.sub ('.*?' + string.lower (package_name) + '[^/]*/',
+ # '', self_url)
+ # URG - this only works when source tree is unpacked in `src/' dir
+ # For some reason, .*? still eats away
+ # /home/fred/usr/src/lilypond-1.5.14/Documentation/user/out-www/lilypond/
+ # instead of just
+ #
+ # /home/fred/usr/src/lilypond-1.5.14/
+ #
+ # Tutorial.html
+ self_url = re.sub ('.*?src/' + string.lower (package_name) + '[^/]*/',
'', self_url)
+
#sys.stderr.write ('url1: %s\n' % self_url)
#urg, ugly lily-specific toplevel index hack
s = re.sub ('@WEBMASTER@', webmaster, s)
s = re.sub ('@GCOS@', gcos, s)
s = re.sub ('@LOCALTIME@', localtime, s)
- s = re.sub ('@MAILADDRESS@', mail_address, s)
+ s = re.sub ('@MAIL_ADDRESS@', mail_address, s)
m = re.match ('.*?<!-- (@[a-zA-Z0-9_-]*@)=(.*?) -->', s, re.DOTALL)
while m: