T2026: Use new (scm markup-facility-defs) scheme module for markup commands.

ly/music-functions-init.ly

 %%%% -*- Mode: Scheme -*-
 
 %%%% This file is part of LilyPond, the GNU music typesetter.
 %%%%
 %%%% Copyright (C) 2003--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
 %%%%                          Jan Nieuwenhuizen <janneke@gnu.org>
 %%%%
 %%%% LilyPond is free software: you can redistribute it and/or modify
 %%%% it under the terms of the GNU General Public License as published by
 %%%% the Free Software Foundation, either version 3 of the License, or
@@ skipping 10 matching lines @@
 \version "2.15.18"
 
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% this file is alphabetically sorted.
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 %% need SRFI-1 for filter; optargs for lambda*
 #(use-modules (srfi srfi-1)
               (ice-9 optargs))
+%% need (scm markup-facility-defs)for markup?

[dak, 2012/01/02 14:04:39]

Wasn't this supposed to get removed?  This was not supposed to be needed in
user-level docs, right?

[Ian Hulin (gmail), 2012/01/02 21:19:24]

No.  This isn't a user-level document, it's part of the run-time initialization
we do for each user document.  
Regression tests will break without it.

User document testing.ly with this (copy of a definition from
music-functions-init.ly):

\version "2.14.0"
myFootnoteGrob =
#(define-music-function  (parser location grob-name offset text footnote)
   (symbol? number-pair? markup? markup?)
   (_i "Attach @var{text} to @var{grob-name} at offset @var{offset},
with @var{text} referring to @var{footnote} (use like @code{\\once})")
   (make-music 'FootnoteEvent
               'automatically-numbered #f
	       'symbol grob-name
	       'X-offset (car offset)
	       'Y-offset (cdr offset)
	       'text text
	       'footnote-text footnote))

\relative c' {
\time 4/4
c4 d e f |
g a b c \bar "|."
}

Still compiles OK.

[dak, 2012/01/02 21:33:07]

Argl.  I just don't get along with Rietveld: I thought this was
input/regression/bookparts.ly.

+#(use-modules (scm markup-facility-defs))
 
 %% TODO: using define-music-function in a .scm causes crash.
 
 acciaccatura =
 #(def-grace-function startAcciaccaturaMusic stopAcciaccaturaMusic
    (_i "Create an acciaccatura from the following music expression"))
 
 %% keep these two together
 "instrument-definitions" = #'()
 addInstrumentDefinition =
@@ skipping 1130 matching lines @@
 Use this if you want to have a scheme expression evaluated
 because of its side-effects, but its value ignored."))
 
 withMusicProperty =
 #(define-music-function (parser location sym val music)
    (symbol? scheme? ly:music?)
    (_i "Set @var{sym} to @var{val} in @var{music}.")
 
    (set! (ly:music-property music sym) val)
    music)