boernel/lilypond-common-includes
14
0
Fork 0
Code Issues 16 Pull Requests 1 Packages Projects Releases Wiki Activity

Compare commits

base: boernel:a6746c49dc4a8e266627f8db7fcbe5d3f18affe2
Branches Tags
boernel:main
boernel:adaption
boernel:set-spacing-for-rests-in-chordlyrics
boernel:tocSubtitleText-Variable
..
compare: boernel:51cadcd17fa75a754a8a7482ca50ff2ae7dd2a48
Branches Tags
boernel:adaption
boernel:main
boernel:set-spacing-for-rests-in-chordlyrics
boernel:tocSubtitleText-Variable

2 Commits
a6746c49dc ... 51cadcd17f

Author SHA1 Message Date
Christoph Wagner
51cadcd17f workaround popen trouble on windows 2025-03-27 17:03:42 +01:00
Christoph Wagner
7d01bd769c use authorId if not empty and not found 2025-03-27 17:00:05 +01:00
2 changed files with 4 additions and 2 deletions
Show Stats Expand all files Collapse all files

4
footer_with_songinfo.ly
View File

@ -10,7 +10,9 @@
(assoc-ref author "death_year")
(assoc-ref author "organization")
)
"unbekannt")))
(if (string-null? authorId)
"unbekannt"
authorId))))
#(define (find-author-ids-by contributionType authors)
(if authors

2
scm/yaml_parser.scm
View File

@ -4,7 +4,7 @@
(define (yml-file->scm filename)
(if windows?
(let* ((tmpdir (or (getenv "TMPDIR") (getenv "TEMP") "/tmp"))
(port (mkstemp (string-append tmpdir file-name-separator-string (basename filename) "-XXXXXX") "r"))
(port (mkstemp (string-append tmpdir "\\" (basename filename) "-XXXXXX") "r"))
(tmpfilepath (port-filename port))
(python_code (string-append "import sys, yaml, json; f = open('" tmpfilepath "', 'w'); f.write(json.dumps(yaml.safe_load(open('" filename "')))); f.close()"))
(status (system (string-append "py -X utf8 -c \"" python_code "\"")))