From: David Kastrup <dak@gnu.org>
Date: Fri, 14 Aug 2015 12:46:28 +0000 (+0200)
Subject: Add output-module? definition to detect midi/layout
X-Git-Tag: release/2.19.26-1~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b079f2eb87bf889a7a5ffc7e3981587392373862;p=lilypond.git

Add output-module? definition to detect midi/layout
---

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index d413aceca5..2270726902 100644
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -1022,3 +1022,10 @@ print a warning and set an optional @var{default}."
    (ly:format "~a:1" input-file-name)
    (_ "no \\version statement found, please add~afor future compatibility")
    (format #f "\n\n\\version ~s\n\n" (lilypond-version))))
+
+(define-public (output-module? module)
+  "Returns @code{#t} if @var{module} belongs to an output module
+usually carrying context definitions (@code{\\midi} or
+@code{\\layout})."
+  (or (module-ref module 'is-midi #f)
+      (module-ref module 'is-layout #f)))