TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: emacs-geiser-guile: Use G-expressions.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-geiser-guile)[arguments]<#:include,
This commit is contained in:
Nicolas Goaziou 2022-01-17 10:47:15 +01:00
parent 87ad668a51
commit 0dbfc16ee2
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -299,19 +299,19 @@ (define-public emacs-geiser-guile
(base32 "0fk5rr7mjmb4waiagi80dhddas5mrsgqr0flag5v5b0piblixxq6"))))
(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-guile-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 ")"))))))))
(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-guile-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 ")"))))))))
(inputs
(list guile-3.0))
(propagated-inputs