From 18d0edfc7c57c73f169df92dcee47a719ef7c97f Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Mon, 20 Nov 2023 10:11:28 +0200
Subject: [PATCH] =?UTF-8?q?M=C3=A4=C3=A4rit=C3=A4=20Guix-kanava?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .guix-channel                                 |  4 +++
 .guix/modules/data-gitea-markdown-package.scm | 27 +++++++++++++++++++
 gitea-markdown/guix.scm                       |  8 ++++++
 3 files changed, 39 insertions(+)
 create mode 100644 .guix-channel
 create mode 100644 .guix/modules/data-gitea-markdown-package.scm
 create mode 100644 gitea-markdown/guix.scm

diff --git a/.guix-channel b/.guix-channel
new file mode 100644
index 0000000..1dbdb2b
--- /dev/null
+++ b/.guix-channel
@@ -0,0 +1,4 @@
+(channel
+  (version 0)
+  (url "https://git.datat.fi/ry/datarekisteri.git")
+  (directory ".guix/modules"))
diff --git a/.guix/modules/data-gitea-markdown-package.scm b/.guix/modules/data-gitea-markdown-package.scm
new file mode 100644
index 0000000..1c0246c
--- /dev/null
+++ b/.guix/modules/data-gitea-markdown-package.scm
@@ -0,0 +1,27 @@
+(define-module (data-gitea-markdown-package)
+  #:use-module (guix)
+  #:use-module (guix build-system haskell)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (gnu packages haskell-web)
+  #:use-module (gnu packages haskell-xyz))
+
+(define vcs-file?
+  (or (git-predicate (string-append (current-source-directory) "/../.."))
+      (const #t)))
+
+(define-public data-gitea-markdown
+  (package
+    (name "data-gitea-markdown")
+    (version "0.0.1")
+    (source (local-file "../../gitea-markdown" "data-gitea-markdown"
+                        #:recursive? #t
+                        #:select? vcs-file?))
+    (build-system haskell-build-system)
+    (inputs (list ghc-pandoc ghc-pandoc-types ghc-tagsoup))
+    (home-page "")
+    (synopsis "")
+    (description "")
+    (license license:agpl3+)))
diff --git a/gitea-markdown/guix.scm b/gitea-markdown/guix.scm
new file mode 100644
index 0000000..6e962c1
--- /dev/null
+++ b/gitea-markdown/guix.scm
@@ -0,0 +1,8 @@
+(use-modules (guix))
+
+(add-to-load-path (string-append (current-source-directory) "/../.guix/modules"))
+
+(use-modules
+  (data-gitea-markdown-package))
+
+data-gitea-markdown