pages: always show the current year in the copyright

Signed-off-by: Alban Gruin <alban at pa1ch dot fr>

1 files changed, 5 insertions, 2 deletions

diff --git a/src/pages.ml b/src/pages.ml
index 86396a4..e9f255a 100644
--- a/src/pages.ml
+++ b/src/pages.ml
@@ -1,5 +1,5 @@
 (*
- *    Copyright (C) 2020, 2021  Alban Gruin
+ *    Copyright (C) 2020 -- 2022  Alban Gruin
  *
  *    ucs is free software: you can redistribute it and/or modify
  *    it under the terms of the GNU Affero General Public License as published
@@ -15,6 +15,9 @@
  *    along with ucs.  If not, see <http://www.gnu.org/licenses/>.
  *)
 
+let year () =
+  Int.to_string CalendarLib.Calendar.(year @@ now ())
+
 let escape str =
   Stringext.replace_all_assoc str ["<", "&lt;"; ">", "&gt"]
 
@@ -34,7 +37,7 @@ let common content =
     <article>|} ^ content ^
 {|    </article>
     <footer>
-      <p>(c) 2021 &ndash; Alban Gruin &ndash; µCS |} ^ escape (Version.version ()) ^ {| « GEMINI II »</p>
+      <p>(c) |} ^ year () ^ {| &ndash; Alban Gruin &ndash; µCS |} ^ escape (Version.version ()) ^ {| « GEMINI II »</p>
     </footer>
   </body>
 </html>