New markup command : pattern

[lilypond.git] / ly / toc-init.ly

diff --git a/ly/toc-init.ly b/ly/toc-init.ly
index dda4f31ab4d13250336decea7f2c3e57c87485e6..488e22ba2a6eb823a43f048dac5bdcfef344abec 100644 (file)
--- a/ly/toc-init.ly
+++ b/ly/toc-init.ly
@@ -31,6 +31,9 @@
   }
 }
 
+tocItemWithDotsMarkup = \markup \fill-with-pattern #1 #RIGHT .
+  \fromproperty #'toc:text \fromproperty #'toc:page
+
 #(define-markup-list-command (table-of-contents layout props) ()
   ( _i "Outputs the table of contents, using the paper variable
 @code{tocTitleMarkup} for its title, then the list of lines