From 65cced1ddad32fdeedebd985c8d66ba155bd146f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 15 Oct 2015 22:50:18 -0400
Subject: reader: Add texinfo support.

* haunt/reader/texinfo.scm: New file.
* Makefile.am (SOURCES): Add it.
* example/haunt.scm: Activate texinfo reader.
* example/posts/quux.scm: New file.
---
 example/haunt.scm       |  3 ++-
 example/posts/quux.texi | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 34 insertions(+), 1 deletion(-)
 create mode 100644 example/posts/quux.texi

(limited to 'example')

diff --git a/example/haunt.scm b/example/haunt.scm
index 4095f87..26d7b9a 100644
--- a/example/haunt.scm
+++ b/example/haunt.scm
@@ -4,6 +4,7 @@
              (haunt builder assets)
              (haunt reader)
              (haunt reader skribe)
+             (haunt reader texinfo)
              (haunt site))
 
 (site #:title "Built with Guile"
@@ -11,7 +12,7 @@
       #:default-metadata
       '((author . "Eva Luator")
         (email  . "eva@example.com"))
-      #:readers (list skribe-reader sxml-reader html-reader)
+      #:readers (list texinfo-reader skribe-reader sxml-reader html-reader)
       #:builders (list (blog)
                        (atom-feed)
                        (atom-feeds-by-tag)
diff --git a/example/posts/quux.texi b/example/posts/quux.texi
new file mode 100644
index 0000000..ae5f0ff
--- /dev/null
+++ b/example/posts/quux.texi
@@ -0,0 +1,32 @@
+title: Hello, Texi!
+date: 2015-10-15 22:00
+tags: foo, bar
+---
+
+This is a test of the @emph{texinfo} reader for Haunt.  I sure hope it
+works well.  Here is a URL to the @url{http://haunt.dthompson.us,
+Haunt home page}.
+
+@example
+(use-modules (haunt asset)
+             (haunt builder blog)
+             (haunt builder atom)
+             (haunt builder assets)
+             (haunt reader)
+             (haunt reader skribe)
+             (haunt reader texinfo)
+             (haunt site))
+
+(site #:title "Built with Guile"
+      #:domain "example.com"
+      #:default-metadata
+      '((author . "Eva Luator")
+        (email  . "eva@@example.com"))
+      #:readers (list texinfo-reader skribe-reader sxml-reader html-reader)
+      #:builders (list (blog)
+                       (atom-feed)
+                       (atom-feeds-by-tag)
+                       (static-directory "images")))
+@end example
+
+This is another paragraph.
-- 
cgit v1.2.3