(use-modules (guix packages) (guix build-system asdf) (guix build utils) (guix git) (guix git-download) (gnu packages lisp) (gnu packages lisp-xyz) ((guix licenses) #:prefix license:)) (define-public germinal ;; No release. (let ((commit "5bfb371ea57dae8985c0e1c6f184f0338487d684")) (package (name "germinal") (version (git-version "1.0.0" "1" commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://git.carcosa.net/jmcbray/germinal") (commit commit))) (file-name (git-file-name "germinal" version)) (sha256 (base32 "12jypa8m10825lp5yxfcm1fyk3r4ziwcri7ndxa0m5dz0y7hggck")))) (build-system asdf-build-system/sbcl) (inputs `(("alexandria" ,sbcl-alexandria) ("babel" ,sbcl-babel) ("usocket" ,sbcl-usocket) ("bordeaux-threads" ,sbcl-bordeaux-threads) ("cl+ssl" ,sbcl-cl+ssl) ("str" ,sbcl-cl-str) ("trivial-mimes" ,sbcl-trivial-mimes) ("ppath" ,sbcl-ppath) ("osicat" ,sbcl-osicat) ("cl-interpol" ,sbcl-cl-interpol) ("quri" ,sbcl-quri) ("cl-ppcre" ,sbcl-cl-ppcre) ("cl-fad" ,sbcl-cl-fad) ("local-time" ,sbcl-local-time) ("uax-15" ,sbcl-uax-15))) (outputs '("out")) (arguments `(#:asd-systems '("germinal"))) (synopsis "A gemini protocol server in Common Lisp.") (description " Germinal is a server for the Gemini Protocol, written in Common Lisp. It is named after the early 20th century Yiddish-language anarchist newspaper Germinal. I wanted to name it after an anarchist publication to convey the idea of people sharing information and ideas with each other, in contrast to the way the web is used to push advertising from corporations to people. And it happened that Germinal shares some sounds with Gemini.") (home-page "https://git.carcosa.net/jmcbray/germinal") (license license:agpl3)))) germinal