From 1b2b7c3eb939724696894f31ff27db97b0cac84c Mon Sep 17 00:00:00 2001
From: Andreas Widen <andreas@harmonicflow.org>
Date: Sat, 25 Nov 2023 17:21:37 +0100
Subject: Initial commit.

Signed-off-by: Andreas Widen <andreas@harmonicflow.org>
---
 apps/base/templates/about.scm | 57 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 apps/base/templates/about.scm

(limited to 'apps/base/templates/about.scm')

diff --git a/apps/base/templates/about.scm b/apps/base/templates/about.scm
new file mode 100644
index 0000000..bb7e91d
--- /dev/null
+++ b/apps/base/templates/about.scm
@@ -0,0 +1,57 @@
+;;; Harmonic Flow web site
+
+(define-module (apps base templates about)
+  #:use-module (apps base templates components)
+  #:use-module (apps base templates theme)
+  #:use-module (apps base types)
+  #:use-module (apps base utils)
+  #:use-module (apps i18n)
+  #:export (about-t))
+
+
+(define (about-t)
+  "Return the About page in SHTML."
+  (theme
+   #:title (C_ "webpage title" '("About the Site |"))
+   #:description
+   (G_ "This website is dedicated to free software primarily in the area of graphics engines but also free software in general.")
+   #:keywords
+   (string-split ;TRANSLATORS: |-separated list of webpage keywords
+    (G_ "About|Harmonic Flow") #\|)
+   #:active-menu-item (C_ "website menu" "About Site")
+   #:css (list
+	  (hfweb-url "static/base/css/page.css"))
+   #:crumbs (list (crumb (C_ "website menu" "About Site") "./"))
+   #:content
+   `(main
+     (section
+      (@ (class "page centered-block limit-width"))
+      ,(G_ `(h2 "About the Site"))
+
+      ,(G_
+        `(p
+          "This website is dedicated to free software primarily in the area of
+          graphics engines but also free software in general."
+          ))
+
+      ,(G_
+        `(p
+          "The "
+          ,(G_ `(a (@ (href ,(hfweb-url "blog/"))) " Harmonic Flow Blog"))
+          " will cover any topics that is of interest (mostly related to free
+          software in some way)."
+          ))
+
+      ,(G_
+        `(p
+          "Checkout "
+          ,(G_ `(a (@ (href ,(hfweb-url "hfge-about/"))) " HFGE 3D graphics engine"))
+          " for more information about a brand new cross platform 3D graphics
+          engine currently in development."
+          ))
+
+      ,(G_
+        `(p
+          "Please use the "
+          ,(G_ `(a (@ (href ,(hfweb-url "contact/"))) " contact page"))
+          " for contact information."))))))
-- 
cgit v1.2.3-54-g00ecf