summaryrefslogtreecommitdiff
path: root/gnu/packages/lisp-xyz.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-11-23 11:22:30 +0100
committerLudovic Courtès <ludo@gnu.org>2021-11-23 11:29:38 +0100
commitb15e543d303ea58fdc0f0541c708389f9d513e3d (patch)
tree5c4bd48d67d4d3cd4806269dcabf58382f448bed /gnu/packages/lisp-xyz.scm
parent4efc08d895274ee39e6e6e5c49121fb05a0281b6 (diff)
parentdaf7b5ecef8de0e536ffd8d2957f022d010767a8 (diff)
Merge branch 'master' into core-updates-frozen
Diffstat (limited to 'gnu/packages/lisp-xyz.scm')
-rw-r--r--gnu/packages/lisp-xyz.scm562
1 files changed, 550 insertions, 12 deletions
diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index e6564a903e..fb3461c0df 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -28,6 +28,7 @@
;;; Copyright © 2021 Cameron Chaparro <cameron@cameronchaparro.com>
;;; Copyright © 2021 Charles Jackson <charles.b.jackson@protonmail.com>
;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com>
+;;; Copyright © 2021 jgart <jgart@dismail.de>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -5803,7 +5804,7 @@ offered, one SAX-like, the other similar to StAX.")
Common Lisp, including support for compact syntax, DTD Compatibility, and the
XSD type library.")
(home-page "http://www.lichteblau.com/cxml-rng/")
- (license license:x11-style))))
+ (license license:bsd-2))))
(define-public cl-cxml-rng
(sbcl-package->cl-source-package sbcl-cxml-rng))
@@ -17371,6 +17372,126 @@ computing and event based message handling.")
(define-public cl-gserver
(sbcl-package->cl-source-package sbcl-cl-gserver))
+(define-public sbcl-assoc-utils
+ (let ((commit "74af16a3c0f10ad35e406167de02984744fc7854")
+ (revision "1"))
+ (package
+ (name "sbcl-assoc-utils")
+ (version (git-version "0.1" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/fukamachi/assoc-utils")
+ (commit commit)))
+ (file-name (git-file-name "cl-assoc-utils" version))
+ (sha256
+ (base32 "1yac1v7zmdxj0p6rvwrrhyqvy7yjfhmqbchkwqhhr89gpjvvaick"))))
+ (build-system asdf-build-system/sbcl)
+ (arguments
+ ;; All test cases pass, but tests successfully fail at the end:
+ ;;
+ ;; Summary:
+ ;; All 1 file passed.
+ ;; Unhandled ASDF/FIND-COMPONENT:MISSING-DEPENDENCY in thread
+ ;; #<SB-THREAD:THREAD "main thread" RUNNING {1001858103}>:
+ ;; Component ASSOC-UTILS-ASD::ASSOC-UTILS-TEST not found, required by
+ ;; #<SYSTEM "assoc-utils">
+ `(#:tests? #f))
+ (native-inputs
+ `(("prove" ,sbcl-prove)))
+ (home-page "https://github.com/fukamachi/assoc-utils")
+ (synopsis "Utilities for manipulating association lists in Common Lisp")
+ (description
+ "@code{assoc-utils} provides utilities for manipulating association
+lists in Common Lisp.")
+ (license license:public-domain))))
+
+(define-public cl-assoc-utils
+ (sbcl-package->cl-source-package sbcl-assoc-utils))
+
+(define-public ecl-assoc-utils
+ (sbcl-package->ecl-package sbcl-assoc-utils))
+
+(define-public sbcl-let-over-lambda
+ (let ((commit "481b2e3ab4646186451dfdd2062113203287d520")
+ (revision "1"))
+ (package
+ (name "sbcl-let-over-lambda")
+ (version (git-version "1.0.1" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/thephoeron/let-over-lambda")
+ (commit commit)))
+ (file-name (git-file-name "cl-let-over-lambda" version))
+ (sha256
+ (base32 "114p781lwi9lrbzg27dnkymz9m4cvm1k430j7qsykwd0b58d8qbk"))))
+ (build-system asdf-build-system/sbcl)
+ (arguments
+ ;; All test cases pass, but tests successfully fail at the end:
+ ;;
+ ;; Summary:
+ ;; All 1 file passed.
+ ;; Unhandled ASDF/FIND-COMPONENT:MISSING-DEPENDENCY in thread
+ ;; #<SB-THREAD:THREAD "main thread" RUNNING {1001860103}>:
+ ;; Component LET-OVER-LAMBDA-ASD::LET-OVER-LAMBDA-TEST not found,
+ ;; required by #<SYSTEM "let-over-lambda">
+ `(#:tests? #f))
+ (inputs
+ `(("alexandria" ,sbcl-alexandria)
+ ("cl-ppcre" ,sbcl-cl-ppcre)
+ ("named-readtables" ,sbcl-named-readtables)))
+ (native-inputs
+ `(("prove" ,sbcl-prove)))
+ (home-page "https://github.com/thephoeron/let-over-lambda")
+ (synopsis "Macros from Let Over Lambda")
+ (description
+ "This package provides Doug Hoyte's \"Production\" version of macros
+from the Let Over Lambda book, including community updates.")
+ (license license:bsd-3))))
+
+(define-public cl-let-over-lambda
+ (sbcl-package->cl-source-package sbcl-let-over-lambda))
+
+(define-public ecl-let-over-lambda
+ (sbcl-package->ecl-package sbcl-let-over-lambda))
+
+(define-public sbcl-flute
+ (let ((commit "90ebcd6e82f637f49b6de7d625ccc51ec4c92900")
+ (revision "1"))
+ (package
+ (name "sbcl-flute")
+ (version (git-version "0.2-dev" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/ailisp/flute")
+ (commit commit)))
+ (file-name (git-file-name "cl-flute" version))
+ (sha256
+ (base32 "0q8jhp040cvpppyn820mm6a550yfxyr1lar298x13c42mm807f4f"))))
+ (build-system asdf-build-system/sbcl)
+ (inputs
+ `(("assoc-utils" ,sbcl-assoc-utils)
+ ("let-over-lambda" ,sbcl-let-over-lambda)))
+ (native-inputs
+ `(("fiveam" ,sbcl-fiveam)))
+ (home-page "https://github.com/ailisp/flute")
+ (synopsis "HTML5 generation library in Common Lisp")
+ (description
+ "Flute is an easily composable HTML5 generation library in Common
+Lisp.")
+ (license license:expat))))
+
+(define-public cl-flute
+ (sbcl-package->cl-source-package sbcl-flute))
+
+(define-public ecl-flute
+ (sbcl-package->ecl-package sbcl-flute))
+
(define-public sbcl-cl-posix-mqueue
(let ((commit "8977370c7206d1f62bd1be80f4254af40654b83f")
(revision "1"))
@@ -17762,11 +17883,11 @@ functions allow Lisp programs to explore the web.")
(sbcl-package->cl-source-package sbcl-aserve))
(define-public sbcl-yxorp
- (let ((commit "d2e8f9304549e47ae5c7fa35a6b114804603eac9")
- (revision "1"))
+ (let ((commit "041d0a535d6406df703f5f037d3d2cad4159c74d")
+ (revision "2"))
(package
(name "sbcl-yxorp")
- (version (git-version "0" revision commit))
+ (version (git-version "0.2" revision commit))
(source
(origin
(method git-fetch)
@@ -17775,7 +17896,7 @@ functions allow Lisp programs to explore the web.")
(commit commit)))
(file-name (git-file-name "cl-yxorp" version))
(sha256
- (base32 "1zz1j678vzwkf817h2z0pf0fcyf4mldv4hiv1wyam58hd4bcrjsw"))))
+ (base32 "14fvncisig6h2qamczbx9cifp3rbjfw0cmc2ffifvr82x2bwab1f"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("cl+ssl" ,sbcl-cl+ssl)
@@ -17973,11 +18094,11 @@ and DOM cleaning, to ensure that all remote DOMs are the same.")
(sbcl-package->cl-source-package sbcl-issr-core))
(define-public sbcl-portal
- (let ((commit "cc7ba6a54cea6ef63b17dcc6e653d91d9907f59e")
- (revision "1"))
+ (let ((commit "416589fa04cb239971422a1272acba236c8333be")
+ (revision "2"))
(package
(name "sbcl-portal")
- (version (git-version "1" revision commit))
+ (version (git-version "1.2" revision commit))
(source
(origin
(method git-fetch)
@@ -17986,7 +18107,7 @@ and DOM cleaning, to ensure that all remote DOMs are the same.")
(commit commit)))
(file-name (git-file-name "portal" version))
(sha256
- (base32 "0fc81iwb4lpp8d2scdwafkixxwkfmq4gqns522zyb4bh6c1rfmwy"))))
+ (base32 "1012jc068qdd8df6mmbn8vmmqlniqm5j2jbyrraw3yz8c13c8280"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("alexandria" ,sbcl-alexandria)
@@ -18089,6 +18210,34 @@ bound to whatever value was in the same place in the URL (as a string).")
(define-public cl-hunchenissr-routes
(sbcl-package->cl-source-package sbcl-hunchenissr-routes))
+(define-public sbcl-genhash
+ (let ((commit "220ae1af8361dbd2005177f2ee11072b6a33934f")
+ (revision "1"))
+ (package
+ (name "sbcl-genhash")
+ (version (git-version "1.7" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/pnathan/genhash")
+ (commit commit)))
+ (file-name (git-file-name "cl-genhash" version))
+ (sha256
+ (base32 "1jnk1fix1zydhy0kn3cvlp6dy0241x7v8ahq001nlr6v152z1cwk"))))
+ (build-system asdf-build-system/sbcl)
+ (home-page "https://github.com/pnathan/genhash")
+ (synopsis "Generic hash tables for Common Lisp")
+ (description
+ "This an implementation of CDR 2: generic hash tables for Common Lisp")
+ (license license:public-domain))))
+
+(define-public cl-genhash
+ (sbcl-package->cl-source-package sbcl-genhash))
+
+(define-public ecl-genhash
+ (sbcl-package->ecl-package sbcl-genhash))
+
(define-public sbcl-spinneret
;; No release since 2019, no tags.
(let ((commit "02451b32648eda4e6e4022bbb7f91d9ea71bebbc"))
@@ -18150,6 +18299,39 @@ semantics in Lisp and Parenscript.
(define-public cl-spinneret
(sbcl-package->cl-source-package sbcl-spinneret))
+(define-public sbcl-path-parse
+ (let ((commit "86183f3752374435f8933394b4c5d8e75a37a113")
+ (revision "1"))
+ (package
+ (name "sbcl-path-parse")
+ (version (git-version "0.1" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/eudoxia0/path-parse")
+ (commit commit)))
+ (file-name (git-file-name "cl-path-parse" version))
+ (sha256
+ (base32 "10mxm6q62cfpv3hw2w8k968ba8a1xglqdkwlkqs4l4nby3b11aaq"))))
+ (build-system asdf-build-system/sbcl)
+ (inputs
+ `(("split-sequence" ,sbcl-split-sequence)))
+ (native-inputs
+ `(("fiveam" ,sbcl-fiveam)))
+ (home-page "https://github.com/eudoxia0/path-parse")
+ (synopsis "Parse the PATH environment variable in Common Lisp")
+ (description
+ "This package provides a function to parse the @code{PATH} environment
+variable portably in Common Lisp.")
+ (license license:expat))))
+
+(define-public cl-path-parse
+ (sbcl-package->cl-source-package sbcl-path-parse))
+
+(define-public ecl-path-parse
+ (sbcl-package->ecl-package sbcl-path-parse))
+
(define-public sbcl-cl-libxml2
(let ((commit "8d03110c532c1a3fe15503fdfefe82f60669e4bd"))
(package
@@ -18236,6 +18418,40 @@ child nodes enumeration, etc.
(define-public cl-libxml2
(sbcl-package->cl-source-package sbcl-cl-libxml2))
+(define-public sbcl-pileup
+ (let ((commit "f269473a570a8e55881082545ee63cfe5c7d3e72")
+ (revision "1"))
+ (package
+ (name "sbcl-pileup")
+ (version (git-version "1.0.1" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/nikodemus/pileup")
+ (commit commit)))
+ (file-name (git-file-name "cl-pileup" version))
+ (sha256
+ (base32 "01gvshpxil0ggjgfmgcymbgmpsfaxy6aggm0bywkn40rck3038vb"))))
+ (build-system asdf-build-system/sbcl)
+ (inputs
+ `(("alexandria" ,sbcl-alexandria)
+ ("bordeaux-threads" ,sbcl-bordeaux-threads)))
+ (native-inputs
+ `(("hu.dwim.stefil" ,sbcl-hu.dwim.stefil)))
+ (home-page "https://github.com/nikodemus/pileup")
+ (synopsis "Simple thread-safe binary heap implementation for Common Lisp")
+ (description
+ "@code{Pileup} is a portable, performant, and thread-safe binary heap
+for Common Lisp.")
+ (license license:expat))))
+
+(define-public cl-pileup
+ (sbcl-package->cl-source-package sbcl-pileup))
+
+(define-public ecl-pileup
+ (sbcl-package->ecl-package sbcl-pileup))
+
(define-public sbcl-feeder
;; No release.
(let ((commit "b05f517d7729564575cc809e086c262646a94d34")
@@ -18272,6 +18488,51 @@ formats within this framework.")
(define-public cl-feeder
(sbcl-package->cl-source-package sbcl-feeder))
+(define-public sbcl-routes
+ (let ((commit "1b79e85aa653e1ec87e21ca745abe51547866fa9")
+ (revision "1"))
+ (package
+ (name "sbcl-routes")
+ (version (git-version "0.2.5" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/archimag/cl-routes")
+ (commit commit)))
+ (file-name (git-file-name "cl-routes" version))
+ (sha256
+ (base32 "1zpk3cp2v8hm50ppjl10yxr437vv4552r8hylvizglzrq2ibsbr1"))))
+ (build-system asdf-build-system/sbcl)
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'fix-tests
+ (lambda* (#:key inputs #:allow-other-keys)
+ ;; Fix: :FORCE and :FORCE-NOT arguments not allowed in
+ ;; a nested call to ASDF/OPERATE:OPERATE unless
+ ;; identically to toplevel
+ (substitute* "routes.asd"
+ ((" :force t") "")))))))
+ (inputs
+ `(("iterate" ,sbcl-iterate)
+ ("puri" ,sbcl-puri)
+ ("split-sequence" ,sbcl-split-sequence)))
+ (native-inputs
+ `(("lift" ,sbcl-lift)))
+ (home-page "https://github.com/archimag/cl-routes")
+ (synopsis "Rails routes system for Common Lisp")
+ (description
+ "This is a a Common Lisp re-implementation of the Rails routes system
+for mapping URLs.")
+ (license license:llgpl))))
+
+(define-public cl-routes
+ (sbcl-package->cl-source-package sbcl-routes))
+
+(define-public ecl-routes
+ (sbcl-package->ecl-package sbcl-routes))
+
(define-public sbcl-terminfo
(let ((commit "b8b2e3ed786bfcf9f1aa4a264cee2e93135080f5")
(revision "1"))
@@ -18333,6 +18594,40 @@ tasks in Common Lisp. It is fork of SWANK-BACKEND.")
(define-public ecl-conium
(sbcl-package->ecl-package sbcl-conium))
+(define-public sbcl-terminal-size
+ (let ((commit "e0b3d56a9dd3366baf2a05d84381da5747a2ef4a")
+ (revision "1"))
+ (package
+ (name "sbcl-terminal-size")
+ (version (git-version "0.1" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/eudoxia0/terminal-size")
+ (commit commit)))
+ (file-name (git-file-name "cl-terminal-size" version))
+ (sha256
+ (base32 "1212wbadms9jzrqgarpj3d9xh9w4dab8jhx4k2aryqgf116zs42h"))))
+ (build-system asdf-build-system/sbcl)
+ (inputs
+ `(("cffi" ,sbcl-cffi)
+ ("osicat" ,sbcl-osicat)))
+ (native-inputs
+ `(("fiveam" ,sbcl-fiveam)))
+ (home-page "https://github.com/eudoxia0/terminal-size")
+ (synopsis "Get the size of the terminal from Common Lisp")
+ (description
+ "This package provides the @{(terminal-size:size)} function to get the
+size of the terminal from Common Lisp.")
+ (license license:expat))))
+
+(define-public cl-terminal-size
+ (sbcl-package->cl-source-package sbcl-terminal-size))
+
+(define-public ecl-terminal-size
+ (sbcl-package->ecl-package sbcl-terminal-size))
+
(define-public sbcl-cl-readline
(let ((commit "8438c9ebd92ccc95ebab9cc9cbe6c72d44fccc58")
(revision "1"))
@@ -18672,6 +18967,34 @@ higher-level lispier interface.")
(define-public ecl-cl-charms
(sbcl-package->ecl-package sbcl-cl-charms))
+(define-public sbcl-trivial-open-browser
+ (let ((commit "7ab4743dea9d592639f15c565bfa0756e828c427")
+ (revision "1"))
+ (package
+ (name "sbcl-trivial-open-browser")
+ (version (git-version "0.1" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/eudoxia0/trivial-open-browser")
+ (commit commit)))
+ (file-name (git-file-name "trivial-open-browser" version))
+ (sha256
+ (base32 "0ixay1piq420i6adx642qhw45l6ik7rvgk52lyz27dvx5f8yqsdb"))))
+ (build-system asdf-build-system/sbcl)
+ (home-page "https://github.com/eudoxia0/trivial-open-browser")
+ (synopsis "Open a browser window from Common Lisp")
+ (description
+ "This package provides a library to open a web browser to a URL.")
+ (license license:expat))))
+
+(define-public cl-trivial-open-browser
+ (sbcl-package->cl-source-package sbcl-trivial-open-browser))
+
+(define-public ecl-trivial-open-browser
+ (sbcl-package->ecl-package sbcl-trivial-open-browser))
+
(define-public sbcl-clinenoise
(let ((commit "46e21f99d06a55d93eaa382cf652d55d457032ef")
(revision "1"))
@@ -18705,6 +19028,80 @@ terminals.")
(define-public ecl-clinenoise
(sbcl-package->ecl-package sbcl-clinenoise))
+(define-public sbcl-trivial-raw-io
+ (let ((commit "b1a3c876305baa0dead419841de7b3e433a75867")
+ (revision "1"))
+ (package
+ (name "sbcl-trivial-raw-io")
+ (version (git-version "0.0.2" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/kingcons/trivial-raw-io")
+ (commit commit)))
+ (file-name (git-file-name "trivial-raw-io" version))
+ (sha256
+ (base32 "19290zw2b64k78wr62gv30pp7cmqg07q85vfwjknaffjdd73xwi1"))))
+ (build-system asdf-build-system/sbcl)
+ (inputs
+ `(("sbcl-alexandria" ,sbcl-alexandria)))
+ (home-page "https://github.com/kingcons/trivial-raw-io")
+ (synopsis "Trivial portability for raw *nix IO in Common Lisp")
+ (description
+ "This library exports three symbols: @code{with-raw-io},
+@code{read-char}, and @code{read-line}, to provide raw POSIX I/O in Common
+Lisp.")
+ (license license:bsd-2))))
+
+(define-public cl-trivial-raw-io
+ (sbcl-package->cl-source-package sbcl-trivial-raw-io))
+
+(define-public ecl-trivial-raw-io
+ (sbcl-package->ecl-package sbcl-trivial-raw-io))
+
+(define-public sbcl-terminal-keypress
+ (let ((commit "2ef48c045aa627229764b2aa393a83d392d93d08")
+ (revision "1"))
+ (package
+ (name "sbcl-terminal-keypress")
+ (version (git-version "0.1" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/eudoxia0/terminal-keypress")
+ (commit commit)))
+ (file-name (git-file-name "cl-terminal-keypress" version))
+ (sha256
+ (base32 "11c4krpq5x55qkchx6ykcnb455ssb4r3jjywx3c3irfrkj733ybp"))))
+ (build-system asdf-build-system/sbcl)
+ (inputs
+ `(("alexandria" ,sbcl-alexandria)
+ ("trivial-raw-io" ,sbcl-trivial-raw-io)))
+ (native-inputs
+ `(("fiveam" ,sbcl-fiveam)))
+ (home-page "https://github.com/eudoxia0/terminal-keypress")
+ (synopsis "Read keyboard events in the terminal from Common Lisp")
+ (description
+ "This is a library for reading semi-raw user input from terminals.
+Semi-raw as in, we can't detect if the user pressed the @code{Control} key
+alone, and the function keys are a mystery. What is supported, however, is:
+
+@itemize
+@item Regular characters
+@item Control+[key]
+@item Alt+[key]
+@item Control+Alt+[key]
+@end itemize")
+ (license license:expat))))
+
+(define-public cl-terminal-keypress
+ (sbcl-package->cl-source-package sbcl-terminal-keypress))
+
+(define-public ecl-terminal-keypress
+ (sbcl-package->ecl-package sbcl-terminal-keypress))
+
(define-public sbcl-periodic-table
(package
(name "sbcl-periodic-table")
@@ -18857,12 +19254,46 @@ This package provides the text-based interface for Chemboy.")
(define-public ecl-cl-pass
(sbcl-package->ecl-package sbcl-cl-pass))
+(define-public sbcl-which
+ (let ((commit "b2333e4fcacab6e5d85eecd28b5ef4944bda1448")
+ (revision "1"))
+ (package
+ (name "sbcl-which")
+ (version (git-version "0.1" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/eudoxia0/which")
+ (commit commit)))
+ (file-name (git-file-name "cl-which" version))
+ (sha256
+ (base32 "127pm9h4rm4w9aadw5yvamnfzhk2rr69kchx10rf9k7sk7izqqfk"))))
+ (build-system asdf-build-system/sbcl)
+ (inputs
+ `(("cl-fad" ,sbcl-cl-fad)
+ ("path-parse" ,sbcl-path-parse)))
+ (native-inputs
+ `(("fiveam" ,sbcl-fiveam)))
+ (home-page "https://github.com/eudoxia0/which")
+ (synopsis "The which command in Common Lisp")
+ (description
+ "This package provides an implementation of the @code{which} UNIX
+command in Common Lisp.")
+ (license license:expat))))
+
+(define-public cl-which
+ (sbcl-package->cl-source-package sbcl-which))
+
+(define-public ecl-which
+ (sbcl-package->ecl-package sbcl-which))
+
(define-public sbcl-cl-tld
;; No release.
- (let ((commit "6529c70042cf6e82be39bc522e87ad87da08f1c9"))
+ (let ((commit "f5014da8d831fa9481d4181d4450f10a52850c75"))
(package
(name "sbcl-cl-tld")
- (version (git-version "0.1" "1" commit))
+ (version (git-version "0.1" "2" commit))
(source
(origin
(method git-fetch)
@@ -18871,7 +19302,7 @@ This package provides the text-based interface for Chemboy.")
(commit commit)))
(file-name (git-file-name name version))
(sha256
- (base32 "1l6f0sak90pqjzkrjg0cyk7gv9h8gwpfvc0964z98dw2nj3hakqb"))))
+ (base32 "0sxnn35gzdby1ixil6zbjg72vli9fcspwzsqimqk455310syx9iv"))))
(build-system asdf-build-system/sbcl)
(home-page "https://github.com/lu4nx/cl-tld/")
(synopsis "Extract the Top Level Domain from domains, in Common Lisp")
@@ -19250,3 +19681,110 @@ Vernacular builds on Overlord and is inspired by Racket.")
(define-public cl-vernacular
(sbcl-package->cl-source-package sbcl-vernacular))
+
+(define-public sbcl-cmn
+ (package
+ (name "sbcl-cmn")
+ (version "2021.11.22")
+ (source
+ (origin
+ (method url-fetch)
+ (uri "https://ccrma.stanford.edu/software/cmn/cmn.tar.gz")
+ (file-name (string-append "cmn-" version ".tar.gz"))
+ (sha256
+ (base32 "04j1l57cdyfi2zzxqwmvmf1hl899ffgs3bl4r42ba47zsw45kq14"))))
+ (build-system asdf-build-system/sbcl)
+ (home-page "https://ccrma.stanford.edu/software/cmn/")
+ (synopsis "Western music notation package written in Common Lisp")
+ (description
+ "CMN provides a package of functions to hierarchically describe a musical
+score. When evaluated, the musical score is rendered to an image.")
+ (license license:expat)))
+
+(define-public cl-cmn
+ (sbcl-package->cl-source-package sbcl-cmn))
+
+(define-public ecl-cmn
+ (sbcl-package->ecl-package sbcl-cmn))
+
+(define-public sbcl-cl-https-everywhere
+ ;; No release.
+ ;; Don't forget to update the https-everywhere input.
+ (let ((commit "cbcc73b985a5b1c0ce0d4ec38bc982a0538d4bd8"))
+ (package
+ (name "sbcl-cl-https-everywhere")
+ (version (git-version "0.0.0" "1" commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/ruricolist/cl-https-everywhere/")
+ (commit commit)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "1wcvx1icwym1ncd6wl1wxzkyyndrm796caalbklvjd4a2cbl3xxi"))))
+ (build-system asdf-build-system/sbcl)
+ (inputs
+ `(("alexandria" ,sbcl-alexandria)
+ ("global-vars" ,sbcl-global-vars)
+ ("parenscript" ,sbcl-parenscript)
+ ("cl-markdown" ,sbcl-cl-markdown)
+ ("cl-tld" ,sbcl-cl-tld)
+ ("fxml" ,sbcl-fxml)
+ ("overlord" ,sbcl-overlord)
+ ("ppcre" ,sbcl-cl-ppcre)
+ ("serapeum" ,sbcl-serapeum)
+ ("trivial-gray-streams" ,sbcl-trivial-gray-streams)
+ ("vernacular" ,sbcl-vernacular)))
+ (native-inputs
+ `(("fiveam" ,sbcl-fiveam)
+ ("https-everywhere"
+ ,(let ((version "2021.7.13"))
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/EFForg/https-everywhere")
+ (commit version)))
+ (file-name (git-file-name "https-everywhere" version))
+ (sha256
+ (base32
+ "1k5gj29imhxf47sv3d8rxyrgr6k65scp2fm040va3nfshayslzia")))))))
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'link-https-everywhere-repo
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((https-everywhere (assoc-ref inputs "https-everywhere")))
+ (symlink https-everywhere "https-everywhere"))))
+ (add-after 'unpack 'fix-overlord-build
+ ;; Upstream bugs? See
+ ;; https://github.com/ruricolist/cl-https-everywhere/issues/1.
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (rulesets.xml (string-append out "/share/common-lisp/" (%lisp-type)
+ "/cl-https-everywhere/rulesets.xml")))
+ (substitute* "build.lisp"
+ (("\\(depends-on https-everywhere-version\\)") "")
+ ;; Don't rebuild the rulesets just because the timestamp is epoch.
+ (("\\(vernacular:require-default :cl-https-everywhere/rulesets-file \"rulesets.xml\"\\)")
+ (format #f "(if (uiop:file-exists-p ~s)
+ (compile-rulesets ~s)
+ (vernacular:require-default :cl-https-everywhere/rulesets-file \"rulesets.xml\"))"
+ rulesets.xml
+ rulesets.xml))
+ (("\\(uiop:parse-unix-namestring \"https-everywhere/src/chrome/content/rules/\\*\\.xml\")")
+ "\"https-everywhere/src/chrome/content/rules/*.xml\"")
+ (("\\(out temp :external-format :utf-8\\)")
+ "(out temp :external-format :utf-8 :if-exists :supersede)")))
+ #t)))))
+ (home-page "https://github.com/ruricolist/cl-https-everywhere/")
+ (synopsis "Use HTTPS Everywhere rules from Lisp")
+ (description
+ "CL-HTTPS-EVERYWHERE parses HTTPS Everywhere rulesets and makes them
+available for use in Lisp programs.")
+ (license (list license:expat
+ ;; For the ruleset
+ license:gpl2+)))))
+
+(define-public cl-https-everywhere
+ (sbcl-package->cl-source-package sbcl-cl-https-everywhere))