From e357ddf4ac442cd6fcd976516cf9f775d559094b Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Tue, 24 Jan 2017 21:45:49 +0100
Subject: [PATCH] Issue 5043/3: Define markup command \with-outline
---
scm/define-markup-commands.scm | 8 ++++++++
1 file changed, 8 insertions(+)
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
--
2.39.5