diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2022-06-08 22:37:25 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2022-06-09 10:02:37 -0400 |
| commit | 70e30ff40b7e824d120dd4030ca42f0f0c6e95e9 (patch) | |
| tree | 5053dce797ab87a6536155bd4413ec788cf6ef96 | |
| parent | 4856759ad405820377e3115023d1a56620d7eabb (diff) | |
| download | guix-70e30ff40b7e824d120dd4030ca42f0f0c6e95e9.tar.gz | |
gnu: emacs-geiser-racket: Update to 1.0 and patch racket's path.
* gnu/packages/emacs-xyz.scm (emacs-geiser-racket): Update to 1.0.
[phases]{patch-geiser-racket-binary}: New phase.
[home-page]: Update URL.
| -rw-r--r-- | gnu/packages/emacs-xyz.scm | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index f9b512fbe1..ae66755e3e 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -385,7 +385,7 @@ a generic Scheme interaction mode for the GNU Emacs editor.") (define-public emacs-geiser-racket (package (name "emacs-geiser-racket") - (version "0.16") + (version "1.0") (source (origin (method git-fetch) @@ -394,13 +394,19 @@ a generic Scheme interaction mode for the GNU Emacs editor.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "1aqsvmk1hi7kc3j4h8xlza7c6rwm71v98fv5wpw8kmyj9vsp49wx")))) + (base32 "04gwd9qa0785zfr6m9a5443ilgvyz05l06cb1waicf83sgp8xl32")))) (build-system emacs-build-system) (arguments (list #:include #~(cons "^src/" %default-include) #: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 (lambda _ (substitute* (string-append (elpa-directory #$output) @@ -410,14 +416,12 @@ a generic Scheme interaction mode for the GNU Emacs editor.") (("\\(geiser-activate-implementation .*\\)" all) (string-append "(eval-after-load 'geiser-impl '" all ")")) - (("\\(geiser-implementation-extension .*\\)" all) + (("\\(geiser-implementation-extension .*\\)" all) (string-append "(eval-after-load 'geiser-impl '" all ")")))))))) - (inputs - (list racket)) - (propagated-inputs - (list emacs-geiser)) - (home-page "https://nongnu.org/geiser/") + (inputs (list racket)) + (propagated-inputs (list emacs-geiser)) + (home-page "https://www.nongnu.org/geiser/") (synopsis "Racket support for Geiser") (description "This package adds support for the Racket implementation to Geiser, |