Bump documentation license to v1.3+.

[lilypond.git] / scm / define-grobs.scm

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 766f2f928af9b60db77781a13dec041640be6d32..5b54ad835a35815c3db755290c2bd5375b904584 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -107,7 +107,6 @@
     (AmbitusAccidental
      . (
        (direction . ,LEFT)
-       (font-family . music)
        (glyph-name-alist . ,standard-alteration-glyph-name-alist)
        (padding . 0.5)
        (side-axis . ,X)
@@ -481,7 +480,6 @@
        (break-align-anchor . ,ly:break-aligned-interface::calc-extent-aligned-anchor)
        (break-align-symbol . clef)
        (break-visibility . ,begin-of-line-visible)
-       (font-family . music)
        (glyph-name . ,ly:clef::calc-glyph-name)
        (non-musical . #t)
        (space-alist . ((ambitus . (extra-space . 2.0))
@@ -980,7 +978,7 @@
                        (clef . (extra-space . 0.8))
                        (first-note . (fixed-space . 2.0))
                        (right-edge . (extra-space . 0.0))
-                       (key-signature . (extra-space . 0.0))
+                       (key-signature . (extra-space . 0.8))
                        (key-cancellation . (extra-space . 0.0))
                        ))
        (X-extent . (0 . 0))
@@ -1619,8 +1617,12 @@
 
     (StaffGrouper
      . (
-       (between-staff-spacing . ((space . 9) (minimum-distance . 7)))
-       (after-last-staff-spacing . ((space . 10.5) (minimum-distance . 8)))
+       (between-staff-spacing . ((space . 9)
+                                 (minimum-distance . 7)
+                                 (padding . 1)))
+       (after-last-staff-spacing . ((space . 10.5)
+                                    (minimum-distance . 8)
+                                    (padding . 1)))
        (meta . ((class . Spanner)
                 (interfaces . (staff-grouper-interface))))))
 
@@ -1867,6 +1869,10 @@
 
     (TabNoteHead
      . (
+       (details . ((tied-properties . ((break-visibility . ,begin-of-line-visible)
+                                       (parenthesize . #t)))
+                   (repeat-tied-properties . ((note-head-visible . #t)
+                                              (parenthesize . #t)))))
        (direction . ,CENTER)
        (duration-log . ,note-head::calc-duration-log)
        (font-series . bold)
@@ -1881,6 +1887,7 @@
                                 rhythmic-grob-interface
                                 rhythmic-head-interface
                                 staff-symbol-referencer-interface
+                                tab-note-head-interface
                                 text-interface))))))
 
     (TextScript
@@ -2179,8 +2186,11 @@
      . (
        (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights)
        (axes . (,Y))
-       (default-next-staff-spacing . ((space . 9) (minimum-distance . 8)))
+       (default-next-staff-spacing . ((space . 9)
+                                      (minimum-distance . 8)
+                                      (padding . 1)))
        (next-staff-spacing . ,ly:axis-group-interface::calc-next-staff-spacing)
+       (non-affinity-spacing . ((padding . 0.5)))
        (stencil . ,ly:axis-group-interface::print)
        (vertical-skylines . ,ly:hara-kiri-group-spanner::calc-skylines)
        (X-extent . ,ly:axis-group-interface::width)
@@ -2256,10 +2266,10 @@
   ;;  (newline)
   (let* ((name-sym  (car x))
         (grob-entry (cdr x))
-        (meta-entry (cdr (assoc 'meta grob-entry)))
-        (class (cdr (assoc 'class meta-entry)))
+        (meta-entry (assoc-get 'meta grob-entry))
+        (class (assoc-get 'class meta-entry))
         (ifaces-entry
-         (cdr (assoc 'interfaces meta-entry))))
+         (assoc-get 'interfaces meta-entry)))
 
     (cond
      ((eq? 'Item class)