;;; Nani Project website

;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>

;;;

;;; This file is part of the Nani Project website.

;;;

;;; The Nani Project website is free software; you can redistribute it and/or modify it

;;; under the terms of the GNU Affero General Public License as published by

;;; the Free Software Foundation; either version 3 of the License, or (at

;;; your option) any later version.

;;;

;;; The Nani Project website 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 Affero General Public License for more details.

;;;

;;; You should have received a copy of the GNU Affero General Public License

;;; along with the Nani Project website.  If not, see <http://www.gnu.org/licenses/>.

(define-module (tools haunt-i18n)

  #:use-module (haunt builder blog)

  #:use-module (haunt html)

  #:use-module (haunt page)

  #:use-module (sxml simple)

  #:use-module (ice-9 match)

  #:use-module (tools i18n)

  #:export (internationalize))

(define (make-my-page lang title filename body layout)

  (lambda (site posts)

    (define (my-body)

      (site-locale lang)

      (tr body))

    (make-page (if (equal? lang "")

                 (string-append filename ".html")

                 (string-append filename "." lang ".html"))

               (with-layout (layout lang filename) site title (my-body))

               sxml->html)))

(define (internationalize title filename body layout)

  (map (lambda (lang) (make-my-page lang title filename body layout)) languages))