diff options
author | David Thompson <dthompson@vistahigherlearning.com> | 2016-08-19 08:55:20 -0400 |
---|---|---|
committer | David Thompson <dthompson@vistahigherlearning.com> | 2016-08-19 08:55:20 -0400 |
commit | 35058fec2ba038d50e6ea0b48fd2bf62819b603f (patch) | |
tree | bfa1aa8a7485149ac90fa5aed7aa05f5eb413eb8 /haunt.scm | |
parent | 3d029d49d2ae1809ae718986f9c9b7e2adf2fd6d (diff) |
Fully convert to Markdown.
Diffstat (limited to 'haunt.scm')
-rw-r--r-- | haunt.scm | 36 |
1 files changed, 7 insertions, 29 deletions
@@ -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) |