Initial commit.

Signed-off-by: Andreas Widen <andreas@harmonicflow.org>

1 files changed, 72 insertions, 0 deletions

diff --git a/apps/base/templates/contact.scm b/apps/base/templates/contact.scm
new file mode 100644
index 0000000..88ab2a8
--- /dev/null
+++ b/apps/base/templates/contact.scm
@@ -0,0 +1,72 @@
+;;; 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."))
+      ))))