[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#49929] [PATCH] gnu: Add gmid.
From: |
cage |
Subject: |
[bug#49929] [PATCH] gnu: Add gmid. |
Date: |
Sat, 26 Feb 2022 16:53:57 +0100 |
On Wed, Feb 23, 2022 at 11:33:59PM -0500, Maxim Cournoyer wrote:
Hi!
Thanks for your feedback!
[...]
> The rest looks good to me, well done!
> Could you send an update with changes along these lines?
Here is my best attempt to fix the definition form following your
advice; i have enabled the 'check' phase and removed the backtick
notation. I was not able to update the call to 'invoke', because
-honestly- i was not able to wrap my head around g-expr. I hope the
results are acceptable by the way! :)
Bye and thanks again!
C.
---
gnu/packages/networking.scm | 38 +++++++++++++++++++++++++++++++++++++
1 file changed, 38 insertions(+)
diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm
index 11f1cad007..49776fd666 100644
--- a/gnu/packages/networking.scm
+++ b/gnu/packages/networking.scm
@@ -48,6 +48,7 @@
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2022 Simon South <simon@simonsouth.net>
+;;; Copyright © 2022 cage <cage-dev@twistfold.it>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -4196,3 +4197,40 @@ (define-public putty
implementations.")
(home-page "https://www.chiark.greenend.org.uk/~sgtatham/putty/")
(license license:expat)))
+
+(define-public gmid
+ (package
+ (name "gmid")
+ (version "1.7.2")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append
"https://github.com/omar-polo/gmid/releases/download/"
+ version "/gmid-" version ".tar.gz"))
+ (sha256
+ (base32 "0ag5zcwnr5vmy13bc9c36hnv9pflks68b0k6w0ng97inrm37klis"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list #:test-target "regress"
+ #:phases
+ #~(modify-phases %standard-phases
+ (replace 'configure
+ ;; The configure script is hand-written, not from GNU
autotools.
+ (lambda* (#:key configure-flags inputs outputs
#:allow-other-keys)
+ (let ((prefix (string-append "PREFIX=" (assoc-ref outputs
"out"))))
+ (setenv "CC" #$(cc-for-target))
+ (apply invoke "./configure" (list prefix))))))))
+ (native-inputs
+ (list pkg-config
+ bison
+ flex
+ coreutils
+ which
+ procps))
+ (inputs
+ (list libevent
+ libressl))
+ (home-page "https://git.omarpolo.com/gmid/about/")
+ (synopsis "Simple and secure Gemini server")
+ (description "Gmid is a fast Gemini server written with security in mind.")
+ (license license:x11)))
--
2.34.0