From 9539773875695431134a0f31c50eba5fcd1563b5 Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Fri, 23 May 2025 10:29:48 +0900
Subject: [PATCH] gnu: Add muon-as-meson-wrapper.

* gnu/packages/build-tools.scm (muon-as-meson-wrapper): New variable.

Change-Id: I13d9a71e0be896e47115379415b88f0969e207a5
---
 gnu/packages/build-tools.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/gnu/packages/build-tools.scm b/gnu/packages/build-tools.scm
index e1503e33e1b..c0e67fed590 100644
--- a/gnu/packages/build-tools.scm
+++ b/gnu/packages/build-tools.scm
@@ -43,6 +43,7 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system copy)
   #:use-module (guix build-system guile)
+  #:use-module (guix build-system trivial)
   #:use-module (guix modules)
   #:use-module (guix search-paths)
   #:use-module (gnu packages)
@@ -427,6 +428,25 @@ resembles Python.")
 with minimal dependencies.")
       (license license:gpl3))))            ;for the combined work
 
+(define-public muon-as-meson-wrapper
+  (package/inherit muon
+    (name "muon-as-meson-wrapper")
+    (build-system trivial-build-system)
+    (arguments
+     (list #:builder
+           (with-imported-modules '((guix build utils))
+             #~(begin
+                 (use-modules (guix build utils))
+                 (let ((bindir (string-append #$output "/bin"))
+                       (samu (string-append #$(this-package-input "muon")
+                                            "/bin/muon")))
+                   (mkdir-p bindir)
+                   (symlink samu (string-append bindir "/meson")))))))
+    (inputs (list muon))
+    (description "This package provides the @command{meson} command,
+implemented as a symbolic link to the @command{muon} command of @code{muon}
+package.")))
+
 (define-public premake4
   (package
     (name "premake")