hi again!
So, I'm trying to understand the backend_ly.lisp of fomus...
my doubts are in this passage..
(conc-stringlist
(loop for x in '(:text :textdyn :texttempo :textnote)
and m in (list (or text-markup
*lilypond-text-markup*)
(or textdyn-markup
*lilypond-textdyn-markup*)
(or texttempo-markup
*lilypond-texttempo-markup*)
(or textnote-markup
*lilypond-textnote-markup*))
nconc (loop for (xxx di str) in (getmarks e x)
collect (conc-strings
(ecase di (:up "^") (:down "_"))
(format nil m
(lilypond-string-escape str))))))
I have two questions...
1. What is - or where is defined - the function "xxx" - from (xxx di
str) ... it should get the values ":up" or ":down", right?
2. I tried to create a third - empty - direction, ":justplace", to place
whatever texts I wanted...
(ecase di (:up "^") (:down "_") (:justplace nil)) ....
Then I have recompiled fomus but it doesn't work... Why? Should I define
it in other places? Where?
Sorry if the questions are stupid.. Maybe someday I become a developer! :)
José H.
