diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-10-12 19:32:05 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-10-12 20:22:28 -0400 |
| commit | 1ddcff389d1cf42f90f883ea0b9db668182b3bda (patch) | |
| tree | 931eddcb78359db65634455a5ac90b9cfdff7d71 /example | |
| parent | ec79e5ad1f9614038575989e96e9f5c075a33efe (diff) | |
Add support for Skribe document format.
* haunt/skribe.scm: New file.
* haunt/skribe/utils.scm: New file.
* haunt/reader/skribe.scm: New file.
* configure.ac: Check for guile-reader.
* Makefile.am (SOURCES): Add Skribe modules when guile-reader is
available.
* example/haunt.scm: Include Skribe reader.
* example/posts/baz.skr: New file.
* README.md ("Requirements"): Mention guile-reader as optional dependency.
Diffstat (limited to 'example')
| -rw-r--r-- | example/haunt.scm | 11 | ||||
| -rw-r--r-- | example/posts/baz.skr | 29 |
2 files changed, 35 insertions, 5 deletions
diff --git a/example/haunt.scm b/example/haunt.scm index b292c9c..4095f87 100644 --- a/example/haunt.scm +++ b/example/haunt.scm @@ -1,16 +1,17 @@ -(use-modules (haunt site) - (haunt reader) - (haunt asset) +(use-modules (haunt asset) (haunt builder blog) (haunt builder atom) - (haunt builder assets)) + (haunt builder assets) + (haunt reader) + (haunt reader skribe) + (haunt site)) (site #:title "Built with Guile" #:domain "example.com" #:default-metadata '((author . "Eva Luator") (email . "eva@example.com")) - #:readers (list sxml-reader html-reader) + #:readers (list skribe-reader sxml-reader html-reader) #:builders (list (blog) (atom-feed) (atom-feeds-by-tag) diff --git a/example/posts/baz.skr b/example/posts/baz.skr new file mode 100644 index 0000000..abfb51a --- /dev/null +++ b/example/posts/baz.skr @@ -0,0 +1,29 @@ +(post + :title "Hello, Skribe!" + :date (make-date* 2015 10 09 23 00) + :tags '("foo" "bar" "baz") + + (h1 [Hello!]) + + (p [This is a Skribe document!]) + + (p [Skribe is a ,(em [really]) cool document authoring format that + provides all the power of Scheme whilst giving the user a + means to write literal text without stuffing it into a string + literal. If this sort of thing suits you, be sure to check out + ,(anchor "Skribilo" "http://www.nongnu.org/skribilo/"), too.]) + + (p [Here's a simple list generated by Scheme code:]) + + (ul (map li '("foo" "bar" "baz"))) + + (p [And here's a code snippet of how I build Haunt using GNU Guix:]) + + (source-code + "guix environment -l package.scm +./configure +make") + + (p [And finally, here's an image:]) + + (image "/images/guile-banner.small.png")) |