Re: Paper default margins

[Neil Puttock]

2009/10/18 Michael Käppler <address@hidden>:

> I've expanded the regtests to get enough pages.
> Ready to apply?

\book {
   \score {
-    {
+    \relative c' {
       a b c d R1
-      \repeat unfold 26 {a4 b c d}
+      \repeat unfold 40 {a4 b c d}
     }
   }
 }

You don't need to change this test.

I think you'll have to split paper-default-margins.ly into separate
files, otherwise it won't work; due to the multiple \book blocks, only
the first book will appear.

+             and apply to the default paper size returned by (ly:get-option
+            'paper-size). For other paper sizes, they are scaled linearly.
+             This also affects head- and foot-separation as well as indents."

no indent for these lines

+  % This margins apply to the default paper format given by
(ly:get-option 'paper-size)

% These

+(define-public (all-items lst)

This is rather vaguely named, and looks similar to flatten-list.  I
think it would be better to keep flatten-list, but amend it to support
pairs.

I wonder why it can't be much simpler (while supporting flattening of
pairs without changing their positions):

(define (flatten-list x)
    (cond ((null? x) '())
          ((not (pair? x)) (list x))
          (else (append (flatten-list (car x))
                        (flatten-list (cdr x))))))

+        (let* ((def (and (not (null? default)) (car default))))

(let ((def (and (pair? default) (car default))))

+           (let* ((entry-symbol

(let ((
space before tab

+                    (string->symbol

space before tab

+        (let* ((value-symbol (string->symbol (car value)))

(let ((

Regards,
Neil

0001-Let-default-margins-depend-on-paper-size.patch
Description: Text Data