Add a new stencil expression: embedded-svg

* This can only be used with the SVG backend.

diff --git a/scm/define-stencil-commands.scm b/scm/define-stencil-commands.scm
index 2e816ccaa2fff4846138ac9e62fe5e9c91c3d9c2..b2b2f92d68bf5d1ac455346057e5639b7baee2d9 100644 (file)
--- a/scm/define-stencil-commands.scm
+++ b/scm/define-stencil-commands.scm
@@ -19,6 +19,7 @@
        draw-line
        ellipse
        embedded-ps
+       embedded-svg
        glyph-string
        named-glyph
        oval

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index c08fc1a5d5061eeeddc55411ed7730c30c5009e1..bc27ed6d7ace0d787774068ddfcf4bd7af571b29 100644 (file)
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -378,7 +378,8 @@
 (define (utf-8-string pango-font-description string)
   (dispatch `(fontify ,pango-font-description ,(entity 'tspan string))))
 
-
+(define (embedded-svg string)
+  string)
 
 (define (setcolor r g b)
   (format "<g color=\"rgb(~a%,~a%,~a%)\">\n"