From 35058fec2ba038d50e6ea0b48fd2bf62819b603f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Fri, 19 Aug 2016 08:55:20 -0400
Subject: Fully convert to Markdown.

---
 haunt.scm | 36 +++++++-----------------------------
 1 file changed, 7 insertions(+), 29 deletions(-)

(limited to 'haunt.scm')

diff --git a/haunt.scm b/haunt.scm
index 393cf7c..335bd54 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -14,11 +14,11 @@
 ;;; along with this program.  If not, see
 ;;; <http://www.gnu.org/licenses/>.
 
-(define (add-to-load-path* directory)
-  (unless (member directory %load-path)
-    (add-to-load-path directory)))
+;; (define (add-to-load-path* directory)
+;;   (unless (member directory %load-path)
+;;     (add-to-load-path directory)))
 
-(add-to-load-path* "/home/dave/Code/guile-syntax-highlight")
+;; (add-to-load-path* "/home/dave/Code/guile-syntax-highlight")
 
 (use-modules (haunt asset)
              (haunt builder blog)
@@ -28,13 +28,11 @@
              (haunt page)
              (haunt post)
              (haunt reader)
-             (haunt reader skribe)
-             (haunt reader texinfo)
              (haunt reader commonmark)
              (haunt site)
              (haunt utils)
-             (syntax-highlight)
-             (syntax-highlight scheme)
+             ;; (syntax-highlight)
+             ;; (syntax-highlight scheme)
              (sxml match)
              (sxml transform)
              (texinfo)
@@ -178,32 +176,12 @@ free culture works available under the " ,%cc-by-sa-link " license.")
      `(pre (@ ,@attrs)
            ,(maybe-highlight-code source)))))
 
-(define %texi-rules
-  `((pre . ,highlight-code)
-    (*text* . ,(lambda (tag str) str))
-    (*default* . ,sxml-identity)))
-
-(define (texi->shtml port)
-  (let ((tree (stexi->shtml (texi-fragment->stexi port))))
-    (pre-post-order tree %texi-rules)))
-
-(define texinfo-reader
-  (make-reader (make-file-extension-matcher "texi")
-               (lambda (file)
-                 (call-with-input-file file
-                   (lambda (port)
-                     (values (read-metadata-headers port)
-                             (texi->shtml port)))))))
-
 (site #:title "dthompson"
       #:domain "dthompson.us"
       #:default-metadata
       '((author . "David Thompson")
         (email  . "davet@gnu.org"))
-      #:readers (list (make-skribe-reader #:modules '((haunt skribe utils)
-                                                      (skribe-utils)))
-                      commonmark-reader
-                      texinfo-reader)
+      #:readers (list commonmark-reader)
       #:builders (list (blog #:theme dthompson-theme #:collections %collections)
                        (atom-feed)
                        (atom-feeds-by-tag)
-- 
cgit v1.2.3