From 2344fb10972a4cefead8e7aa3e0b807da4cf4570 Mon Sep 17 00:00:00 2001
From: Liliana Marie Prikler <liliana.prikler@gmail.com>
Date: Sun, 27 Mar 2022 09:49:02 +0200
Subject: 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(-)

(limited to 'gnu/packages')

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
-- 
cgit 1.4.1