amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-realgud: Improve package style.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-realgud)[arguments]: Use
G-expressions.  Remove trailing #T.
This commit is contained in:
Nicolas Goaziou 2022-02-18 21:32:26 +01:00
parent b618569d6a
commit 587d10be06
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 30 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

63
gnu/packages/emacs-xyz.scm
View file

@ -9027,39 +9027,36 @@ after buffer changes.")
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
`(#:tests? #t (list
#:phases #:tests? #t
(modify-phases %standard-phases #:phases
(add-after 'unpack 'fix-realgud:run-process-void-error #~(modify-phases %standard-phases
;; See: https://github.com/realgud/realgud/issues/269. (add-after 'unpack 'fix-realgud:run-process-void-error
(lambda _ ;; See: https://github.com/realgud/realgud/issues/269.
(substitute* '("realgud/debugger/gdb/gdb.el" (lambda _
"realgud/debugger/gub/gub.el") (substitute* '("realgud/debugger/gdb/gdb.el"
(("^\\(require 'load-relative\\).*" anchor) "realgud/debugger/gub/gub.el")
(string-append anchor (("^\\(require 'load-relative\\).*" anchor)
"(require-relative-list \ (string-append anchor
'(\"../../common/run\") \"realgud:\")\n"))) "(require-relative-list \
#t)) '(\"../../common/run\") \"realgud:\")\n")))))
(add-after 'expand-load-path 'fix-autogen-script (add-after 'expand-load-path 'fix-autogen-script
(lambda _ (lambda _
(substitute* "autogen.sh" (substitute* "autogen.sh"
(("./configure") "sh configure")) (("./configure") "sh configure"))))
#t)) (add-after 'fix-autogen-script 'autogen
(add-after 'fix-autogen-script 'autogen (lambda _
(lambda _ (setenv "CONFIG_SHELL" "sh")
(setenv "CONFIG_SHELL" "sh") (invoke "sh" "autogen.sh")))
(invoke "sh" "autogen.sh"))) (add-after 'fix-autogen-script 'set-home
(add-after 'fix-autogen-script 'set-home (lambda _
(lambda _ (setenv "HOME" (getenv "TMPDIR"))))
(setenv "HOME" (getenv "TMPDIR")) (add-before 'patch-el-files 'remove-realgud-pkg.el
#t)) (lambda _
(add-before 'patch-el-files 'remove-realgud-pkg.el ;; FIXME: `patch-el-files' crashes on this file with error:
(lambda _ ;; unable to locate "bashdb".
;; FIXME: `patch-el-files' crashes on this file with error: (delete-file "./test/test-regexp-bashdb.el"))))
;; unable to locate "bashdb". #:include #~(cons* ".*\\.el$" %default-include)))
(delete-file "./test/test-regexp-bashdb.el")
#t)))
#:include (cons* ".*\\.el$" %default-include)))
(native-inputs (native-inputs
(list autoconf automake emacs-test-simple)) (list autoconf automake emacs-test-simple))
(propagated-inputs (propagated-inputs