1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
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."))
))))
|