GNU bug report logs - #68839
[PATCH] gnu: Include company icons and documentation images

Previous Next

Full log

View this message in rfc822 format

From: Tom Willemse <tom <at> ryuslash.org>
To: 68839 <at> debbugs.gnu.org
Cc: Tom Willemse <tom <at> ryuslash.org>, Andrew Tropin <andrew <at> trop.in>, Katherine Cox-Buday <cox.katherine.e+guix <at> gmail.com>, Liliana Marie Prikler <liliana.prikler <at> gmail.com>
Subject: [bug#68839] [PATCH] gnu: Include company icons and documentation images
Date: Tue, 30 Jan 2024 22:28:32 -0800

* gnu/packages/emacs-xyz.scm (emacs-company): Include icons and documentation
images.

Change-Id: I8b7515141fa71fcb4b199bfaa268ddd4ab117743
---
 gnu/packages/emacs-xyz.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 4514bd1b25..61174f03ac 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -9261,6 +9261,18 @@ (define-public emacs-company
        (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

base-commit: c4687f5437ad89a7e87deed1933b60f6eac83176
-- 
2.43.0

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.