;;; Harmonic Flow web site

(define-module (apps base templates contact)
  #: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 (contact-t))


(define (contact-t)
  "Return the Contact page in SHTML."
  (theme
   #:title (C_ "webpage title" '("Contact |"))
   #:description
   (G_ "A list of channels to communicate with Harmonic Flow directly about anything you want.")
   #:keywords
   (string-split ;TRANSLATORS: |-separated list of webpage keywords
    (G_ "Contact|Harmonic Flow") #\|)
   #:active-menu-item (C_ "website menu" "Contact")
   #:css (list
	  (hfweb-url "static/base/css/page.css"))
   #:crumbs (list (crumb (C_ "website menu" "Contact") "./"))
   #:content
   `(main
     (section
      (@ (class "page centered-block limit-width"))
      ,(G_ `(h2 "Contact"))

      ,(G_
        `(p
          "Contact info email / xmpp: andreas at harmonicflow dot o r g"))

      ,(G_
        `(p
          "Please download & import the following "
          ,(G_ `(a (@ (href ,(hfweb-url "static/gnupg-pubkeys/andreas-pubkey.asc"))) " GPG key"))
          " if you want to send me encrypted email:"
          ))

      ,(G_
        `(pre
          "gpg --import /path/to/andreas-pubkey.asc"))
      ,(G_
        `(p
          ".. or by using the following command:"
          ))

      ,(G_
        `(pre
          "gpg --recv-keys 0x14121B58362B5F22"))

      ,(G_
        `(p
          "The public key fingerprint should be:"))

      ,(G_
        `(pre
          "9ECF C528 9712 3654 F76B  63FD 1412 1B58 362B 5F22"))

      ,(G_
        `(p
          "For more information about encryption and GnuPG, see: "
          ,(G_ `(a (@ (href "https://www.gnupg.org"))
          "GnuPG website."))
          ))

      ,(G_
        `(p
          "The above public key is also used for signing releases."))
      ))))