ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 21:59:08 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-geiser-racket: Improve package style.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-geiser-racket)[arguments]: Use
G-expressions.  Remove trailing #T.
This commit is contained in:
Nicolas Goaziou 2022-02-18 21:08:40 +01:00
parent c724c8448e
commit 45860c933e
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 16 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -390,13 +390,13 @@ (define-public emacs-geiser-racket
(base32 "1aqsvmk1hi7kc3j4h8xlza7c6rwm71v98fv5wpw8kmyj9vsp49wx")))) (base32 "1aqsvmk1hi7kc3j4h8xlza7c6rwm71v98fv5wpw8kmyj9vsp49wx"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
'(#:include (cons "^src/" %default-include) (list
#:include #~(cons "^src/" %default-include)
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'make-autoloads 'patch-autoloads (add-after 'make-autoloads 'patch-autoloads
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(substitute* (string-append (substitute* (string-append (elpa-directory #$output)
(elpa-directory (assoc-ref outputs "out"))
"/geiser-racket-autoloads.el") "/geiser-racket-autoloads.el")
;; Activating implementations fails when Geiser is not yet ;; Activating implementations fails when Geiser is not yet
;; loaded, so let's defer that until it is. ;; loaded, so let's defer that until it is.
@ -405,8 +405,7 @@ (define-public emacs-geiser-racket
"(eval-after-load 'geiser-impl '" all ")")) "(eval-after-load 'geiser-impl '" all ")"))
(("\\(geiser-implementation-extension .*\\)" all) (("\\(geiser-implementation-extension .*\\)" all)
(string-append (string-append
"(eval-after-load 'geiser-impl '" all ")"))) "(eval-after-load 'geiser-impl '" all ")"))))))))
#t)))))
(inputs (inputs
(list racket)) (list racket))
(propagated-inputs (propagated-inputs