From 1b9b108feaedce81d8b20e499491513e5e57915b Mon Sep 17 00:00:00 2001
From: John Kehayias <john.kehayias@protonmail.com>
Date: Mon, 25 Aug 2025 12:58:40 -0400
Subject: [PATCH] gnu: ansel: Fix OpenCL support.

* gnu/packages/photo.scm (ansel)[arguments]<#:configure-flags>: Adjust
indentation.
<#:phases>: Add libOpenCL-path phase (from darktable package).

Change-Id: I678bc8a66a281bb8674d40d4caa44f5a18b55ae3
---
 gnu/packages/photo.scm | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/photo.scm b/gnu/packages/photo.scm
index d0638d5b302a4385b5395ea28a6b2a3633d76530..98192f34eaa9203fd8c94208351bf867e78125ad 100644
--- a/gnu/packages/photo.scm
+++ b/gnu/packages/photo.scm
@@ -703,9 +703,19 @@ and enhance them.")
        (list
         #:tests? #f ;Tests are only examples
         #:configure-flags
-          #~(list "-DUSE_BUNDLED_LIBRAW=OFF"
-                  "-DBINARY_PACKAGE_BUILD=ON")
-        #:build-type "Release")) ;Rawspeed fails on default 'RelWithDebInfo'
+        #~(list "-DUSE_BUNDLED_LIBRAW=OFF"
+                "-DBINARY_PACKAGE_BUILD=ON")
+        #:build-type "Release" ;Rawspeed fails on default 'RelWithDebInfo'
+        #:phases
+        #~(modify-phases %standard-phases
+            (add-after 'unpack 'libOpenCL-path
+              (lambda* (#:key inputs #:allow-other-keys)
+                ;; Statically link to libOpenCL.
+                (substitute* "./src/common/dlopencl.c"
+                  (("\"libOpenCL\"")
+                   (string-append "\""
+                                  (search-input-file inputs "/lib/libOpenCL.so")
+                                  "\""))))))))
       (native-inputs
        (list cmocka
              desktop-file-utils