;;; 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 (pages blog)
  #:use-module (tools haunt-i18n)
  #:use-module (tools i18n)
  #:use-module (tools theme)
  #:use-module (haunt builder blog)
  #:use-module (haunt post)
  #:export (blog-pages get-posts))

(define (get-posts posts)
  "Returns POSTS sorted in reverse chronological order, excluding drafts."
  (filter (lambda (post)
            (not (member "draft" (post-ref post 'tags))))
    (posts/reverse-chronological posts)))

(define (get-lang-posts lang)
  (lambda (posts)
    "Returns POSTS sorted in reverse chronological order, excluding drafts."
    (filter (lambda (post)
              (and (not (member "draft" (post-ref post 'tags)))
                   (member lang (post-ref post 'tags))))
      (posts/reverse-chronological posts))))

(define (get-every-posts posts)
  (filter (lambda (post)
            (not (member "draft" (post-ref post 'tags))))
    (posts/reverse-chronological posts)))

(define get-posts-en (get-lang-posts "en"))

(define nani-articles-en
`(("Articles" "blog.en.html" ,get-posts-en)))


(define %articles
`(("Articles" "blog.html" ,get-posts)))

(define %complete-articles
`(("Articles" "blog-complete.html" ,get-posts)))
(define %complete-articles-en
`(("Articles" "blog-complete.en.html" ,get-posts))) 

(define blog-pages
  (list 
    (blog #:theme (nani-theme "en" "blog") #:collections nani-articles-en)
    (blog #:theme (nani-theme "en" "blog-complete") #:collections %complete-articles-en)))