summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPierre Neidhardt <mail@ambrevar.xyz>2018-12-01 00:35:36 +0100
committerPierre Neidhardt <mail@ambrevar.xyz>2018-12-02 13:21:51 +0100
commitacad932e63f357ea88edd393ac9dd670bfd0768c (patch)
tree4747fe1dba3aec886337ccbc39ab779d6ceaae4d
parent18974c1eaa7258cc03206f19b77a6c666ac27d96 (diff)
gnu: Add sbcl-next.
* gnu/packages/web-browsers.scm (sbcl-next): New variable.
-rw-r--r--gnu/packages/web-browsers.scm69
1 files changed, 68 insertions, 1 deletions
diff --git a/gnu/packages/web-browsers.scm b/gnu/packages/web-browsers.scm
index 2cc7b90123..578cfca560 100644
--- a/gnu/packages/web-browsers.scm
+++ b/gnu/packages/web-browsers.scm
@@ -37,6 +37,7 @@
#:use-module (gnu packages gnupg)
#:use-module (gnu packages libevent)
#:use-module (gnu packages libidn)
+ #:use-module (gnu packages lisp)
#:use-module (gnu packages lua)
#:use-module (gnu packages gnome)
#:use-module (gnu packages ncurses)
@@ -53,7 +54,8 @@
#:use-module (guix git-download)
#:use-module (guix build-system gnu)
#:use-module (guix build-system glib-or-gtk)
- #:use-module (guix build-system python))
+ #:use-module (guix build-system python)
+ #:use-module (guix build-system asdf))
(define-public dillo
(package
@@ -401,3 +403,68 @@ inspired by Emacs and designed for power users. The application has familiar
key-bindings, is fully configurable and extensible in Lisp, and has powerful
features for productive professionals.")
(license license:bsd-3))))
+
+(define-public sbcl-next
+ (package
+ (inherit next-gtk-webkit)
+ (name "sbcl-next")
+ (build-system asdf-build-system/sbcl)
+ (outputs '("out" "lib"))
+ (arguments
+ `(#:tests? #f ; no tests
+ #:phases (modify-phases %standard-phases
+ (add-after 'unpack 'patch-platform-port-path
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "source/ports/gtk-webkit.lisp"
+ (("\"next-gtk-webkit\"")
+ (string-append "\"" (assoc-ref inputs "next-gtk-webkit")
+ "/bin/next-gtk-webkit\"")))))
+ (add-before 'cleanup 'move-bundle
+ (lambda* (#:key outputs #:allow-other-keys)
+ (define lib (assoc-ref outputs "lib"))
+ (define actual-fasl (string-append
+ lib
+ "/lib/sbcl/next.fasl"))
+ (define expected-fasl (string-append
+ lib
+ "/lib/sbcl/next--system.fasl"))
+ (pk actual-fasl)
+ (pk expected-fasl)
+ (copy-file actual-fasl expected-fasl)
+ #t))
+ (add-after 'create-symlinks 'build-program
+ (lambda* (#:key outputs #:allow-other-keys)
+ (build-program
+ (string-append (assoc-ref outputs "out") "/bin/next")
+ outputs
+ #:entry-program '((next:start-with-port) 0))))
+ (add-before 'build 'install-assets
+ ;; Since the ASDF build system generates a new .asd with a
+ ;; possibly suffixed and thus illegal version number, assets
+ ;; should not be installed after the 'build phase or else
+ ;; the illegal version will result in NIL in the .desktop
+ ;; file.
+ (lambda* (#:key outputs #:allow-other-keys)
+ (invoke "make" "install-assets"
+ (string-append "PREFIX="
+ (assoc-ref outputs "out"))))))))
+ (inputs
+ `(("next-gtk-webkit" ,next-gtk-webkit)
+ ;; Lisp libraries:
+ ("trivial-features" ,sbcl-trivial-features)
+ ("alexandria" ,sbcl-alexandria)
+ ("cl-strings" ,sbcl-cl-strings)
+ ("cl-string-match" ,sbcl-cl-string-match)
+ ("puri" ,sbcl-puri)
+ ("queues.simple-queue" ,sbcl-queues.simple-queue)
+ ("sqlite" ,sbcl-cl-sqlite)
+ ("parenscript" ,sbcl-parenscript)
+ ("cl-json" ,sbcl-cl-json)
+ ("swank" ,sbcl-slime-swank)
+ ("cl-markup" ,sbcl-cl-markup)
+ ("cl-css" ,sbcl-cl-css)
+ ("usocket" ,sbcl-usocket)
+ ("bordeaux-threads" ,sbcl-bordeaux-threads)
+ ("s-xml-rpc" ,sbcl-s-xml-rpc)
+ ("unix-opts" ,sbcl-unix-opts)))
+ (synopsis "Infinitely extensible web-browser (with Lisp development files)")))