Show inkscape command run in SVG regtest.

[lilypond.git] / input / regression / backend-svg.ly

diff --git a/input/regression/backend-svg.ly b/input/regression/backend-svg.ly
index f9d9ffe3a5afcb1380deff647cc13bd31ad4874d..61993ea013bfe39699b40fcc3b8c15a67d85aedc 100644 (file)
--- a/input/regression/backend-svg.ly
+++ b/input/regression/backend-svg.ly
@@ -12,10 +12,20 @@
 #(ly:set-option 'backend 'eps)
 
 %% TODO: what to do if inkscape fails?
-#(display "Invoking inkscape...\n")
+#(ly:progress "Invoking inkscape...\n")
+
+%% LD_LIBRARY_PATH is necesssary, otherwise, it doesn't build in GUB.
+%% LD_LIBRARY_PATH is part of the start-environment but should be switched off
+%% for external inkscape.
+#(let*
+  ((cmd (format #f
+       "LD_LIBRARY_PATH= inkscape --without-gui --export-text-to-path --export-eps ~a-inkscape.eps ~a-1.svg" outname outname)))
+  (ly:progress "Running ~a" cmd)
+  (ly:system cmd)
+  (cons
+   (format #f "FONTCONFIG_FILE=~a/fonts/fonts.conf" (ly:effective-prefix))
+   (ly:start-environment)))
 
-%% LD_LIBRARY_PATH is necesssary, otherwise, it doesn't build in GUB.  
-#(system (format #f "LD_LIBRARY_PATH= inkscape -T -E ~a-1.eps ~a-1.svg" outname outname))
 #(set! output-count 0)
 #(set-default-paper-size "a5")
 
@@ -28,9 +38,9 @@
   \score {
     \lyrics {
       \markup {
-       \epsfile #X #30.0 #(format #f "~a-1.eps" outname)
+       \epsfile #X #30.0 #(format #f "~a-inkscape.eps" outname)
       }
-      x x x
+      bla bla bla
     }
   }
 }