Message ID | 61f61e5ddfa4e623eda547ea9545ca4cae3350dd.1706682512.git.tom@ryuslash.org |
---|---|
State | New |
Headers | show |
Series | [bug#68839] gnu: Include company icons and documentation images | expand |
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 --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