me
/
guix
Archived
1
0
Fork 0
Code

gnu: emacs-geiser-guile: Update to 0.23.2 and patch guile's path. 

* gnu/packages/emacs-xyz.scm (emacs-geiser-guile): Update to 0.23.2.
[phases]{patch-geiser-guile-binary}: New phase.
[home-page]: Update URL.
Maxim Cournoyer 2022-06-08 22:40:05 -04:00
parent 911da82eda
commit ad493a6fba
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gnu/packages/emacs-xyz.scm
View File

@ -296,7 +296,7 @@ e.g. emacs-geiser-guile for Guile.")
(define-public emacs-geiser-guile (define-public emacs-geiser-guile
(package (package
(name "emacs-geiser-guile") (name "emacs-geiser-guile")
(version "0.23") (version "0.23.2")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -305,13 +305,19 @@ e.g. emacs-geiser-guile for Guile.")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1v9f90smnk41nz1pjy5mwz199y8p4qar3llgaryzxr7s4wg2v9wi")))) (base32 "18m5ldj4r4c2hxgvv5b4azl90r8az1kn5f3s913h971asyv4wx06"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
(list (list
#:include #~(cons "^src/" %default-include) #:include #~(cons "^src/" %default-include)
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-geiser-guile-binary
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "geiser-guile.el"
(("\\(t \"guile\")")
(format #f "(t ~s)"
(search-input-file inputs "bin/guile"))))))
(add-after 'make-autoloads 'patch-autoloads (add-after 'make-autoloads 'patch-autoloads
(lambda _ (lambda _
(substitute* (string-append (elpa-directory #$output) (substitute* (string-append (elpa-directory #$output)
@ -321,11 +327,9 @@ e.g. emacs-geiser-guile for Guile.")
(("\\(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 (list emacs-geiser))
(propagated-inputs (home-page "https://www.nongnu.org/geiser/")
(list emacs-geiser))
(home-page "https://nongnu.org/geiser/")
(synopsis "Guile Scheme support for Geiser") (synopsis "Guile Scheme support for Geiser")
(description (description
"This package adds support for the Guile Scheme implementation to Geiser, "This package adds support for the Guile Scheme implementation to Geiser,