blob: 5a32016fafd79a1885bebd7ea8c74d80a1f278d9 (
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
;;; Harmonic Flow web site
(define-module (apps media templates screenshot)
#:use-module (apps base templates theme)
#:use-module (apps base types)
#:use-module (apps base utils)
#:use-module (apps media templates components)
#:use-module (apps media types)
#:use-module (apps i18n)
#:export (screenshot-t))
(define (screenshot-t context)
"Return an SHTML page for the screenshot in the CONTEXT."
(let ((shot (context-datum context "screenshot"))
(shots (context-datum context "screenshots")))
(theme
#:title (list (screenshot-title shot) (C_ "webpage title" "screenshot |"))
#:description (screenshot-caption shot)
#:keywords
(string-split ;TRANSLATORS: |-separated list of webpage keywords
(G_ "Harmonic Flow|HFGE|Screenshot") #\|)
#:active-menu-item (C_ "website menu" "Screenshots")
#:css (list (hfweb-url "static/base/css/index.css")
(hfweb-url "static/media/css/screenshots.css"))
#:crumbs (list (crumb (C_ "website menu" "Screenshots") (hfweb-url "screenshots/"))
(crumb (screenshot-title shot) "./"))
#:content
`(main
(section
(@ (class "light-text centered-text noise-bg"))
(h2
(@ (class "a11y-offset"))
,(screenshot-title shot))
(div
(@ (class "screenshot-viewer"))
(img
(@ (class "responsive-image centered-block")
(src ,(screenshot-image shot))
(alt ,(screenshot-caption shot)))))
,(screenshots-box shots #:shadow #t))))))
|
