gnu: sbcl-slynk: Update to 1.0.42.

* gnu/packages/lisp-xyz.scm (sbcl-slynk): Update to 1.0.42.
This commit is contained in:
Pierre Neidhardt 2020-12-30 21:04:13 +01:00
parent 2223333943
commit 253cd05005
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F

View file

@ -782,82 +782,79 @@ (define-public ecl-clx-truetype
(sbcl-package->ecl-package sbcl-clx-truetype)) (sbcl-package->ecl-package sbcl-clx-truetype))
(define-public sbcl-slynk (define-public sbcl-slynk
(let ((revision "4") (package
;; Update together with emacs-sly. (name "sbcl-slynk")
(commit "68561f1b7b66fa0240766ece836bb04da31ea17d")) (version "1.0.42")
(package (source
(name "sbcl-slynk") (origin
(version (git-version "1.0.0-beta" revision commit)) (method git-fetch)
(source (uri
(origin (git-reference
(method git-fetch) (url "https://github.com/joaotavora/sly")
(uri (commit version)))
(git-reference (sha256
(url "https://github.com/joaotavora/sly") (base32 "10l867c4hgcpiajcfkz9g9vabp7y4bcgy51la6n9pqxrlg1fs455"))
(commit commit))) (file-name (git-file-name "slynk" version))
(sha256 (modules '((guix build utils)
(base32 "1xwx537dhgclngi6b0faf320i8pnac9309wvmk6z2g6dm3v652ds")) (ice-9 ftw)))
(file-name (git-file-name "slynk" version)) (snippet
(modules '((guix build utils) '(begin
(ice-9 ftw))) ;; Move the contribs into the main source directory for easier
(snippet ;; access
'(begin (substitute* "slynk/slynk.asd"
;; Move the contribs into the main source directory for easier (("\\.\\./contrib")
;; access "contrib"))
(substitute* "slynk/slynk.asd" (rename-file "contrib" "slynk/contrib")
(("\\.\\./contrib") ;; Move slynk's contents into the base directory for easier
"contrib")) ;; access
(rename-file "contrib" "slynk/contrib") (for-each (lambda (file)
;; Move slynk's contents into the base directory for easier (unless (string-prefix? "." file)
;; access (rename-file (string-append "slynk/" file)
(for-each (lambda (file) (string-append "./" (basename file)))))
(unless (string-prefix? "." file) (scandir "slynk"))
(rename-file (string-append "slynk/" file) #t))))
(string-append "./" (basename file))))) (build-system asdf-build-system/sbcl)
(scandir "slynk")) (outputs '("out" "image"))
#t)))) (arguments
(build-system asdf-build-system/sbcl) `(#:tests? #f ; No test suite
(outputs '("out" "image")) #:asd-systems '("slynk"
(arguments "slynk/arglists"
`(#:tests? #f ; No test suite "slynk/fancy-inspector"
#:asd-systems '("slynk" "slynk/package-fu"
"slynk/arglists" "slynk/mrepl"
"slynk/fancy-inspector" "slynk/trace-dialog"
"slynk/package-fu" "slynk/profiler"
"slynk/mrepl" "slynk/stickers"
"slynk/trace-dialog" "slynk/indentation"
"slynk/profiler" "slynk/retro")
"slynk/stickers" #:phases
"slynk/indentation" (modify-phases %standard-phases
"slynk/retro") (add-after 'create-asdf-configuration 'build-image
#:phases (lambda* (#:key outputs #:allow-other-keys)
(modify-phases %standard-phases (build-image (string-append
(add-after 'create-asdf-configuration 'build-image (assoc-ref %outputs "image")
(lambda* (#:key outputs #:allow-other-keys) "/bin/slynk")
(build-image (string-append %outputs
(assoc-ref %outputs "image") #:dependencies '("slynk"
"/bin/slynk") "slynk/arglists"
%outputs "slynk/fancy-inspector"
#:dependencies '("slynk" "slynk/package-fu"
"slynk/arglists" "slynk/mrepl"
"slynk/fancy-inspector" "slynk/trace-dialog"
"slynk/package-fu" "slynk/profiler"
"slynk/mrepl" "slynk/stickers"
"slynk/trace-dialog" "slynk/indentation"
"slynk/profiler" "slynk/retro"))
"slynk/stickers" #t)))))
"slynk/indentation" (synopsis "Common Lisp IDE for Emacs")
"slynk/retro")) (description "SLY is a fork of SLIME, an IDE backend for Common Lisp.
#t)))))
(synopsis "Common Lisp IDE for Emacs")
(description "SLY is a fork of SLIME, an IDE backend for Common Lisp.
It also features a completely redesigned REPL based on Emacs's own It also features a completely redesigned REPL based on Emacs's own
full-featured @code{comint-mode}, live code annotations, and a consistent interactive full-featured @code{comint-mode}, live code annotations, and a consistent interactive
button interface. Everything can be copied to the REPL. One can create button interface. Everything can be copied to the REPL. One can create
multiple inspectors with independent history.") multiple inspectors with independent history.")
(home-page "https://github.com/joaotavora/sly") (home-page "https://github.com/joaotavora/sly")
(license license:public-domain) (license license:public-domain)
(properties `((cl-source-variant . ,(delay cl-slynk))))))) (properties `((cl-source-variant . ,(delay cl-slynk))))))
(define-public cl-slynk (define-public cl-slynk
(sbcl-package->cl-source-package sbcl-slynk)) (sbcl-package->cl-source-package sbcl-slynk))