boernel/lilypond-common-includes
13
0
Fork 0
Code Issues 12 Pull Requests 2 Packages Projects Releases Wiki Activity

work if authors not specified

Browse Source
This commit is contained in:
Christoph Wagner 2025-02-02 16:12:04 +01:00
parent 7b97e04fab
commit 883c32701c
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
footer_with_songinfo.ly
View File

@ -13,14 +13,18 @@
"unbekannt")))
#(define (find-author-ids-by contributionType authors)
(filter-map (lambda (authordata) (if (member contributionType (cdr authordata)) (car authordata) #f)) authors))
(if authors
(filter-map (lambda (authordata) (if (member contributionType (cdr authordata)) (car authordata) #f)) authors)
(list)))
#(define (find-author-id-with-part-numbers contributionType authors)
(filter-map (lambda (authordata)
(let ((contributionNumbers (filter-map (lambda (contribution) (if (and (list? contribution) (equal? contributionType (car contribution))) (cadr contribution) #f)) (cdr authordata)))
(authorId (car authordata)))
(if (null? contributionNumbers) #f (cons authorId contributionNumbers))
)) authors))
(if authors
(filter-map (lambda (authordata)
(let ((contributionNumbers (filter-map (lambda (contribution) (if (and (list? contribution) (equal? contributionType (car contribution))) (cadr contribution) #f)) (cdr authordata)))
(authorId (car authordata)))
(if (null? contributionNumbers) #f (cons authorId contributionNumbers))
)) authors)
(list)))
#(define-markup-command (print-songinfo layout props) ()
(define (songinfo-from songId key)