diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-07-27 08:54:30 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-07-27 08:54:30 -0400 |
| commit | 228932a48bbae21a0b4ef1add4e2c1bfd9d68691 (patch) | |
| tree | 19fe44b454204e37652f776e1f6098fddd484637 /example | |
| parent | 2d82b5f2f07f5e730400857a7ef7e5cbb0dcf75a (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')
| -rw-r--r-- | example/haunt.scm | 4 | ||||
| -rw-r--r-- | example/images/guile-banner.small.png | bin | 0 -> 20977 bytes | |||
| -rw-r--r-- | example/posts/foo.sxml | 6 |
3 files changed, 8 insertions, 2 deletions
diff --git a/example/haunt.scm b/example/haunt.scm index 66a8392..35c7ae2 100644 --- a/example/haunt.scm +++ b/example/haunt.scm @@ -3,6 +3,7 @@ (haunt asset) (haunt builder blog) (haunt builder atom) + (haunt builder assets) (srfi srfi-19)) (site #:title "Built with Guile" @@ -13,4 +14,5 @@ #:readers (list sxml-reader html-reader) #:builders (list (blog) (atom-feed) - (atom-feeds-by-tag))) + (atom-feeds-by-tag) + (static-directory "images"))) diff --git a/example/images/guile-banner.small.png b/example/images/guile-banner.small.png Binary files differnew file mode 100644 index 0000000..0d9d5a0 --- /dev/null +++ b/example/images/guile-banner.small.png 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")))))) |
