branch master updated: gnu: mcomix: Install messages.

[guix-commits]

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

lilyp pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 2344fb1097 gnu: mcomix: Install messages.
2344fb1097 is described below

commit 2344fb10972a4cefead8e7aa3e0b807da4cf4570
Author: Liliana Marie Prikler <liliana.prikler@gmail.com>
AuthorDate: Sun Mar 27 09:49:02 2022 +0200

    gnu: mcomix: Install messages.
    
    * gnu/packages/image-viewer.scm (mcomix)[install-data]: Also install 
messages
    subdirectory.
---
 gnu/packages/image-viewers.scm | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/image-viewers.scm b/gnu/packages/image-viewers.scm
index 09c448e8f5..7e3154be91 100644
--- a/gnu/packages/image-viewers.scm
+++ b/gnu/packages/image-viewers.scm
@@ -697,13 +697,18 @@ imaging.  It supports several HDR and LDR image formats, 
and it can:
                  "if name in supported_formats_gdk: continue"))))
          (add-after 'install 'install-data
            (lambda* (#:key outputs #:allow-other-keys)
-             (copy-recursively
-              "mcomix/images"
-              (string-append (assoc-ref outputs "out")
-                             "/lib/python"
-                             #$(version-major+minor
-                                (package-version (this-package-input 
"python")))
-                             "/site-packages/mcomix/images"))))
+             (with-directory-excursion "mcomix"
+               (for-each
+                (lambda (subdir)
+                  (copy-recursively
+                   subdir
+                   (string-append
+                    (assoc-ref outputs "out")
+                    "/lib/python"
+                    #$(version-major+minor
+                       (package-version (this-package-input "python")))
+                    "/site-packages/mcomix/" subdir)))
+                '("images" "messages")))))
          (add-after 'glib-or-gtk-compile-schemas 'glib-or-gtk-wrap
            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))
          (add-after 'wrap 'gi-wrap