From: Amélia Coutard-Sander Date: Sun, 15 Feb 2026 11:15:35 +0000 (+0100) Subject: Le fichier index.html est maintenant *vraiment* du OCaml X-Git-Url: https://git.f4mnq.fr/?a=commitdiff_plain;h=fe45c2a3b4d7dad4b3c2f746321745da4be5633d;p=site-web-pro.git Le fichier index.html est maintenant *vraiment* du OCaml --- diff --git a/dune-project b/dune-project index e77f33f..c970ded 100644 --- a/dune-project +++ b/dune-project @@ -16,5 +16,5 @@ (name site-web-pro) (synopsis "Site web professionnel") (description "Le site web professionnel d'Amélia COUTARD-SANDER, écrit en OCaml") - (depends ocaml) + (depends ocaml tyxml) (tags ("site web" "ocaml"))) diff --git a/f4mnq/dune b/f4mnq/dune index e174c57..fd3f727 100644 --- a/f4mnq/dune +++ b/f4mnq/dune @@ -1,11 +1,13 @@ (executables (public_names index style) - (libraries html)) + (libraries html tyxml)) (install (files (index.html as f4mnq/index.html) (style.css as f4mnq/style.css) + (glob_files + (COPYING-* with_prefix f4mnq)) (glob_files (mpring/* with_prefix f4mnq/mpring))) (section share)) diff --git a/f4mnq/index.ml b/f4mnq/index.ml index f2dd5f0..1ac093b 100644 --- a/f4mnq/index.ml +++ b/f4mnq/index.ml @@ -15,35 +15,68 @@ * along with this website. If not, see . *) -Printf.printf "%s" - {| - - - - - - -
-

Bonjour ! Ici Amélia Coutard-Sander, aka F4MNQ, une étudiante (et - future chercheuse si tout se passe bien) en informatique.

+open Tyxml -

Vous pouvez trouver certains de mes projets dans les dépôts git - ci-joints.

+let licence statement info text = + let open Html in + [ + txt statement; txt " ("; a ~a:[a_href info] [txt "info"]; txt " | "; a ~a:[a_href text] [txt "texte"]; txt ")."; + ] -

Il est possible de me contacter par mail à l'adresse - "contact AROBASE <le domaine de ce site> (f4[···].fr)".

+let html : Html.doc = + let open Html in + html + (head + (title (txt "F4MNQ - Amélia Coutard-Sander")) + [meta ~a:[a_charset "UTF-8"] (); link ~rel:[`Stylesheet] ~href:"/style.css" ()]) + (body + [ + div + ~a:[a_id "content"] + [ + p + [ + txt + "Bonjour ! Ici Amélia Coutard-Sander, aka F4MNQ, une étudiante (et future chercheuse si tout \ + se passe bien) en informatique."; + ]; + p + [ + txt "Vous pouvez trouver certains de mes projets dans les dépôts git "; + a ~a:[a_href "https://git.f4mnq.fr/"] [txt "ci-joints"]; + txt "."; + ]; + p + [ + txt + "Il est possible de me contacter par mail à l'adresse \"contact AROBASE (f4[···].fr)\"."; + ]; + p + [ + txt + "En bas de cette page est un webring avec certain·e·s de mes ami·e·s, et mes camarades \ + d'informatique."; + ]; + ]; + p + (txt "Copyright 2026 Amélia COUTARD-SANDER." + :: br () + :: licence "Le code de ce site est sous la licence AGPLv3, ou une version ultérieure" + "https://www.gnu.org/licenses/quick-guide-gplv3.html" "/COPYING-AGPL-3.0" + @ br () + :: licence "Son contenu est sous la licence CC BY-SA 4.0, ou une version ultérieure" + "https://creativecommons.org/licenses/by-sa/4.0/" "/COPYING-CC-BY-SA-4.0"); + iframe + ~a: + [ + a_id "mpring"; + a_src "https://mpring.f4mnq.fr/ring.html"; + a_title "Webring amical"; + a_width 200; + a_height 80; + ] + []; + ]) -

En bas de cette page est un webring avec certain·e·s de mes ami·e·s - et mes camarades d'informatique.

-
-

-Copyright 2026 Amélia COUTARD-SANDER.
-Le code de ce site est sous la licence AGPLv3, ou une version ultérieure - (info | texte).
-Son contenu est sous la licence CC BY-SA 4.0, ou une version ultérieure - (info | texte). -

- - - -|} +let () = Format.printf "%a" (Html.pp ()) html diff --git a/guix/site-web-pro.scm b/guix/site-web-pro.scm index 03f34a0..a618643 100644 --- a/guix/site-web-pro.scm +++ b/guix/site-web-pro.scm @@ -14,6 +14,7 @@ ; along with this website If not, see . (define-module (site-web-pro) + #:use-module (gnu packages ocaml) #:use-module (guix build-system dune) #:use-module (guix gexp) #:use-module (guix git-download) @@ -30,6 +31,7 @@ (version "1.0-git") (source (local-file (dirname (dirname (current-filename))) "site-web-pro-checkout" #:recursive? #t #:select? vcs-file?)) (build-system dune-build-system) + (inputs (list ocaml-re ocaml-uutf ocaml-tyxml)) (synopsis "Mon site web professionel") (description "Mon site web professionel, statique, écrit en OCaml.") (home-page "https://www.f4mnq.fr")