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-nodejs-repl: Improve package style.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-nodejs-repl)[arguments]: Use
G-expressions.  Use SEARCH-INPUT-FILES.  Remove trailing #T.  Remove
unnecessary call to MAKE-FILE-WRITABLE.

Change-Id: I9da1e24566359970cbf24129acb67f9f0610fb80
This commit is contained in:
Nicolas Goaziou 2024-02-22 14:48:50 +01:00
parent 5ea5124cb5
commit eefd12d404
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 20 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -14146,29 +14146,26 @@ an Emacs buffer.")
(native-inputs (native-inputs
(list emacs-ert-expectations)) (list emacs-ert-expectations))
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
(add-after 'unpack 'set-shell #~(modify-phases %standard-phases
;; Setting the SHELL environment variable is required for the tests (add-after 'unpack 'set-shell
;; to find sh. ;; Setting the SHELL environment variable is required for the tests
(lambda _ ;; to find sh.
(setenv "SHELL" (which "sh")) (lambda _
#t)) (setenv "SHELL" (which "sh"))))
(add-after 'unpack 'configure (add-after 'unpack 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((node (assoc-ref inputs "node"))) (let ((node (search-input-file inputs "/bin/node")))
;; Specify the absolute file names of the various ;; Specify the absolute file names of the various
;; programs so that everything works out-of-the-box. ;; programs so that everything works out-of-the-box.
(make-file-writable "nodejs-repl.el") (emacs-substitute-variables "nodejs-repl.el"
(emacs-substitute-variables ("nodejs-repl-command" node))))))
"nodejs-repl.el" #:tests? #t
("nodejs-repl-command" #:test-command #~(list "emacs" "-Q" "--batch"
(string-append node "/bin/node"))))))) "-L" "."
#:tests? #t "-l" "test/test.el"
#:test-command '("emacs" "-Q" "--batch" "-f" "ert-run-tests-batch-and-exit")))
"-L" "."
"-l" "test/test.el"
"-f" "ert-run-tests-batch-and-exit")))
(home-page "https://github.com/abicky/nodejs-repl.el") (home-page "https://github.com/abicky/nodejs-repl.el")
(synopsis "Node.js REPL inside Emacs") (synopsis "Node.js REPL inside Emacs")
(description (description