01/02: gnu: emacs-company: Include company icons and documentation images.

[guix-commits]

abcdw pushed a commit to branch master
in repository guix.

commit 55c94d68df7b020cec961cefd4f53a134270f321
Author: Tom Willemse <tom@ryuslash.org>
AuthorDate: Tue Jan 30 22:28:32 2024 -0800

    gnu: emacs-company: Include company icons and documentation images.
    
    * gnu/packages/emacs-xyz.scm (emacs-company): Include icons and 
documentation
    images.
    
    Change-Id: I8b7515141fa71fcb4b199bfaa268ddd4ab117743
    Signed-off-by: Andrew Tropin <andrew@trop.in>
---
 gnu/packages/emacs-xyz.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 472d5cc812..99b44d0459 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -9261,6 +9261,20 @@ commands and user options are usually not implemented 
here.")
        (sha256
         (base32 "0j2qrnx2w2al4f2n37b89q0pkabh5ccv00gsknvgaylhy0za5gq9"))))
     (build-system emacs-build-system)
+    (arguments
+     (list
+      #:include #~(cons* "icons/" %default-include)
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'move-doc 'install-doc-images
+            (lambda* (#:key outputs #:allow-other-keys)
+              (let ((images (find-files "./images/small/" ".*\\.png$")))
+                (for-each
+                 (lambda (image)
+                   (install-file
+                    image
+                    (string-append #$output "/share/info/images/small")))
+                 images)))))))
     (home-page "https://company-mode.github.io/";)
     (synopsis "Modular text completion framework")
     (description