From 751b68981c57031d6f093dda688f92ebdbf50848 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Thu, 21 Oct 2021 21:53:46 +0000
Subject: [PATCH] gnu: lilypond: Fix build with Ghostscript 9.54.

* gnu/packages/music.scm (lilypond)[arguments]: Add build phase
'adjust-to-API-change.
---
 gnu/packages/music.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 30578e7752..d985e29cd5 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -1460,6 +1460,15 @@ and auto-mapping slices to MIDI note numbers.")
                (("\"/bin/sh\"")
                 (string-append "\"" (which "sh") "\"")))
              #t))
+         (add-after 'fix-path-references 'adjust-to-API-change
+           (lambda _
+             (substitute* '("Documentation/pictures/GNUmakefile"
+                            "stepmake/stepmake/tex-rules.make")
+               ((".*-c .setpdfwrite.*") ""))
+             (substitute* "scm/backend-library.scm"
+               (("\"-c.setpdfwrite\"") ""))
+             (substitute* "scm/framework-ps.scm"
+               (("\".setpdfwrite ") "\""))))
          (add-before 'configure 'prepare-configuration
            (lambda _
              (substitute* "configure"