* scripts/lilypond-book.py (Lilypond_file_snippet.ly): don't copy

[lilypond.git] / scm / output-sodipodi.scm

diff --git a/scm/output-sodipodi.scm b/scm/output-sodipodi.scm
index 954372a18ccf86882f2de8ec6663fa68edacb9a5..9875a1938c66feb42862f31679c6a3dd64d65601 100644 (file)
--- a/scm/output-sodipodi.scm
+++ b/scm/output-sodipodi.scm
@@ -44,7 +44,6 @@
 ;;;    define-fonts
 ;;;    no-origin
 ;;;    start-system
-;;;    end-output
 ;;;    header
 ;;;    comment
 ;;;    stop-last-system
@@ -247,9 +246,6 @@
 (define (define-fonts paper font-list)
   (comment (format #f "Fonts used: ~S" font-list)))
 
-(define (end-output)
-  "</g></svg>")
-
 (define (filledbox breapth width depth height)
   (round-filled-box breapth width depth height line-thickness))
 
@@ -373,13 +369,14 @@
 ;;   (tagify "text" (dispatch expr) (cons 'style (get-font font)))))
    (tagify "text" expr (cons 'style (get-font font)))))
 
-(define (utext font s)
+(define (text font s)
   (tagify "tspan"
-         (apply string-appendb
+         (apply string-append
                 (map (lambda (x) (ascii->upm-string (char->integer x)))
-                     (string->list s)))))
+                     (string->list s)))
+         (cons 'style (get-font font))))
 
-(define (text font s)
+(define (ntext font s)
   ;;  (fontify font
   ;; to unicode or not?
   (tagify "tspan" (dispatch `(fontify ,font ,s))))