[PATCH 10/12] gnu: Add slynk.

[Andy Patterson]

* gnu/packages/lisp.scm (slynk, slynk-sbcl, slynk-ecl): New variables.
---
 gnu/packages/lisp.scm | 333 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 333 insertions(+)

diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index 1c78875..21ca073 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -918,3 +918,336 @@ Type=Application
               ("clx-ecl" ,clx-ecl)))
     (propagated-inputs '())
     (outputs '("out"))))
+
+(define-public slynk
+  (package
+    (name "slynk")
+    (version "1.0.0-beta")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://github.com/capitaomorte/sly/archive/";
+                           version ".tar.gz"))
+       (sha256
+        (base32 "0mc3w6afgx97y2bh3pjv29dndidm016adpd11zn86kp7zq6xf8sv"))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (modules '((guix build utils)))
+       (snippet
+        '(begin
+           ;; Move the contribs into the main source directory for easier
+           ;; access
+           (substitute* "slynk/slynk.asd"
+             (("\\.\\./contrib")
+              "contrib"))
+           (substitute* "contrib/slynk-trace-dialog.lisp"
+             (("\\(slynk::reset-inspector\\)") ; Causes problems on load
+              "nil"))
+           (mkdir-p "slynk/contrib")
+           (copy-recursively "contrib" "slynk/contrib")))))
+    (build-system asdf-build-system/source)
+    (synopsis "Common Lisp IDE for Emacs")
+    (description "SLY is a fork of SLIME.  It also featrues a completely
+redesigned REPL based on Emacs's own full-featured comint.el, 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/capitaomorte/sly";)
+    (license license:public-domain)
+    (arguments
+     '(#:phases
+       (modify-phases %standard-phases/source
+         (add-before 'install 'change-directory
+           (lambda _
+             (chdir "slynk")
+             #t)))))))
+
+(define slynk-sbcl-boot0
+  (package
+    (inherit slynk)
+    (name "slynk-sbcl")
+    (build-system asdf-build-system/sbcl)
+    (inputs `(("slynk" ,slynk)))
+    (arguments
+     '(#:tests? #f ; no test suite
+       #:phases
+       (modify-phases %standard-phases/sbcl
+         (delete 'cleanup))))))
+
+(define slynk-ecl-boot0
+  (package
+    (inherit slynk-sbcl-boot0)
+    (name "slynk-ecl")
+    (build-system asdf-build-system/ecl)
+    (arguments
+     (substitute-keyword-arguments (package-arguments slynk-sbcl-boot0)
+       ((#:phases _)
+        '(modify-phases %standard-phases/ecl
+           (delete 'cleanup)))))))
+
+(define slynk-arglists-sbcl
+  (package
+    (inherit slynk-sbcl-boot0)
+    (name "slynk-arglists-sbcl")
+    (inputs `(("slynk-sbcl" ,slynk-sbcl-boot0)
+              ,@(package-inputs slynk-sbcl-boot0)))
+    (arguments
+     (substitute-keyword-arguments
+         `(#:compile-dependencies '("slynk")
+           #:source-input "slynk"
+           ,@(package-arguments slynk-sbcl-boot0))
+       ((#:phases _)
+        '(modify-phases %standard-phases/sbcl
+           (add-before 'build 'copy-output
+             (lambda* (#:key outputs inputs lisp #:allow-other-keys)
+               (let ((out (assoc-ref outputs "out"))
+                     (slynk (assoc-ref inputs
+                                       (string-append "slynk-" lisp))))
+                 (copy-recursively slynk out)
+                 (for-each delete-file
+                           (find-files out "\\.asd$")))))
+           (add-after 'copy-output 'delete-bundle
+             (lambda* (#:key outputs lisp #:allow-other-keys)
+               (let ((out (assoc-ref outputs "out")))
+                 (delete-file
+                  (string-append out "/lib/" lisp 
"/slynk--system.fasl")))))))))))
+
+(define slynk-arglists-ecl
+  (package
+    (inherit slynk-arglists-sbcl)
+    (name "slynk-arglists-ecl")
+    (inputs `(("slynk-ecl" ,slynk-ecl-boot0)
+              ,@(package-inputs slynk-ecl-boot0)))
+    (build-system asdf-build-system/ecl)
+    (arguments
+     (substitute-keyword-arguments (package-arguments slynk-arglists-sbcl)
+       ((#:phases phases)
+        `(modify-phases %standard-phases/ecl
+           (add-before 'build 'copy-output
+             (assoc-ref ,phases 'copy-output))
+           (add-after 'copy-output 'delete-bundle
+             (lambda* (#:key outputs inputs lisp #:allow-other-keys)
+               (let ((out (assoc-ref outputs "out")))
+                 (delete-file
+                  (string-append out "/lib/" lisp "/slynk.fasb"))
+                 (delete-file
+                  (string-append out "/lib/" lisp "/slynk.a")))))))))))
+
+(define slynk-util-sbcl
+  (package
+    (inherit slynk-arglists-sbcl)
+    (name "slynk-util-sbcl")))
+
+(define slynk-util-ecl
+  (package
+    (inherit slynk-arglists-ecl)
+    (name "slynk-util-ecl")))
+
+(define slynk-fuzzy-sbcl
+  (package
+    (inherit slynk-arglists-sbcl)
+    (name "slynk-fuzzy-sbcl")
+    (inputs `(("slynk-util-sbcl" ,slynk-util-sbcl)
+              ,@(package-inputs slynk-arglists-sbcl)))
+    (arguments
+     (substitute-keyword-arguments (package-arguments slynk-arglists-sbcl)
+       ((#:compile-dependencies _)
+        ''("slynk" "slynk-util"))))))
+
+(define slynk-fuzzy-ecl
+  (package
+    (inherit slynk-arglists-ecl)
+    (name "slynk-fuzzy-ecl")
+    (inputs `(("slynk-util-ecl" ,slynk-util-ecl)
+              ,@(package-inputs slynk-arglists-ecl)))
+    (arguments
+     (substitute-keyword-arguments (package-arguments slynk-arglists-ecl)
+       ((#:compile-dependencies _)
+        ''("slynk" "slynk-util"))))))
+
+(define slynk-c-p-c-sbcl
+  (package
+    (inherit slynk-fuzzy-sbcl)
+    (name "slynk-c-p-c-sbcl")))
+
+(define slynk-c-p-c-ecl
+  (package
+    (inherit slynk-fuzzy-ecl)
+    (name "slynk-c-p-c-ecl")))
+
+(define slynk-fancy-inspector-sbcl
+  (package
+    (inherit slynk-fuzzy-sbcl)
+    (name "slynk-fancy-inspector-sbcl")))
+
+(define slynk-fancy-inspector-ecl
+  (package
+    (inherit slynk-fuzzy-ecl)
+    (name "slynk-fancy-inspector-ecl")))
+
+(define slynk-package-fu-sbcl
+  (package
+    (inherit slynk-arglists-sbcl)
+    (name "slynk-package-fu-sbcl")))
+
+(define slynk-package-fu-ecl
+  (package
+    (inherit slynk-arglists-ecl)
+    (name "slynk-package-fu-ecl")))
+
+(define slynk-mrepl-sbcl
+  (package
+    (inherit slynk-arglists-sbcl)
+    (name "slynk-mrepl-sbcl")))
+
+(define slynk-mrepl-ecl
+  (package
+    (inherit slynk-arglists-ecl)
+    (name "slynk-mrepl-ecl")))
+
+(define slynk-trace-dialog-sbcl
+  (package
+    (inherit slynk-arglists-sbcl)
+    (name "slynk-trace-dialog-sbcl")))
+
+(define slynk-trace-dialog-ecl
+  (package
+    (inherit slynk-arglists-ecl)
+    (name "slynk-trace-dialog-ecl")))
+
+(define slynk-profiler-sbcl
+  (package
+    (inherit slynk-arglists-sbcl)
+    (name "slynk-profiler-sbcl")))
+
+(define slynk-profiler-ecl
+  (package
+    (inherit slynk-arglists-ecl)
+    (name "slynk-profiler-ecl")))
+
+(define slynk-stickers-sbcl
+  (package
+    (inherit slynk-arglists-sbcl)
+    (name "slynk-stickers-sbcl")))
+
+(define slynk-stickers-ecl
+  (package
+    (inherit slynk-arglists-ecl)
+    (name "slynk-stickers-ecl")))
+
+(define slynk-indentation-sbcl
+  (package
+    (inherit slynk-arglists-sbcl)
+    (name "slynk-indentation-sbcl")))
+
+(define slynk-indentation-ecl
+  (package
+    (inherit slynk-arglists-ecl)
+    (name "slynk-indentation-ecl")))
+
+(define slynk-retro-sbcl
+  (package
+    (inherit slynk-arglists-sbcl)
+    (name "slynk-retro-sbcl")))
+
+(define slynk-retro-ecl
+  (package
+    (inherit slynk-arglists-ecl)
+    (name "slynk-retro-ecl")))
+
+(define-public slynk-sbcl
+  (let ((dependencies
+         '("slynk-util"
+           "slynk-arglists"
+           "slynk-c-p-c"
+           "slynk-fuzzy"
+           "slynk-fancy-inspector"
+           "slynk-package-fu"
+           "slynk-mrepl"
+           "slynk-profiler"
+           "slynk-trace-dialog"
+           "slynk-stickers"
+           "slynk-indentation"
+           "slynk-retro")))
+    (package
+      (inherit slynk-sbcl-boot0)
+      (name "slynk-sbcl")
+      (inputs `(("slynk" ,slynk-sbcl-boot0)
+                ("slynk-util" ,slynk-util-sbcl)
+                ("slynk-arglists" ,slynk-arglists-sbcl)
+                ("slynk-c-p-c" ,slynk-c-p-c-sbcl)
+                ("slynk-fuzzy" ,slynk-fuzzy-sbcl)
+                ("slynk-fancy-inspector" ,slynk-fancy-inspector-sbcl)
+                ("slynk-package-fu" ,slynk-package-fu-sbcl)
+                ("slynk-mrepl" ,slynk-mrepl-sbcl)
+                ("slynk-profiler" ,slynk-profiler-sbcl)
+                ("slynk-trace-dialog" ,slynk-trace-dialog-sbcl)
+                ("slynk-stickers" ,slynk-stickers-sbcl)
+                ("slynk-indentation" ,slynk-indentation-sbcl)
+                ("slynk-retro" ,slynk-retro-sbcl)))
+      (outputs '("out" "image"))
+      (arguments
+       (substitute-keyword-arguments
+           `(#:image-dependencies ',dependencies
+             ,@(package-arguments slynk-sbcl-boot0))
+         ((#:phases _)
+          `(modify-phases %standard-phases/sbcl
+             (add-before 'build 'copy-slynk
+               (lambda* (#:key outputs inputs #:allow-other-keys)
+                 (let ((out (assoc-ref outputs "out"))
+                       (slynk (assoc-ref inputs "slynk")))
+                   (copy-recursively slynk out))))
+             (add-after 'generate-image 'link-contribs
+               (lambda* (#:key outputs inputs lisp #:allow-other-keys)
+                 (let* ((out (assoc-ref outputs "out"))
+                        (asd-file (string-append out "/lib/" lisp 
"/slynk.asd"))
+                        (link-file (string-append
+                                    out "/share/common-lisp/" lisp
+                                    "-bundle-systems/slynk.asd")))
+                   (patch-asd-file
+                    asd-file
+                    (map
+                     (lambda (dependency)
+                       `(,dependency
+                         . ,(string-append
+                             (assoc-ref inputs dependency))))
+                     ',dependencies)
+                    lisp
+                    '())
+                   (delete-file link-file)
+                   (symlink asd-file link-file))))
+             (delete 'build)
+             (delete 'check)
+             (delete 'link-dependencies)
+             (delete 'create-symlinks))))))))
+
+(define-public slynk-ecl
+  (package
+    (inherit slynk-sbcl)
+    (name "slynk-ecl")
+    (inputs `(("slynk" ,slynk-ecl-boot0)
+              ("slynk-util" ,slynk-util-ecl)
+              ("slynk-arglists" ,slynk-arglists-ecl)
+              ("slynk-c-p-c" ,slynk-c-p-c-ecl)
+              ("slynk-fuzzy" ,slynk-fuzzy-ecl)
+              ("slynk-fancy-inspector" ,slynk-fancy-inspector-ecl)
+              ("slynk-package-fu" ,slynk-package-fu-ecl)
+              ("slynk-mrepl" ,slynk-mrepl-ecl)
+              ("slynk-profiler" ,slynk-profiler-ecl)
+              ("slynk-trace-dialog" ,slynk-trace-dialog-ecl)
+              ("slynk-stickers" ,slynk-stickers-ecl)
+              ("slynk-indentation" ,slynk-indentation-ecl)
+              ("slynk-retro" ,slynk-retro-ecl)))
+    (outputs '("out"))
+    (build-system asdf-build-system/ecl)
+    (arguments
+     (substitute-keyword-arguments (package-arguments slynk-sbcl)
+       ((#:phases phases)
+        `(modify-phases %standard-phases/ecl
+           (add-before 'build 'copy-slynk
+             (assoc-ref ,phases 'copy-slynk))
+           (add-after 'generate-image 'link-contribs
+             (assoc-ref ,phases 'link-contribs))
+           (delete 'build)
+           (delete 'check)
+           (delete 'link-dependencies)
+           (delete 'create-symlinks)))))))
-- 
2.10.0