From 44473878d09b806e40d0ad146b867610712dd8a9 Mon Sep 17 00:00:00 2001
From: Hank <hanketsu@egregore.fun>
Date: Mon, 10 Feb 2025 22:23:39 +0100
Subject: [PATCH] [ADD] add parsee guix package

---
 .guix/modules/parsee.scm | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/.guix/modules/parsee.scm b/.guix/modules/parsee.scm
index 3c5ce83..75b8b64 100644
--- a/.guix/modules/parsee.scm
+++ b/.guix/modules/parsee.scm
@@ -5,8 +5,14 @@
   #:use-module (guix gexp)
   #:use-module (guix utils)
   #:use-module (gnu packages tls)
+  #:use-module (gnu packages databases)
   #:use-module ((guix licenses) #:prefix license:))
 
+(define vcs-file?
+  (or (git-predicate
+       (dirname (dirname (current-source-directory))))
+      (const #t)))
+
 (define-public cytoplasm
   (let ((commit "32f31fe6d61583630995d956ed7bd7566c4dc14f")
         (revision "0"))
@@ -45,3 +51,32 @@
       (description "Cytoplasm is a general-purpose C library for creating
 high-level (particularly networked and multi-threaded) C applications.")
       (license license:expat))))
+
+(define-public parsee
+  (package
+    (name "parsee")
+    (version "0.0.1-git")
+    (source
+     (local-file "../.." "parsee-checkout"
+                 #:recursive? #t
+                 #:select? vcs-file?))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:tests? #f
+      #:make-flags #~(list "CC=gcc"
+                           (string-append "CYTO_INC=" #$cytoplasm "/include")
+                           (string-append "CYTO_LIB=" #$cytoplasm "/lib")
+                           (string-append "PREFIX=" #$output))
+      #:phases #~(modify-phases %standard-phases
+                   (replace 'configure
+                     (lambda* (#:key inputs #:allow-other-keys)
+                       (let ((gcc (string-append (assoc-ref inputs "gcc") "/bin/gcc")))
+                         (invoke gcc "configure.c" "-o" "configure")
+                         (invoke "./configure")))))))
+    (home-page "https://git.kappach.at/lda/Parsee")
+    (synopsis "Jealous Matrix to XMPP bridge")
+    (description "Parsee is a Matrix-XMPP bridge written in C99 with Cytoplasm.")
+    (license license:agpl3+)))
+
+parsee