* ly/music-functions-init.ly: add \bar and \clef music function

[lilypond.git] / ly / music-functions-init.ly

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 0d7aeb26c0e81a222b0c17c15648280380d756c3..90a6d8edb76c330a262a49903c9a7829dc28b498 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -43,6 +43,21 @@ tag = #(def-music-function (parser location tag arg)
          (ly:music-property arg 'tags)))
    arg)
 
+clef =
+#(def-music-function (parser location type)
+   (string?)
+   
+   "Set the current clef."
+
+   (make-clef-set type))
+
+bar =
+#(def-music-function (parser location type)
+   (string?)
+   (context-spec-music
+    (make-property-set 'whichBar type)
+    'Timing))
+
 applyMusic =
 #(def-music-function (parser location func music) (procedure? ly:music?)
                (func music))
@@ -311,18 +326,3 @@ assertBeamSlope =
 
 
 
-%{
-
-TODO:
-
-remove these from the parser, and softcode here:
-
- * \tag
-
-with small syntax changes, we could also do
-
- * \bar
- *  ?
-
-%}
-