[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Paper default margins

From: Neil Puttock
Subject: Re: Paper default margins
Date: Thu, 22 Oct 2009 23:27:22 +0100

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 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

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 ((


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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]