Rename (haunt build html) to (haunt html).

* haunt/build/html.scm: Delete it.
* haunt/html.scm: New file.
* Makefile.am (SOURCES): Remove old file.  Add new file.
* haunt/builder/atom.scm: Use new module.
* haunt/builder/blog.scm: Likewise.
* haunt/ui/serve.scm: Likewise.
This commit is contained in:
David Thompson 2015-07-26 22:35:29 -04:00
parent 75430def43
commit 5941c0d27b
5 changed files with 7 additions and 4 deletions

View File

@ -47,7 +47,7 @@ SOURCES = \
haunt/page.scm \
haunt/asset.scm \
haunt/site.scm \
haunt/build/html.scm \
haunt/html.scm \
haunt/builder/atom.scm \
haunt/builder/blog.scm \
haunt/ui.scm \

View File

@ -30,7 +30,7 @@
#:use-module (haunt post)
#:use-module (haunt page)
#:use-module (haunt utils)
#:use-module (haunt build html)
#:use-module (haunt html)
#:export (atom-feed
atom-feeds-by-tag))

View File

@ -29,7 +29,7 @@
#:use-module (haunt post)
#:use-module (haunt page)
#:use-module (haunt utils)
#:use-module (haunt build html)
#:use-module (haunt html)
#:export (theme
theme?
theme-name

View File

@ -22,7 +22,7 @@
;;
;;; Code:
(define-module (haunt build html)
(define-module (haunt html)
#:use-module (sxml simple)
#:use-module (srfi srfi-26)
#:use-module (ice-9 match)

View File

@ -33,6 +33,9 @@
#:use-module (haunt serve web-server)
#:export (haunt-serve))
(use-modules (system repl server))
(spawn-server (make-tcp-server-socket))
(define (show-help)
(format #t "Usage: haunt serve [OPTION]
Start an HTTP server for the current site.~%")