[fomus-cvs] CVS update: fomus/backend_ly.lisp

[David Psenicka]

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