From f92f6f0a59554d6da976b99daca9c30ce475592a Mon Sep 17 00:00:00 2001
From: Sisiutl <sisiutl@egregore.fun>
Date: Wed, 20 Nov 2024 17:29:30 +0100
Subject: [PATCH] gnu: liquidprompt: Patch additional utilities
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/shellutils.scm (liquidprompt)
[inputs]: Add coreutils and inetutils.
[arguments]<#:phases>: Replace the paths of more utilites

Change-Id: I84578ca40300a7527a23e5d8c3257d49be911a7b
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/shellutils.scm | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/shellutils.scm b/gnu/packages/shellutils.scm
index 7e9f85a5f2..74e9429de0 100644
--- a/gnu/packages/shellutils.scm
+++ b/gnu/packages/shellutils.scm
@@ -47,6 +47,7 @@ (define-module (gnu packages shellutils)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system go)
   #:use-module (guix build-system python)
+  #:use-module (gnu packages admin)
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages base)
   #:use-module (gnu packages bison)
@@ -946,14 +947,19 @@ (define-public liquidprompt
                           (string-append "source "
                                          #$output
                                          "/share/liquidprompt/liquidprompt")))))
-		   (add-after 'fix-plugin 'fix-tput-path
-		     (lambda* (#:key inputs #:allow-other-keys)
-		       (substitute* "liquidprompt"
-			 (("([ (])tput " all beginning)
+                   (add-after 'fix-plugin 'fix-utils-path
+                     (lambda* (#:key inputs #:allow-other-keys)
+                       (substitute* "liquidprompt"
+                         (("([ (])\\\\?(tput|hostname|cksum|uname|tty|grep)([) ])"
+                           all beginning command ending)
                           (string-append beginning
-                                         (search-input-file inputs "bin/tput")
-                                         " "))))))))
-    (inputs (list ncurses))
+                                         (search-input-file
+                                          inputs
+                                          (string-append "bin/" command))
+                                         ending))))))))
+    (inputs (list ncurses
+                  coreutils
+                  inetutils))
     (synopsis "Full-featured prompt for Bash & Zsh")
     (description
      "Liquidprompt is an adaptive prompt for Bash and Zsh that gives