Re: notes en bas de page

[Nicolas Sceaux]

Le 20 févr. 08 à 17:08, Legrand Jean-Marc a écrit :

> XP+lily2.10
>
> Bonjour (re) !
>
> Il m’arrive, dans mes transcriptions, de corriger des erreurs  
> (fréquentes, hélas), et de vouloir, donc, indiquer quelque part ce  
> qui est écrit réellement dans la source.
>
> Deux solutions : soit un petit * qui renvoie à la préface où sont  
> listées les dites erreurs, soit une indication en pied de page avec  
> copie exacte du passage de l’original.
>
> C’est cette solution que j’aimerais mettre en œuvre, si c’est  
> possible sans passer par LaTeX.
>
> Donc question : est-il possible d’insérer des extrait de partition  
> en pied de page, comme une bête note en bas de page classique ?
>
> Merci d’avance (je sens que la réponse est non, …)

Pour les notes de bas de page, il n'existe rien d'automatique, et ce
n'est pas faisable proprement côté user.

En tout manuel, voici comment ça peut être réalisé :

#(define-public add-foot-note #f)
#(define-public page-foot-notes #f)
#(let ((foot-notes (list)))
   (set! page-foot-notes
         (lambda (page-number)
           (reverse! (remove not (map (lambda (page-text)
                                        (if (= (car page-text) page- 
number)
                                            (cdr page-text)
                                            #f))
                            foot-notes)))))
   (set! add-foot-note
         (lambda (page text)
           (set! foot-notes
                 (cons (cons page text) foot-notes)))))

#(define-markup-command (footnotes layout props) ()
   (let* ((page-number (chain-assoc-get 'page:page-number props -1))
          (footnotes (page-foot-notes page-number)))
     (if (not (null? footnotes))
         (interpret-markup layout props (make-column-markup footnotes))
         empty-stencil)))

\paper {
  evenFooterMarkup = \markup \column {
    \footnotes
    \fill-line {
      %% Copyright header field only on first page.
      \on-the-fly #first-page \fromproperty #'header:copyright
    }
    \fill-line {
      %% Tagline header field only on last page.
      \on-the-fly #last-page \fromproperty #'header:tagline
    }
  }
  oddFooterMarkup = \markup \column {
    \footnotes
    \fill-line {
      %% Copyright header field only on first page.
      \on-the-fly #first-page \fromproperty #'header:copyright
    }
    \fill-line {
      %% Tagline header field only on last page.
      \on-the-fly #last-page \fromproperty #'header:tagline
    }
  }
}

#(add-foot-note 1 "1. Foot note A")
\markup \concat { toto \super 1 }
\pageBreak
#(add-foot-note 2 "1. Foot note B")
\markup \concat { titi \super 1 }
\pageBreak
#(add-foot-note 3 "1. Foot note C")
\markup \concat { toto \super 1 }
#(add-foot-note 3 "2. Foot note D")
\markup \concat { titi \super 2 }