From 1b2b7c3eb939724696894f31ff27db97b0cac84c Mon Sep 17 00:00:00 2001 From: Andreas Widen Date: Sat, 25 Nov 2023 17:21:37 +0100 Subject: Initial commit. Signed-off-by: Andreas Widen --- apps/media/templates/screenshots-overview.scm | 28 +++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 apps/media/templates/screenshots-overview.scm (limited to 'apps/media/templates/screenshots-overview.scm') diff --git a/apps/media/templates/screenshots-overview.scm b/apps/media/templates/screenshots-overview.scm new file mode 100644 index 0000000..fee601b --- /dev/null +++ b/apps/media/templates/screenshots-overview.scm @@ -0,0 +1,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))))) -- cgit v1.2.3-54-g00ecf