From 98c4f0135cd2cd5e340f81cbd5f716e055a8ea2b Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Fri, 21 Oct 2022 10:10:46 +0200
Subject: [PATCH] gnu: emacs-org-cliplink: Improve a phase.

* gnu/packages/emacs-xyz.scm (emacs-org-cliplink)[arguments]<#:phases>: Fix
phase name.  Clarify substitution done in the phase.
---
 gnu/packages/emacs-xyz.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 0acede2da4..eef7b54777 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -33525,12 +33525,12 @@ the buffer you want to undo.  An undo tree buffer should pop up.")
         #:test-command #~(list "ert-runner")
         #:phases
         #~(modify-phases %standard-phases
-            (add-after 'unpack 'patch-geiser-racket-binary
+            (add-after 'unpack 'patch-curl-executable
               (lambda* (#:key inputs #:allow-other-keys)
                 (substitute* "org-cliplink-transport.el"
-                  (("curl\")")
-                   (string-append (search-input-file inputs "bin/curl")
-                                  "\")"))))))))
+                  (("\\(executable-find \"curl\"\\)")
+                   (let ((curl (search-input-file inputs "/bin/curl")))
+                     (string-append "\"" curl "\"")))))))))
       (native-inputs
        (list emacs-el-mock emacs-ert-runner emacs-undercover))
       (inputs