From: David Kastrup <dak@gnu.org>
Date: Tue, 24 Jan 2017 20:45:49 +0000 (+0100)
Subject: Issue 5043/3: Define markup command \with-outline
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e357ddf4ac442cd6fcd976516cf9f775d559094b;p=lilypond.git

Issue 5043/3: Define markup command \with-outline
---

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 9543db464b..f048aeabce 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -2251,6 +2251,14 @@ Set the dimensions of @var{arg} to @var{x} and@tie{}@var{y}."
       `(delay-stencil-evaluation ,(delay expr))
       x y))))
 
+(define-markup-command (with-outline layout props outline arg)
+  (markup? markup?)
+  #:category other
+  "
+Print @var{arg} with the outline and dimensions of @var{outline}."
+  (ly:stencil-outline (interpret-markup layout props arg)
+                      (interpret-markup layout props outline)))
+
 (define-markup-command (with-dimensions-from layout props arg1 arg2)
   (markup? markup?)
   #:category other