diff mbox series

[bug#41255,v2] gnu: exo: Fix exo-compose-mail.

Message ID 20200514105341.1195-1-jonathan.brielmaier@web.de
State Accepted
Headers show
Series [bug#41255,v2] gnu: exo: Fix exo-compose-mail. | expand

Checks

Context Check Description
cbaines/comparison success View comparision
cbaines/git branch success View Git branch
cbaines/applying patch success View Laminar job

Commit Message

Jonathan Brielmaier May 14, 2020, 10:53 a.m. UTC 
Fixes https://issues.guix.gnu.org/issue/41244.

* gnu/packages/xfce.scm (exo)[arguments]: Add wrap-exo-compose-mail phase so it can find URI::Escape from perl-uri.
---
 gnu/packages/xfce.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

--
2.26.2

Comments

Ricardo Wurmus May 14, 2020, 2:49 p.m. UTC | #1 
Jonathan Brielmaier <jonathan.brielmaier@web.de> writes:

> Fixes https://issues.guix.gnu.org/issue/41244.
>
> * gnu/packages/xfce.scm (exo)[arguments]: Add wrap-exo-compose-mail
> phase so it can find URI::Escape from perl-uri.

Applied and pushed with commit 5c7e477c6cfe89aa4dfce557ea181e5aa8ba8a05.
Thanks!
diff mbox series

Patch

diff --git a/gnu/packages/xfce.scm b/gnu/packages/xfce.scm
index 4217023cf8..61b64ef553 100644
--- a/gnu/packages/xfce.scm
+++ b/gnu/packages/xfce.scm
@@ -12,6 +12,7 @@ 
 ;;; Copyright © 2019 L  p R n  d n <guix@lprndn.info>
 ;;; Copyright © 2019 Ingo Ruhnke <grumbel@gmail.com>
 ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
+;;; Copyright © 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -213,6 +214,19 @@  to share commonly used Xfce widgets among the Xfce applications.")
                (base32
                 "1dp5s64g6572h9zvx9js7qc72s728qsd9y7hl7hg6rwaq0cjb2gc"))))
     (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         ;; exo won't find URI::Escape otherwise
+         (add-after 'install 'wrap-exo-compose-mail
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (perl5lib (getenv "PERL5LIB")))
+               (wrap-program (string-append out "/lib/xfce4/exo/exo-compose-mail")
+                 `("PERL5LIB" ":" prefix
+                   (,(string-append perl5lib ":" out
+                                    "/lib/perl5/site_perl")))))
+             #t)))))
     (native-inputs
      `(("pkg-config" ,pkg-config)
        ("intltool" ,intltool)))