From: Amélia Coutard-Sander <git@ameliathe1st.gay>
Date: Fri, 19 Sep 2025 17:38:31 +0000 (+0200)
Subject: Canal guix !
X-Git-Url: https://git.ameliathe1st.gay/?a=commitdiff_plain;h=d3601cd25c4cbd8f892fb5927f69c52fed7b5961;p=site-web.git

Canal guix !
---

diff --git a/.guix-channel b/.guix-channel
new file mode 100644
index 0000000..1afbf7f
--- /dev/null
+++ b/.guix-channel
@@ -0,0 +1,4 @@
+(channel
+  (version 0)
+  (directory "guix")
+  (url "https://git.ameliathe1st.gay/site-web.git"))
diff --git a/guix/site-web.scm b/guix/site-web.scm
new file mode 100644
index 0000000..56d6cd5
--- /dev/null
+++ b/guix/site-web.scm
@@ -0,0 +1,52 @@
+; Copyright 2023 Amélia COUTARD.
+;
+; This file from the guix channel amy is free software: you can redistribute it and/or modify it
+; under the terms of the GNU General Public License as published by the Free Software Foundation,
+; either version 3 of the License, or (at your option) any later version.
+;
+; This channel is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
+; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+; PURPOSE. See the GNU General Public License for more details.
+;
+; You should have received a copy of the GNU General Public License along with this channel. If
+; not, see <https://www.gnu.org/licenses/>.
+
+(define-module (site-web)
+  #:use-module (gnu packages fontutils)
+  #:use-module (gnu packages databases)
+  #:use-module (gnu packages music)
+  #:use-module (gnu packages web)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix download)
+  #:use-module (guix gexp)
+  #:use-module (guix git-download)
+  #:use-module ((guix licenses)
+                #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix utils)
+  #:export (site-web))
+
+(define vcs-file?
+  (or (git-predicate (current-source-directory))
+      (const #t)))
+
+(define site-web
+  (package
+    (name "site-web")
+    (version "1.0-git")
+    (source (local-file ".." "site-web-checkout" #:recursive? #t #:select? vcs-file?))
+    (build-system gnu-build-system)
+    (inputs (list fontforge jq lilypond recutils ocaml ocaml-tyxml))
+    (arguments
+     (list
+      #:phases #~(modify-phases %standard-phases
+                   (delete 'configure)
+                   (delete 'check)
+                   (replace 'install
+                     (lambda* (#:key output #:allow-other-keys)
+                       (mkdir-p (string-append #$output "/share/"))
+                       (invoke "cp" "-r" "out" (string-append #$output "/share/site-web")))))))
+    (synopsis "Mon site web")
+    (description "Mon site web statique, implémenté en OCaml.")
+    (home-page "https://www.ameliathe1st.gay")
+    (license license:agpl3+)))