diff --git a/book_include.ly b/book_include.ly index 9fc7733..13c98da 100644 --- a/book_include.ly +++ b/book_include.ly @@ -121,7 +121,7 @@ includeSong = \bookOutputName #filename #} (ly:parser-parse-string (if (< (list-ref (ly:version) 1) 19) (ly:parser-clone parser) (ly:parser-clone)) - (ly:format "\\include \"../../~a/~a/~a.ly\"" songPath filename filename)) + (ly:format "\\include \"~a/~a/~a.ly\"" songPath filename filename)) (let ((label (gensym "index"))) (set! additional-page-switch-label-list (acons label additional-page-numbers additional-page-switch-label-list)) @@ -209,7 +209,7 @@ songs = ;(string-join songs "\n") "Nicht inkludiert:" opticalline - (string-join (sort-list (lset-difference string=? (files-in-directory (ly:format "../../~a" songPath)) songs) string