diff --git a/toc_include.ly b/toc_include.ly index 307bc42..7eb9a09 100644 --- a/toc_include.ly +++ b/toc_include.ly @@ -135,7 +135,12 @@ 'elements (list (make-music 'LabelEvent 'page-label label))))) (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