From a348dc772cb2ba1e4991098a56838d0f10dfc72f Mon Sep 17 00:00:00 2001
From: Hanketsu <hanketsu@egregore.fun>
Date: Mon, 9 Jun 2025 13:00:52 +0200
Subject: battering: make-uxp-browser: Fix FFmpeg runtime linker

* battering/packages/palemoon.scm (make-uxp-browser)[phases]: Add 'fix-ffmpeg-runtime-linker.
---
 battering/packages/palemoon.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'battering')

diff --git a/battering/packages/palemoon.scm b/battering/packages/palemoon.scm
index 70c633b..cb2929f 100644
--- a/battering/packages/palemoon.scm
+++ b/battering/packages/palemoon.scm
@@ -171,6 +171,14 @@
                    (lambda* (#:key inputs #:allow-other-keys)
                      (substitute* "./configure.in" ;; Doesn't get patched automatically. Why ? This eludes me.
                        (("^#!/bin/sh") (format #f "#!~a" (search-input-file inputs "bin/sh"))))))
+                 (add-after 'fix-prefs 'fix-ffmpeg-runtime-linker
+                   (lambda _
+                     (let ((libavcodec #$(file-append ffmpeg "/lib/libavcodec.so")))
+                       (substitute* "platform/dom/media/platforms/ffmpeg/FFmpegRuntimeLinker.cpp"
+                         (("static const char\\* sLibs\\[\\] = \\{" all)
+                          (string-append all "\"" libavcodec "\" /*"))
+                         (("#endif")
+                          "*/")))))
                  (add-before 'configure 'setenv
                    (lambda* (#:key inputs #:allow-other-keys)
                      (setenv "LDFLAGS" (string-append "-Wl,-rpath=" #$output "/lib/" #$name))
-- 
cgit v1.2.3