Merge branch 'lilypond/translation' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond

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

diff --git a/ly/property-init.ly b/ly/property-init.ly
index b6da29332b1d427181346fc09e263a5e7934527a..575d5945d78cf21fb0914bf5fe7afa4b0efe3c73 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -138,7 +138,10 @@ voiceNeutralStyle = {
   \revert Beam #'color
 }
 
-       
+teeny = {
+  \set fontSize = #-3
+}
+
 tiny = {
   \set fontSize = #-2
 }
@@ -180,9 +183,35 @@ textLengthOff = {
   \override TextScript  #'infinite-spacing-height = ##f
 }
 
+balloonLengthOn = {
+  \override BalloonTextItem #'extra-spacing-width = #'(0 . 0)
+  \override BalloonTextItem #'infinite-spacing-height = ##t
+}
+
+balloonLengthOff = {
+  \override BalloonTextItem #'extra-spacing-width = #'(+inf.0 . -inf.0)
+  \override BalloonTextItem #'infinite-spacing-height = ##f
+}
+
+
 showStaffSwitch = \set followVoice = ##t
 hideStaffSwitch = \set followVoice = ##f
 
+expandFullBarRests = {
+  \set Score.skipBars = ##f
+}
+
+compressFullBarRests = {
+  \set Score.skipBars = ##t
+}
+
+numericTimeSignature = {
+  \override Staff.TimeSignature #'style = #'()
+}
+
+defaultTimeSignature = {
+  \revert Staff.TimeSignature #'style
+}
 
 
 % For drawing vertical chord brackets with \arpeggio