[bug#28381] [PATCH] gnu: emacs-skewer-mode: Install html and js files.

[Alex Kost <alezost@gmail.com>]

Oleg Pykhalov (2017-09-07 15:06 +0300) wrote:

>>From 1cc40f4a0088cbed1ae9f6ca0efdf89a52bf01a5 Mon Sep 17 00:00:00 2001
> From: Oleg Pykhalov <go.wigust@gmail.com>
> Date: Thu, 7 Sep 2017 15:03:31 +0300
> Subject: [PATCH] gnu: emacs-skewer-mode: Install html and js files.
>
> * gnu/packages/emacs.scm (emacs-skewer-mode): Install html and js files.
> ---
>  gnu/packages/emacs.scm | 15 +++++++++++++++
>  1 file changed, 15 insertions(+)
>
> diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
> index 9c0f9bc89..a7ec0b146 100644
> --- a/gnu/packages/emacs.scm
> +++ b/gnu/packages/emacs.scm
> @@ -1967,6 +1967,21 @@ serve files and directory listings.")
>      (propagated-inputs
>       `(("emacs-simple-httpd" ,emacs-simple-httpd)
>         ("emacs-js2-mode" ,emacs-js2-mode)))
> +    (arguments
> +     `(#:phases
> +       (modify-phases %standard-phases
> +         (add-after 'install 'install-html-js
> +           (lambda* (#:key outputs #:allow-other-keys)
> +             (let ((skewer-mode (string-append (assoc-ref outputs "out")
> +                                               "/share/emacs/site-lisp/guix.d"
> +                                               "/skewer-mode-"
> +                                               ,version)))
> +               (for-each (lambda (file)
> +                           (install-file file skewer-mode))
> +                         '("example.html"
> +                           "skewer-everything.user.js"
> +                           "skewer.js")))
> +             #t)))))

I think it would be easier to use '#:include' instead of this phase,
like this:

    (arguments '(#:include '("\\.el$" "\\.js$" "\\.html$")))

What do you think?  If it is OK for you, could you please send an
updated patch?

-- 
Alex