-#(define (override-alist-property grob-name alist-property entry)
- (lambda (context)
- (let* ((grob-properties (ly:context-property context grob-name))
- (alist-cons (chain-assoc-get alist-property grob-properties '()))
- (new-alist-cons (assoc-set! alist-cons (car entry) (cdr entry)))
- (new-props (assoc-set! (car grob-properties)
- alist-property new-alist-cons)))
- (ly:context-set-property! context grob-name (list new-props)))))
-
-#(define (set-extra-space grob-name entry value)
- (override-alist-property grob-name 'space-alist
- ;;;huh, broken? --jcn
- ;;;(cons entry (cons 'fixed-space value))))
- (cons entry (cons 'extra-space value))))
-
-noclefs = \notes { s1 \set Staff.Clef = \turnOff }
-margins = {
- %% first line left margin
- \applycontext #(set-extra-space 'TimeSignature 'first-note 4.5)
-
- %% next lines left margin
- %% \applycontext #(set-extra-space 'KeySignature 'first-note 15)
- \applycontext #(set-extra-space 'KeySignature 'staff-bar 15)
-
- %% next lines small key-signature margin
- \applycontext #(set-extra-space 'LeftEdge 'key-signature 1.0)
+noclefs = {
+ s1
+ \override Staff.Clef #'break-visibility =
+ #all-invisible
+}
+
+setMargins = {
+ %% \context Staff \applyContext #(set-extra-space 'TimeSignature
+ %% 'first-note -> extra-space 4.5