contrapunctus
/
mkly
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

alist -> args-alist; quote whole output path; warn user about PAC in 

file name
This commit is contained in:
Kashish Sharma 2018-07-07 00:28:09 +05:30
parent 1ec110799f
commit 64ccb2e185
1 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
build.scm
View File

@ -41,28 +41,36 @@
(let* ((cli-args (command-line))
(target (cadr cli-args))
(valid-args (get-valid-args cli-args))
(alist (valid-args->alist valid-args))
(size (match (assoc-ref alist "size")
("a4" "-a4")
(_ "")))
(args-alist (valid-args->alist valid-args))
(size (match (assoc-ref args-alist "size")
("a4" "-a4")
(_ "")))
(pac (match (assoc-ref args-alist "pac")
("off" "-dno-point-and-click ")
(_ "")))
(ly-command (string-append
"lilypond "
(match (assoc-ref alist "pac")
("off" "-dno-point-and-click ")
(_ ""))
pac
"-o output/"
"-o "
"\""
"output/"
*project-name*
"\""
(match target
("main" "")
(_ (string-append "-" target)))
(match pac
("" "-pacON")
(_ ""))
(match size
("" "")
(_ "-"))
size
"\""
" "
target size ".ly")))
;; (format (current-error-port) "~s~s~%" "alist - " alist)
;; (format (current-error-port) "~s~s~%" "args-alist - " args-alist)
(format #t "~2%~a~2%" ly-command)
(system ly-command)))