38 lines
1.3 KiB
Scheme
38 lines
1.3 KiB
Scheme
;;; site/contact.scm
|
|
|
|
(import "util.scm")
|
|
|
|
(define title "Contact")
|
|
|
|
(define (make-matrix-uri type mxid)
|
|
(build-uri 'matrix #:path (join-path 'infix type mxid)))
|
|
|
|
(define (make-xmpp-uri localpart domainpart)
|
|
(build-uri 'xmpp #:path (string-append localpart "@" domainpart)))
|
|
|
|
`(,@(import "header.scm")
|
|
(p "The main media I use are as follows:")
|
|
(a ,(make-xmpp-uri "snit" "isekai.rocks")
|
|
"snit@isekai.rocks (XMPP) (Preferred)")
|
|
(a ,(make-matrix-uri "u" "rinte:isekai.rocks")
|
|
"@rinte:isekai.rocks (Matrix)")
|
|
(a ,(build-uri 'mailto #:path (string-append "snit" "@" "cock.li"))
|
|
"snit@cock.li (E-Mail)")
|
|
(p)
|
|
(h2 "Secondary Accounts")
|
|
(p "I also own the following accounts, although I prefer you use the accounts listed above if you wish to contact me. Note that this is not a comprehensive list.")
|
|
(p)
|
|
(h3 "Matrix")
|
|
,@(map (lambda (mxid) `(a ,(make-matrix-uri "u" mxid) ,(string-append "@" mxid)))
|
|
'("snite:telepath.im"
|
|
"snute:ip-logger.com"
|
|
"bartholomew:squarebowl.club"))
|
|
(p)
|
|
(h3 "XMPP")
|
|
,@(map (lambda (l d) `(a ,(make-xmpp-uri l d) ,(string-append l "@" d)))
|
|
'("snite" "snute")
|
|
'("telepath.im" "ip-logger.com"))
|
|
(p)
|
|
(h2 "PGP Key")
|
|
(p "If someone claiming to be me contacts you, please ask to verify my PGP key:")
|
|
(a ,(build-uri/capsule "pgp.txt") "PGP Key"))
|