diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-02-18 21:08:40 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-02-18 21:08:40 +0100 |
| commit | 45860c933e4a706636302d473169295c3958b93e (patch) | |
| tree | 7665677e3a85b44b42e441c3a7b5b84433f5ad66 | |
| parent | c724c8448e5b1c47f3eb651078c7758a5c8a07e8 (diff) | |
| download | guix-patches-45860c933e4a706636302d473169295c3958b93e.tar guix-patches-45860c933e4a706636302d473169295c3958b93e.tar.gz | |
gnu: emacs-geiser-racket: Improve package style.
* gnu/packages/emacs-xyz.scm (emacs-geiser-racket)[arguments]: Use
G-expressions. Remove trailing #T.
| -rw-r--r-- | gnu/packages/emacs-xyz.scm | 33 |
1 files changed, 16 insertions, 17 deletions
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index 2d3d5e88b9..e76850a989 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -390,23 +390,22 @@ a generic Scheme interaction mode for the GNU Emacs editor.") (base32 "1aqsvmk1hi7kc3j4h8xlza7c6rwm71v98fv5wpw8kmyj9vsp49wx")))) (build-system emacs-build-system) (arguments - '(#:include (cons "^src/" %default-include) - #:phases - (modify-phases %standard-phases - (add-after 'make-autoloads 'patch-autoloads - (lambda* (#:key outputs #:allow-other-keys) - (substitute* (string-append - (elpa-directory (assoc-ref outputs "out")) - "/geiser-racket-autoloads.el") - ;; Activating implementations fails when Geiser is not yet - ;; loaded, so let's defer that until it is. - (("\\(geiser-activate-implementation .*\\)" all) - (string-append - "(eval-after-load 'geiser-impl '" all ")")) - (("\\(geiser-implementation-extension .*\\)" all) - (string-append - "(eval-after-load 'geiser-impl '" all ")"))) - #t))))) + (list + #:include #~(cons "^src/" %default-include) + #:phases + #~(modify-phases %standard-phases + (add-after 'make-autoloads 'patch-autoloads + (lambda _ + (substitute* (string-append (elpa-directory #$output) + "/geiser-racket-autoloads.el") + ;; Activating implementations fails when Geiser is not yet + ;; loaded, so let's defer that until it is. + (("\\(geiser-activate-implementation .*\\)" all) + (string-append + "(eval-after-load 'geiser-impl '" all ")")) + (("\\(geiser-implementation-extension .*\\)" all) + (string-append + "(eval-after-load 'geiser-impl '" all ")")))))))) (inputs (list racket)) (propagated-inputs |