From c955797f0b18571f3e0b44f4f4849367d50a1df8 Mon Sep 17 00:00:00 2001
From: Isidor Zeuner <guix@quidecco.pl>
Date: Wed, 8 Oct 2025 22:19:10 +0200
Subject: [PATCH] gnu: Add mp3cat.

* gnu/packages/audio.scm (mp3cat): New variable.

Signed-off-by: Sughosha <sughosha@disroot.org>
---
 gnu/packages/audio.scm | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index b03d2d4fe51f08ec4755be195a18aa71997b45a0..634ca9299044c1bfc62cd908fad53357cf4847aa 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -57,6 +57,7 @@
 ;;; Copyright © 2025 Kjartan Oli Agustsson <kjartanoli@outlook.com>
 ;;; Copyright © 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
 ;;; Copyright © 2025 Antoine Côté <antoine.cote@posteo.net>
+;;; Copyright © 2025 Isidor Zeuner <guix@quidecco.pl>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -5623,6 +5624,42 @@ encoder used for an MPEG Layer III (MP3) file, as well as scan any MPEG audio
 file (any layer) and print a lot of useful information.")
     (license license:lgpl2.1+)))
 
+(define-public mp3cat
+  (package
+    (name "mp3cat")
+    (version "0.5")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/tomclegg/mp3cat")
+             (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0n6hjg2wgd06m561zc3ib5w2m3pwpf74njv2b2w4sqqh5md2ymfr"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:tests? #f ;upstream defines no tests
+      #:make-flags
+      #~(list (string-append "PREFIX="
+                             #$output))
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure)
+          (add-before 'build 'patch-makefile
+            (lambda _args
+              (substitute* "Makefile"
+                (("cc")
+                 #$(cc-for-target))))))))
+    (home-page "http://tomclegg.net/mp3cat")
+    (synopsis "MP3 stream copier and concatenator")
+    (description
+     "Copies a stream, skipping everything except MP3 frames with valid
+headers.  This can be used to copy and concatenate streams, even if
+they contain extra garbage.")
+    (license license:gpl2+)))
+
 (define-public shntool
   (package
     (name "shntool")