Re: perl can't find more utils

[Efraim Flashner <efraim@flashner.co.il>]

[-- Attachment #1.1: Type: text/plain, Size: 590 bytes --]

On Wed, Jun 22, 2022 at 11:23:54PM -0500, jgart wrote:
> On Wed, 22 Jun 2022 10:22:32 +0300 Efraim Flashner <efraim@flashner.co.il> wrote:
> 
> > Have you tried adding perl-list-moreutils to the package definition?
> 
> Hi Efraim,
> 
> Yes, I tried also and it still fails to find it.
> 
> wdyt

Looks like you forgot to wrap the executable. Try the attached diff.

-- 
Efraim Flashner   <efraim@flashner.co.il>   אפרים פלשנר
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted

[-- Attachment #1.2: guitar-scale-chart.diff --]
[-- Type: text/plain, Size: 1603 bytes --]

diff --git a/guixrus/packages/misc.scm b/guixrus/packages/misc.scm
index d6cbba9..9269830 100644
--- a/guixrus/packages/misc.scm
+++ b/guixrus/packages/misc.scm
@@ -52,6 +52,7 @@
   #:use-module (gnu packages gnupg)
   #:use-module (gnu packages groff)
   #:use-module (gnu packages gtk)
+  #:use-module (gnu packages guile)
   #:use-module (gnu packages haskell-xyz)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages mercury)
@@ -1306,9 +1307,22 @@ mouse hovers a specific date.  Else, it shows the event for the current week.")
                  (base32
                   "1ms34r7h78mv8v8z9n5dhwnlz61ckgjby962kv0mz40vhb47yv3h"))))
       (build-system perl-build-system)
-      (propagated-inputs
-        (list perl-list-allutils ; fails to find moreutils
-              perl-term-ansicolor))
+      (arguments
+       (list
+         #:phases
+         #~(modify-phases %standard-phases
+             (add-after 'install 'wrap-program
+               (lambda* (#:key outputs #:allow-other-keys)
+                 (let* ((out   (assoc-ref outputs "out"))
+                        (bin   (string-append out "/bin"))
+                        (path  (getenv "PERL5LIB")))
+                   (wrap-script (string-append bin "/guitar-scale-chart")
+                    `("PERL5LIB" ":" prefix (,path)))))))))
+      (inputs
+       (list perl-list-allutils
+             perl-term-ansicolor))
+      (native-inputs
+       (list guile-3.0))
       (home-page "https://github.com/jgarte/guitar-scale-chart/")
       (synopsis "Pretty guitar scales in your terminal")
       (description

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]