Re: Header fields in custom footer

[Noeck]

Hi,

your code works pretty well. Thanks, Harm!

The following questions are left:

(1) How to center the whole markup? \center-column does not work.
    It should be easy, but perhaps it's too late.

(2) The footer should appear only on the first page, the last page
    should be different, all other pages should be empty.
    Like \on-the-fly #first-page and #last-page which I could not use
    successfully

(3) How can I use header fields for the url in \with-url?
    Your clever functions couldn't help me. Probably such a function
    should return a string instead of a markup?

Thanks again!
Joram


Here is what I have got so far:

%%%%%%%%%%%%%%%%%%%%%

\version "2.19.22"

#(define-markup-command (fillwith layout props arg)(symbol?)
  #:properties ((proc '()))
  (let* ((target (chain-assoc-get arg props))
         (target-string (markup->string target))
         (output
           (if (or (null? proc) (string-null? target-string))
               target
               (proc target-string))))

    (if (markup? output)
        ;; prevent infinite loops by clearing the interpreted property:
        (interpret-markup
          layout
          (cons
            (list (cons symbol `(,property-recursive-markup ,symbol)))
props)
          output)
        empty-stencil)))

#(define (transform-web)
  (lambda (strg)
    (if (string? strg)
        (format #f "- ~a" (substring strg 7))
        strg)))

#(define (transform-license)
   (lambda (strg)
     (if (string? strg)
         (format #f "CC ~a"
           (string-upcase (substring strg 3))))))


\header {
  composer = "Mozart"
  maintainer = "Name"
  maintainerWeb = "http://example.com";
  license = "cc-by-sa"
}


\paper {
  % (1) how to center the whole markup? \center-column does not work:
  %     oddFooterMarkup = \markup \center-column \line {
  % (2) it should appear only on the first page
  %     the last page should be different
  %     all other pages should be empty
  %     oddFooterMarkup = \on-the-fly #first-page \markup \line {
  %     does not work

  oddFooterMarkup = \markup \line{
    "By"
    \with-url
      #"http://example.com";   % (3a) how to use maintainerWeb here?
      \line {
        \fillwith #'header:maintainer
        \override #`(proc . ,(transform-web)) \fillwith
#'header:maintainerWeb
      }
    "-"
    \with-url
      #(format
        "https://creativecommons.org/licenses/~a/4.0/";
        (substring "cc-by-sa" 3))  % (3b) how to use license here?
     \line {
       "License:" \smaller
       \override #`(proc . ,(transform-license)) \fillwith #'header:license
     }
  }
}


{ a1 \pageBreak a }