dan
/
haunt
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile.am
View File

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

2
haunt/builder/atom.scm
View File

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

2
haunt/builder/blog.scm
View File

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

2
haunt/build/html.scm → haunt/html.scm
View File

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

3
haunt/ui/serve.scm
View File

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