blob: fee601b6437e3afa0f57e039ed57b4a24aabcd5c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
;;; Harmonic Flow web site
(define-module (apps media templates screenshots-overview)
#:use-module (apps base templates theme)
#:use-module (apps base types)
#:use-module (apps base utils)
#:use-module (apps i18n)
#:use-module (apps media templates components)
#:export (screenshots-overview-t))
(define (screenshots-overview-t screenshots)
"Return an SHTML page for all SCREENSHOTS."
(theme
#:title (C_ "webpage title" '("Overview of all available screenshots |"))
#:description (G_ "Overview of all available screenshots.")
#:keywords
(string-split ;TRANSLATORS: |-separated list of webpage keywords
(G_ "Harmonic Flow|HFGE|Screenshots|Overview") #\|)
#:active-menu-item (C_ "website menu" "Screenshots")
#:css (list (hfweb-url "static/base/css/index.css"))
#:crumbs (list (crumb (C_ "website menu" "Screenshots") "./"))
#:content
`(main
(section
(@ (class "light-text centered-text noise-bg"))
,(screenshots-box screenshots (length screenshots) #:shadow #t)))))
|
