Update of /project/fomus/cvsroot/fomus In directory common-lisp.net:/tmp/cvs-serv20706
Modified Files: backend_ly.lisp Log Message: Fixed title/subtitle/composer header Date: Wed Jul 27 22:58:50 2005 Author: dpsenicka
Index: fomus/backend_ly.lisp diff -u fomus/backend_ly.lisp:1.5 fomus/backend_ly.lisp:1.6 --- fomus/backend_ly.lisp:1.5 Tue Jul 26 01:15:53 2005 +++ fomus/backend_ly.lisp Wed Jul 27 22:58:50 2005 @@ -305,14 +305,14 @@ collect (format nil "\skip 1*~A/~A*~A " n d nu) into re and do (setf nu 0) do (incf nu) finally (return (nconc re (list (format nil "\skip 1*~A/~A*~A" n d nu)))))))))))) + (when (or *title* *subtitle* *composer*) + (format f "\header {~%") + (when *title* (format f " title = ~S~%" *title*)) + (when *subtitle* (format f " subtitle = ~S~%" *subtitle*)) + (when *composer* (format f " composer = ~S~%" *composer*)) + (format f "}~%~%")) (format f "\score {~%") ;; score block (loop for e in scorehead do (format f " ~A~%" e)) - (when (or *title* *subtitle* *composer*) - (format f " \header {~%") - (when *title* (format f " title = ~S~%" *title*)) - (when *subtitle* (format f " subtitle = ~S~%" *subtitle*)) - (when *composer* (format f " composer = ~S~%" *composer*)) - (format f " }~%")) (loop with in = 2 for p in parts and nm in (nreverse nms) do