From 228932a48bbae21a0b4ef1add4e2c1bfd9d68691 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 27 Jul 2015 08:54:30 -0400 Subject: 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. --- example/posts/foo.sxml | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'example/posts') 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")))))) -- cgit v1.2.3