amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-geiser-racket: Update to 1.0 and patch racket's path.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-geiser-racket): Update to 1.0.
[phases]{patch-geiser-racket-binary}: New phase.
[home-page]: Update URL.
This commit is contained in:
Maxim Cournoyer 2022-06-08 22:37:25 -04:00
parent 4856759ad4
commit 70e30ff40b
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 12 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -385,7 +385,7 @@ a generic Scheme interaction mode for the GNU Emacs editor.")
(define-public emacs-geiser-racket (define-public emacs-geiser-racket
(package (package
(name "emacs-geiser-racket") (name "emacs-geiser-racket")
(version "0.16") (version "1.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -394,13 +394,19 @@ a generic Scheme interaction mode for the GNU Emacs editor.")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1aqsvmk1hi7kc3j4h8xlza7c6rwm71v98fv5wpw8kmyj9vsp49wx")))) (base32 "04gwd9qa0785zfr6m9a5443ilgvyz05l06cb1waicf83sgp8xl32"))))
(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-racket-binary
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "geiser-racket.el"
(("\\(t \"racket\")")
(format #f "(t ~s)"
(search-input-file inputs "bin/racket"))))))
(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)
@ -413,11 +419,9 @@ a generic Scheme interaction mode for the GNU Emacs editor.")
(("\\(geiser-implementation-extension .*\\)" all) (("\\(geiser-implementation-extension .*\\)" all)
(string-append (string-append
"(eval-after-load 'geiser-impl '" all ")")))))))) "(eval-after-load 'geiser-impl '" all ")"))))))))
(inputs (inputs (list racket))
(list racket)) (propagated-inputs (list emacs-geiser))
(propagated-inputs (home-page "https://www.nongnu.org/geiser/")
(list emacs-geiser))
(home-page "https://nongnu.org/geiser/")
(synopsis "Racket support for Geiser") (synopsis "Racket support for Geiser")
(description (description
"This package adds support for the Racket implementation to Geiser, "This package adds support for the Racket implementation to Geiser,