Add output-module? definition to detect midi/layout

[lilypond.git] / scm / lily-library.scm

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index d413aceca5a3fb3dc670aec491f991a1b4355486..2270726902fdee0b4ae2c1993ac201e45f4fcc68 100644 (file)
--- 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)))