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

Autorenverzeichnis sortiert

Browse Source
This commit is contained in:
Christoph Wagner 2025-02-06 23:38:00 +01:00
parent 883c32701c
commit 152d56fe3f
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
toc_include.ly
View File

@ -135,7 +135,12 @@
'elements (list (make-music 'LabelEvent 'elements (list (make-music 'LabelEvent
'page-label label))))) 'page-label label)))))
(set! author-index-items (lambda () (set! author-index-items (lambda ()
(hash-fold (lambda (authorsym authorlist previous-author-items) (append previous-author-items (reverse authorlist))) '() author-index-hash)))) (append-map cdr
(sort-list
(hash-map->list
(lambda (authorsym authorlist) (cons (string-downcase (symbol->string authorsym)) (reverse authorlist)))
author-index-hash)
(lambda (a b) (string-ci<? (car a) (car b))))))))
#(define-markup-command (with-link-symbol-ref layout props symbol arg) #(define-markup-command (with-link-symbol-ref layout props symbol arg)
@ -214,7 +219,7 @@
#(make-on-the-fly-markup #(make-on-the-fly-markup
(lambda (layout props m) (lambda (layout props m)
(interpret-markup layout props (interpret-markup layout props
(make-justify-string-markup (format-author (ly:output-def-lookup layout 'authorFormat) (chain-assoc-get 'index:text props #f) #f)))) (make-justify-string-markup (format-author (ly:output-def-lookup layout 'authorFormat) (chain-assoc-get 'index:text props #f) #t))))
(make-null-markup)) (make-null-markup))
\vspace #.4 \vspace #.4
} }