diff mbox series

[bug#68839] gnu: Include company icons and documentation images

Message ID 61f61e5ddfa4e623eda547ea9545ca4cae3350dd.1706682512.git.tom@ryuslash.org
State New
Headers
Series [bug#68839] gnu: Include company icons and documentation images |

Commit Message

Tom Willemse Jan. 31, 2024, 6:28 a.m. UTC 
* 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(+)


base-commit: c4687f5437ad89a7e87deed1933b60f6eac83176

Comments

Andrew Tropin Feb. 19, 2024, 2:18 p.m. UTC | #1 
On 2024-01-30 22:28, Tom Willemse wrote:

> * 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

LGTM, thank you for the patch, slightly adjusted the code to fit 80
column, added a trailing dot to commit message, pushed as
https://git.savannah.gnu.org/cgit/guix.git/commit/?id=55c94d68df
diff mbox series

Patch

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