From 9b649aa93546dfae5185a5382a6a1647e25ec8f8 Mon Sep 17 00:00:00 2001
From: Alice BRENON <alice.brenon@ens-lyon.fr>
Date: Thu, 23 Feb 2023 11:32:50 +0100
Subject: [PATCH] Cleaned and added edda-clinic

---
 geode/packages/encoding.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/geode/packages/encoding.scm b/geode/packages/encoding.scm
index abf6f26..75a5821 100644
--- a/geode/packages/encoding.scm
+++ b/geode/packages/encoding.scm
@@ -1,4 +1,5 @@
 (define-module (geode packages encoding)
+  #:use-module ((gnu packages base) #:select (sed))
   #:use-module ((gnu packages compression)
                 #:select (unzip zip))
   #:use-module ((gnu packages haskell-xyz)
@@ -8,6 +9,7 @@
                           ghc-pipes
                           ghc-roman-numerals
                           ghc-xml))
+  #:use-module ((gnu packages haskell-web) #:select (ghc-hxt ghc-hxt-xpath))
   #:use-module ((guix build-system gnu)
                 #:select (gnu-build-system))
   #:use-module ((guix build-system haskell)
@@ -22,6 +24,34 @@
                 #:select (package
                            origin base32)))
 
+
+(define-public edda-clinic
+  (package
+    (name "edda-clinic")
+    (version "0.2.0")
+    (home-page "https://gitlab.huma-num.fr/alicebrenon/EDdAClinic")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                     (url home-page)
+                     (commit version)))
+              (sha256
+               (base32
+                "097xqb8nmdlbhkypkhqy0mr88fr2v1mfgsjsjzvygys3nsgv166r"))))
+    (build-system haskell-build-system)
+    (propagated-inputs (list sed))
+    (inputs (list ghc-attoparsec
+                  ghc-html5-entity
+                  ghc-optparse-applicative
+                  ghc-hxt
+                  ghc-hxt-xpath
+                  ghc-xmlfilter))
+    (synopsis "EDdA XML fixer")
+    (description
+     "An ad hoc program to fix some XML errors in a XML-TEI encoding of the
+Encyclopedie.")
+      (license bsd-3)))
+
 (define-public ghc-html5-entity
   (package
     (name "ghc-html5-entity")
-- 
GitLab