summaryrefslogtreecommitdiff
path: root/example/posts/foo.sxml
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2015-07-27 08:54:30 -0400
committerDavid Thompson <dthompson2@worcester.edu>2015-07-27 08:54:30 -0400
commit228932a48bbae21a0b4ef1add4e2c1bfd9d68691 (patch)
tree19fe44b454204e37652f776e1f6098fddd484637 /example/posts/foo.sxml
parent2d82b5f2f07f5e730400857a7ef7e5cbb0dcf75a (diff)
example: Add image asset.
* example/haunt.scm: Add static directory builder. * example/images/guile-banner.small.png: New file. * example/posts/foo.sxml: Render Guile banner image.
Diffstat (limited to 'example/posts/foo.sxml')
-rw-r--r--example/posts/foo.sxml6
1 files changed, 5 insertions, 1 deletions
diff --git a/example/posts/foo.sxml b/example/posts/foo.sxml
index 4edde18..d49d420 100644
--- a/example/posts/foo.sxml
+++ b/example/posts/foo.sxml
@@ -1,3 +1,5 @@
+;;; -*- scheme -*-
+
(use-modules (srfi srfi-41)
(haunt utils))
@@ -19,4 +21,6 @@ posts. Here are the first "
" fibonacci numbers, computed with SRFI-41!")
(pre ,(object->string
(stream->list
- (stream-take count fib)))))))
+ (stream-take count fib))))
+ (p "Guile Scheme is great, eh?")
+ (img (@ (src "/images/guile-banner.small.png"))))))