From 253cd0500508d859584f2fd724b69f48ebc8049f Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Wed, 30 Dec 2020 21:04:13 +0100
Subject: gnu: sbcl-slynk: Update to 1.0.42.

* gnu/packages/lisp-xyz.scm (sbcl-slynk): Update to 1.0.42.
---
 gnu/packages/lisp-xyz.scm | 141 +++++++++++++++++++++++-----------------------
 1 file changed, 69 insertions(+), 72 deletions(-)

(limited to 'gnu')

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