~ruther/guix-local: gnu: emacs-geiser: Improve style.

776fe6721461444c6c63cdfcdcb4bb5ebbf130ab — Cayetano Santos 1 year, 1 month ago 7c986f2

gnu: emacs-geiser: Improve style.

* gnu/packages/emacs-xyz.scm (emacs-geiser): Improve style.
<#:phases>{lisp-directory}: Set it.
{move-source-files}: Remove.
{make-info}: Simplify.

Change-Id: Ic96dd033670e6dd4190ea39014d7810d51d6b619
Signed-off-by: Ian Eure <ian@retrospec.tv>

patch browse .tar.gz .zip

1 files changed, 5 insertions(+), 13 deletions(-)

M gnu/packages/emacs-xyz.scm

M gnu/packages/emacs-xyz.scm => gnu/packages/emacs-xyz.scm +5 -13

@@ 622,21 622,13 @@ input via a small child-frame spawned at the position of the cursor.")
         (base32 "194k1bj4ncl9w68s0dkm9ya853hxbm9lxwsckqsmaj57jz7hw46f"))))
     (build-system emacs-build-system)
     (arguments
-     '(#:phases
+     '(#:lisp-directory "elisp"
+       #:phases
        (modify-phases %standard-phases
-         ;; Move the source files to the top level, which is included in
-         ;; the EMACSLOADPATH.
-         (add-after 'unpack 'move-source-files
+         (add-after 'unpack 'make-info
            (lambda _
-             (let ((el-files (find-files "./elisp" ".*\\.el$")))
-               (for-each (lambda (f)
-                           (rename-file f (basename f)))
-                         el-files))))
-         (add-before 'install 'make-info
-           (lambda _
-             (with-directory-excursion "doc"
-               (invoke "makeinfo" "--no-split"
-                       "-o" "geiser.info" "geiser.texi")))))))
+             (invoke "makeinfo" "--no-split"
+                     "-o" "geiser.info" "../doc/geiser.texi"))))))
     (native-inputs
      (list texinfo))
     (home-page "https://www.nongnu.org/geiser/")