;;; GNU Guix web site
;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu>
;;; Initially written by sirgazil who waives all
;;; copyright interest on this file.

(define-module (apps media templates community)
  #:use-module (apps base templates theme)
  #:use-module (apps base utils)
  #:use-module (apps i18n)
  #:use-module (apps media templates components)
  #:export (community-t))

(define (community-t community-resources)
  "Return an SHTML page for all COMMUNITY-RESOURCES."
  (theme
   #:title (C_ "webpage title" '("Community"))
   #:description (G_ "Links to resources created by the community")
   #:keywords
   (string-split ;TRANSLATORS: |-separated list of webpage keywords
    (G_ "GNU|Linux|Unix|Free software|Libre software|Operating \
system|GNU Hurd|GNU Guix package manager|GNU Guile|Guile \
Scheme|Transactional upgrades|Functional package \
management|Reproducibility") #\|)
   #:active-menu-item (C_ "website menu" "Media")
   #:css (list (guix-url "static/base/css/index.css")
               (guix-url "static/base/css/item-preview.css")
               (guix-url "static/media/css/community.css"))
   #:content
   `(main
     (section
      (@ (class "page"))
      (div
       (@ (class "resource-box"))
       ,@(map resource->shtml community-resources))))))