From b079f2eb87bf889a7a5ffc7e3981587392373862 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Fri, 14 Aug 2015 14:46:28 +0200 Subject: [PATCH] Add output-module? definition to detect midi/layout --- scm/lily-library.scm | 7 +++++++ 1 file changed, 7 insertions(+) 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))) -- 2.39.5