diff options
| -rw-r--r-- | src/pages.ml | 7 |
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 ["<", "<"; ">", ">"] @@ -34,7 +37,7 @@ let common content = <article>|} ^ content ^ {| </article> <footer> - <p>(c) 2021 – Alban Gruin – µCS |} ^ escape (Version.version ()) ^ {| « GEMINI II »</p> + <p>(c) |} ^ year () ^ {| – Alban Gruin – µCS |} ^ escape (Version.version ()) ^ {| « GEMINI II »</p> </footer> </body> </html> |