branch master updated: gnu: xfe: Update to 1.44 and adjust potfiles.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

raghavgururajan pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 7c5ff13  gnu: xfe: Update to 1.44 and adjust potfiles.
7c5ff13 is described below

commit 7c5ff1316f295b53413ab582ecfdd186e2879f02
Author: Raghav Gururajan <rg@raghavgururajan.name>
AuthorDate: Thu May 13 22:35:31 2021 -0400

    gnu: xfe: Update to 1.44 and adjust potfiles.
    
    * gnu/packages/disk.scm (xfe)[version]: Update to 1.44.
    [phases](patch-potfiles): New phase.
---
 gnu/packages/disk.scm | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm
index 66d5022..040aa38 100644
--- a/gnu/packages/disk.scm
+++ b/gnu/packages/disk.scm
@@ -1068,19 +1068,27 @@ since they are better handled by external tools.")
 (define-public xfe
   (package
     (name "xfe")
-    (version "1.43.2")
+    (version "1.44")
     (source
      (origin
        (method url-fetch)
        (uri
         (string-append "mirror://sourceforge/xfe/xfe/" version "/"
-                       "xfe-" version ".tar.gz"))
+                       "xfe-" version ".tar.xz"))
        (sha256
-        (base32 "1fl51k5jm2vrfc2g66agbikzirmp0yb0lqhmsssixfb4mky3hpzs"))))
+        (base32 "1dihq03jqjllb69r78d9ihjjadi39v7sgzdf68qpxz5xhp8i8k2r"))))
     (build-system gnu-build-system)
     (arguments
      `(#:phases
        (modify-phases %standard-phases
+         (add-after 'unpack 'patch-potfiles
+           (lambda _
+             ;; To add missing entry 'intl/plural.c' to potfiles list.
+             ;; Refer to https://sourceforge.net/p/xfe/bugs/257/
+             (substitute* "po/POTFILES.in"
+               (("src/help.h")
+                (string-append "src/help.h\n"
+                               "intl/plural.c")))))
          (add-after 'unpack 'patch-bin-dirs
            (lambda* (#:key inputs #:allow-other-keys)
              (let* ((bash (assoc-ref inputs "bash"))