Re: "Retour à la ligne" en Scheme

[Gilles Thibault]

> Voici ce qui fonctionne chez moi:
> #(define-markup-command (two-lines layout props nameI nameII) (markup? 
> markup? )
> (interpret-markup layout props
> ( markup
> (markup #:line                  ;; pourquoi 2 markup ?
> (#:right-column
> (#:override '(font-name . "Gentium Book Basic")
> (#:abs-fontsize 28 #:italic #:medium nameI )
> #:abs-fontsize 28 "\n"          ;; du coup ça ne sert plus à rien.
> #:override '(font-name . "Gentium Book Basic")
> (#:abs-fontsize 28 #:italic #:medium nameII )
> )
> )
> )
> )
> )
> )


Hum, on peut sûrement optimiser un peu, si nameI et nameII ont les même 
réglages :


#(define-markup-command (two-lines layout props nameI nameII) (markup? 
markup? )
(interpret-markup layout props
  (markup
    #:override '(font-name . "Gentium Book Basic")
      #:abs-fontsize 28 #:italic #:medium
        #:right-column (nameI nameII))))

\markup \two-lines #"ligne 1" #"ligne 2"


Note :
Le (markup #:line ...) est inutile sous 2.19, mais peut-être que ça ne 
l'était pas sous 2.16. Je ne me rappelle plus.

--
Gilles