From 1ddcff389d1cf42f90f883ea0b9db668182b3bda Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 12 Oct 2015 19:32:05 -0400
Subject: 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.
---
 example/haunt.scm     | 11 ++++++-----
 example/posts/baz.skr | 29 +++++++++++++++++++++++++++++
 2 files changed, 35 insertions(+), 5 deletions(-)
 create mode 100644 example/posts/baz.skr

(limited to 'example')

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"))
-- 
cgit v1.2.3