me
/
guix
Archived
1
0
Fork 0
Code

gnu: sbcl-cl-webkit: Update to 3.0.0. 

* gnu/packages/lisp-xyz.scm (sbcl-cl-webkit): Update to 3.0.0.
master
Pierre Neidhardt 2021-09-21 09:55:39 +02:00
parent a916d50566
commit 659fb24753
No known key found for this signature in database
GPG Key ID: 9BDCF497A4BBCC7F
1 changed files with 48 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
gnu/packages/lisp-xyz.scm
View File

@ -3455,43 +3455,57 @@ is a library for creating graphical user interfaces.")
(sbcl-package->ecl-package sbcl-cl-cffi-gtk)) (sbcl-package->ecl-package sbcl-cl-cffi-gtk))
(define-public sbcl-cl-webkit (define-public sbcl-cl-webkit
(let ((commit "cfc4f01ee806169d824750b4014653a93af9353d")) (package
(package (name "sbcl-cl-webkit")
(name "sbcl-cl-webkit") (version "3.0.0")
(version (git-version "2.4" "16" commit)) (source
(source (origin
(origin (method git-fetch)
(method git-fetch) (uri (git-reference
(uri (git-reference (url "https://github.com/joachifm/cl-webkit")
(url "https://github.com/joachifm/cl-webkit") (commit version)))
(commit commit))) (file-name (git-file-name "cl-webkit" version))
(file-name (git-file-name "cl-webkit" version)) (sha256
(sha256 (base32
(base32 "015xry1cvbgspfzz35ifz2qscz946ljhj2z8rzjscy9v8fgnjsdk"))))
"18n90m33bi6arnjmwr3q3m0arwzr0kdnydlv4if82crvaagd6m89")))) (build-system asdf-build-system/sbcl)
(build-system asdf-build-system/sbcl) (inputs
(inputs `(("cffi" ,sbcl-cffi)
`(("cffi" ,sbcl-cffi) ("cl-cffi-gtk" ,sbcl-cl-cffi-gtk)
("cl-cffi-gtk" ,sbcl-cl-cffi-gtk) ("webkitgtk" ,webkitgtk)))
("webkitgtk" ,webkitgtk))) (native-inputs
(arguments `(;; Tests seem to need Xorg.
`(#:asd-systems '("cl-webkit2") ;; ("xorg-server" ,xorg-server-for-tests)
#:phases ("calispel" ,sbcl-calispel)
(modify-phases %standard-phases ("fiveam" ,sbcl-fiveam)
(add-after 'unpack 'fix-paths ("float-features" ,sbcl-float-features)))
(lambda* (#:key inputs #:allow-other-keys) (arguments
(substitute* "webkit2/webkit2.init.lisp" `(#:asd-systems '("cl-webkit2")
(("libwebkit2gtk" all) #:tests? #f ; TODO: Tests hang, why?
(string-append #:phases
(assoc-ref inputs "webkitgtk") "/lib/" all)))))))) (modify-phases %standard-phases
(home-page "https://github.com/joachifm/cl-webkit") ;; The following phase is needed for tests:
(synopsis "Binding to WebKitGTK+ for Common Lisp") ;; (add-before 'check 'start-xorg-server
(description ;; (lambda* (#:key inputs #:allow-other-keys)
"@command{cl-webkit} is a binding to WebKitGTK+ for Common Lisp, ;; ;; The test suite requires a running X server.
;; (system (string-append (assoc-ref inputs "xorg-server")
;; "/bin/Xvfb :1 &"))
;; (setenv "DISPLAY" ":1")
;; #t))
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "webkit2/webkit2.init.lisp"
(("libwebkit2gtk" all)
(string-append
(assoc-ref inputs "webkitgtk") "/lib/" all))))))))
(home-page "https://github.com/joachifm/cl-webkit")
(synopsis "Binding to WebKitGTK+ for Common Lisp")
(description
"@command{cl-webkit} is a binding to WebKitGTK+ for Common Lisp,
currently targeting WebKit version 2. The WebKitGTK+ library adds web currently targeting WebKit version 2. The WebKitGTK+ library adds web
browsing capabilities to an application, leveraging the full power of the browsing capabilities to an application, leveraging the full power of the
WebKit browsing engine.") WebKit browsing engine.")
(license license:expat)))) (license license:expat)))
(define-public cl-webkit (define-public cl-webkit
(sbcl-package->cl-source-package sbcl-cl-webkit)) (sbcl-package->cl-source-package sbcl-cl-webkit))