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