ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-17 12:17:10 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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")))) (base32 "0fk5rr7mjmb4waiagi80dhddas5mrsgqr0flag5v5b0piblixxq6"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
'(#:include (cons "^src/" %default-include) (list
#:phases #:include #~(cons "^src/" %default-include)
(modify-phases %standard-phases #:phases
(add-after 'make-autoloads 'patch-autoloads #~(modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (add-after 'make-autoloads 'patch-autoloads
(substitute* (string-append (lambda _
(elpa-directory (assoc-ref outputs "out")) (substitute* (string-append (elpa-directory #$output)
"/geiser-guile-autoloads.el") "/geiser-guile-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.
(("\\(geiser-activate-implementation .*\\)" all) (("\\(geiser-activate-implementation .*\\)" all)
(string-append (string-append
"(eval-after-load 'geiser-impl '" all ")")))))))) "(eval-after-load 'geiser-impl '" all ")"))))))))
(inputs (inputs
(list guile-3.0)) (list guile-3.0))
(propagated-inputs (propagated-inputs