From 587d10be06eb344a0d50c4edfacdb84358cf33c5 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 18 Feb 2022 21:32:26 +0100 Subject: gnu: emacs-realgud: Improve package style. * gnu/packages/emacs-xyz.scm (emacs-realgud)[arguments]: Use G-expressions. Remove trailing #T. --- gnu/packages/emacs-xyz.scm | 63 ++++++++++++++++++++++------------------------ 1 file changed, 30 insertions(+), 33 deletions(-) diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index fde0c8ce0f..ce01f65bfd 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -9027,39 +9027,36 @@ after buffer changes.") (file-name (git-file-name name version)))) (build-system emacs-build-system) (arguments - `(#:tests? #t - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'fix-realgud:run-process-void-error - ;; See: https://github.com/realgud/realgud/issues/269. - (lambda _ - (substitute* '("realgud/debugger/gdb/gdb.el" - "realgud/debugger/gub/gub.el") - (("^\\(require 'load-relative\\).*" anchor) - (string-append anchor - "(require-relative-list \ -'(\"../../common/run\") \"realgud:\")\n"))) - #t)) - (add-after 'expand-load-path 'fix-autogen-script - (lambda _ - (substitute* "autogen.sh" - (("./configure") "sh configure")) - #t)) - (add-after 'fix-autogen-script 'autogen - (lambda _ - (setenv "CONFIG_SHELL" "sh") - (invoke "sh" "autogen.sh"))) - (add-after 'fix-autogen-script 'set-home - (lambda _ - (setenv "HOME" (getenv "TMPDIR")) - #t)) - (add-before 'patch-el-files 'remove-realgud-pkg.el - (lambda _ - ;; FIXME: `patch-el-files' crashes on this file with error: - ;; unable to locate "bashdb". - (delete-file "./test/test-regexp-bashdb.el") - #t))) - #:include (cons* ".*\\.el$" %default-include))) + (list + #:tests? #t + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'fix-realgud:run-process-void-error + ;; See: https://github.com/realgud/realgud/issues/269. + (lambda _ + (substitute* '("realgud/debugger/gdb/gdb.el" + "realgud/debugger/gub/gub.el") + (("^\\(require 'load-relative\\).*" anchor) + (string-append anchor + "(require-relative-list \ +'(\"../../common/run\") \"realgud:\")\n"))))) + (add-after 'expand-load-path 'fix-autogen-script + (lambda _ + (substitute* "autogen.sh" + (("./configure") "sh configure")))) + (add-after 'fix-autogen-script 'autogen + (lambda _ + (setenv "CONFIG_SHELL" "sh") + (invoke "sh" "autogen.sh"))) + (add-after 'fix-autogen-script 'set-home + (lambda _ + (setenv "HOME" (getenv "TMPDIR")))) + (add-before 'patch-el-files 'remove-realgud-pkg.el + (lambda _ + ;; FIXME: `patch-el-files' crashes on this file with error: + ;; unable to locate "bashdb". + (delete-file "./test/test-regexp-bashdb.el")))) + #:include #~(cons* ".*\\.el$" %default-include))) (native-inputs (list autoconf automake emacs-test-simple)) (propagated-inputs -- cgit v1.2.3