09/17: gnu: flashrom: Wrap PATH to find dmidecode.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 8716f33d98d1c5fc967550cb35c459b4fb215518
Author: Hilton Chain <hako@ultrarare.space>
AuthorDate: Mon May 29 00:53:58 2023 +0800

    gnu: flashrom: Wrap PATH to find dmidecode.
    
    * gnu/packages/flashing-tools.scm (flashrom)[inputs]: Add bash-minimal.
    [arguments]<#:phases>: Add phase 'wrap-program.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/flashing-tools.scm | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/flashing-tools.scm b/gnu/packages/flashing-tools.scm
index a1631b2940..19219a6d7e 100644
--- a/gnu/packages/flashing-tools.scm
+++ b/gnu/packages/flashing-tools.scm
@@ -41,6 +41,7 @@
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages admin)
   #:use-module (gnu packages base)
+  #:use-module (gnu packages bash)
   #:use-module (gnu packages bison)
   #:use-module (gnu packages boost)
   #:use-module (gnu packages check)
@@ -72,11 +73,20 @@
                (base32
                 "08wn2j5vxzzvigflrjypgxxzjp32c76bshrlkzki5l6cad226lx0"))))
     (build-system meson-build-system)
-    (inputs (list dmidecode pciutils libusb libftdi libjaylink))
+    (inputs (list bash-minimal dmidecode pciutils libusb libftdi libjaylink))
     (native-inputs (list cmocka pkg-config))
     (arguments
      (list #:configure-flags
-           #~'("-Dprogrammer=all")))
+           #~'("-Dprogrammer=all")
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'install 'wrap-program
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (let ((flashrom (string-append #$output "/sbin/flashrom")))
+                     (wrap-program flashrom
+                       `("PATH" ":" prefix
+                         (,(dirname (search-input-file
+                                     inputs "/sbin/dmidecode")))))))))))
     (home-page "https://flashrom.org/";)
     (synopsis "Identify, read, write, erase, and verify ROM/flash chips")
     (description