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:
		@@ -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))
 | 
			
		||||
 | 
			
		||||
 
 | 
			
		||||
@@ -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
 | 
			
		||||
 
 | 
			
		||||
@@ -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)
 | 
			
		||||
@@ -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.~%")
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user