summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFlorian Pelz <pelzflorian@pelzflorian.de>2017-06-01 12:05:33 +0200
committerFlorian Pelz <pelzflorian@pelzflorian.de>2017-06-01 12:05:33 +0200
commitfcd15639c76b64186a81557831db9ade1b343634 (patch)
treeac63056c9d0fda88a2020043e3d81bcbfa647450
parente5133fb22737cdb1881ed92357972dc8f35312dd (diff)
Fix indentation.
-rw-r--r--haunt.scm94
1 files changed, 47 insertions, 47 deletions
diff --git a/haunt.scm b/haunt.scm
index 3b5313e..2bb5c95 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -249,11 +249,11 @@
(div (@ (id "linguas-div"))
,(map (lambda (lingua)
`(span (@ (class "horizontally-padded"))
- ,(if (equal? lingua current-lingua)
- lingua
- `(a (@ (href
- ,(string-append "/" "index-" lingua ".html")))
- ,lingua))))
+ ,(if (equal? lingua current-lingua)
+ lingua
+ `(a (@ (href
+ ,(string-append "/" "index-" lingua ".html")))
+ ,lingua))))
linguas))))
(div (@ (id "center"))
(div (@ (id "side-bar"))
@@ -275,47 +275,47 @@
(build-url feeds-dir current-lingua "feed.xml")
(_ "Subscribe to Atom feed")))))
(div (@ (id "content"))
- ,body
- (footer
- (div (@ (id "contact"))
- (h1
- (@ (class "contact-heading"))
- ,(_ "Contact me:"))
- (div
- ,(_ "Mail:")
- " "
- (a (@ (href "mailto:pelzflorian@pelzflorian.de"))
- "pelzflorian@pelzflorian.de"))
- (div
- "XMPP:"
- " "
- (a (@ (href "xmpp:pelzflorian@chat.pelzflorian.de?message"))
- "pelzflorian@chat.pelzflorian.de"))
- (div
- ,(_ "GnuPG key:")
- " "
- (a (@ (href "/files/key.asc"))
- "0x4947055B")
- " ("
- ,(_ "valid until")
- " 01/27/2019)"))
- (div (@ (id "source-code-link"))
- ,(_ "Find the source code for this website")
- " "
- (a (@ (href ,(build-url "git" "pelzfloriande-website")))
- ,(_ "here"))
- ".")
- (div (@ (id "powered-by"))
- ,(_ "Powered by")
- " "
- (a (@ (href "https://www.gnu.org/software/guile/"))
- "GNU Guile")
- " "
- ,(_ "and")
- " "
- (a (@ (href "https://haunt.dthompson.us/"))
- "Haunt")
- ".")))))))))
+ ,body
+ (footer
+ (div (@ (id "contact"))
+ (h1
+ (@ (class "contact-heading"))
+ ,(_ "Contact me:"))
+ (div
+ ,(_ "Mail:")
+ " "
+ (a (@ (href "mailto:pelzflorian@pelzflorian.de"))
+ "pelzflorian@pelzflorian.de"))
+ (div
+ "XMPP:"
+ " "
+ (a (@ (href "xmpp:pelzflorian@chat.pelzflorian.de?message"))
+ "pelzflorian@chat.pelzflorian.de"))
+ (div
+ ,(_ "GnuPG key:")
+ " "
+ (a (@ (href "/files/key.asc"))
+ "0x4947055B")
+ " ("
+ ,(_ "valid until")
+ " 01/27/2019)"))
+ (div (@ (id "source-code-link"))
+ ,(_ "Find the source code for this website")
+ " "
+ (a (@ (href ,(build-url "git" "pelzfloriande-website")))
+ ,(_ "here"))
+ ".")
+ (div (@ (id "powered-by"))
+ ,(_ "Powered by")
+ " "
+ (a (@ (href "https://www.gnu.org/software/guile/"))
+ "GNU Guile")
+ " "
+ ,(_ "and")
+ " "
+ (a (@ (href "https://haunt.dthompson.us/"))
+ "Haunt")
+ ".")))))))))
(define (pelzflorian-blue-theme current-lingua)
(theme #:name "Pelzflorian Blue"
@@ -414,7 +414,7 @@
,(tags-for-post-for-lingua most-recent-post current-lingua)
,(recent-post-link-for-lingua current-lingua)))
""))) ; don’t print any posts if there are no posts yet
- sxml->html)))))
+ sxml->html)))))
(define (builders-for-lingua lingua)
(let* ((current-lingua lingua)