[bug#54602] Germinal, a Common Lisp Gemini Server

[bug#54602] Germinal, a Common Lisp Gemini Server

[~vidak]

[-- Attachment #1: package source code --]
[-- Type: application/octet-stream, Size: 2026 bytes --]

(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

[-- Attachment #2: Type: text/plain, Size: 639 bytes --]


Hello all,

I have written this package for Guix. It is a gemini protocol server
written in Common Lisp.

For me, it builds and installs, but I cannot seem to understand how to
run the software.

I understand that there are Guix system configurations/definitions for
'Agate' and 'gmnisrv', that allow one to use Guix to serve gemini
content.

(see: https://guix.gnu.org/manual/en/html_node/Web-Services.html )

Could anyone help me understand how I might be able to get this
software, Germinal, running on Guix in the same way as Agate and
gmnisrv?

Thanks in advance,

~vidak

=> https://zoinks.one/vidak

=> gemini://tilde.town/~vidak

[bug#54602] Germinal, a Common Lisp Gemini Server

[Ludovic Courtès]

Hello,

Sorry for the delay!  Comments below…

~vidak <vidak@riseup.net> skribis:

> (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
>
>
> Hello all,
>
> I have written this package for Guix. It is a gemini protocol server
> written in Common Lisp.
>
> For me, it builds and installs, but I cannot seem to understand how to
> run the software.
>
> I understand that there are Guix system configurations/definitions for
> 'Agate' and 'gmnisrv', that allow one to use Guix to serve gemini
> content.
>
> (see: https://guix.gnu.org/manual/en/html_node/Web-Services.html )
>
> Could anyone help me understand how I might be able to get this
> software, Germinal, running on Guix in the same way as Agate and
> gmnisrv?

First, I would encourage you to submit the package for inclusion in Guix
proper.  For that, you need to turn it into a patch and generally follow
the guidelines at:

  https://guix.gnu.org/manual/devel/en/html_node/Submitting-Patches.html

In particular, once you’ve added it to the Guix tree, you will need to
run:

  ./pre-inst-env guix style germinal
  ./pre-inst-env guix style -S inputs germinal

to obtain the “conventional” style.  Let us know how it goes!

As for defining a Guix System service such as those you mention, I don’t
know.  My guess is that you could probably copy/paste
‘agate-service-type’ or ‘gmnisrv-service-type’ and related code as a
starting point, and adjust it so it matches Germinal.  People can
provide guidance on help-guix@gnu.org and on #guix on Libera.chat.

Thanks in advance,
Ludo’.