;;; 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."))))))