From 883c32701c6ebd9c6b8dec71735b64330ea1cea9 Mon Sep 17 00:00:00 2001 From: Christoph Wagner Date: Sun, 2 Feb 2025 16:12:04 +0100 Subject: [PATCH] work if authors not specified --- footer_with_songinfo.ly | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/footer_with_songinfo.ly b/footer_with_songinfo.ly index e7ff8a3..26242e4 100644 --- a/footer_with_songinfo.ly +++ b/footer_with_songinfo.ly @@ -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)