From 776fe6721461444c6c63cdfcdcb4bb5ebbf130ab Mon Sep 17 00:00:00 2001 From: Cayetano Santos Date: Fri, 4 Jul 2025 16:00:43 +0200 Subject: [PATCH] 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 --- gnu/packages/emacs-xyz.scm | 18 +++++------------- 1 file changed, 5 insertions(+), 13 deletions(-) diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index e02255f85b..f8db2b836d 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -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/")