From mboxrd@z Thu Jan 1 00:00:00 1970 From: Andy Patterson Subject: [PATCH 10/12] gnu: Add slynk. Date: Tue, 27 Sep 2016 00:15:30 -0400 Message-ID: <20160927041532.27097-11-ajpatter@uwaterloo.ca> References: <20160927041532.27097-1-ajpatter@uwaterloo.ca> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:34762) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bojoA-0001AZ-Q6 for guix-devel@gnu.org; Tue, 27 Sep 2016 00:15:57 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bojo7-0002tq-Od for guix-devel@gnu.org; Tue, 27 Sep 2016 00:15:53 -0400 Received: from mailservices.uwaterloo.ca ([129.97.128.141]:45700 helo=minos.uwaterloo.ca) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bojo7-0002tZ-J1 for guix-devel@gnu.org; Tue, 27 Sep 2016 00:15:51 -0400 In-Reply-To: <20160927041532.27097-1-ajpatter@uwaterloo.ca> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org * 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