mirror of
https://github.com/dimitri/pgloader.git
synced 2025-08-08 23:37:00 +02:00
9e574ce884
This allows to benefit from github pages without having to maintain a separate orphaned branch.
48 lines
1.7 KiB
Common Lisp
48 lines
1.7 KiB
Common Lisp
(defpackage #:pgloader.docs
|
|
(:use #:cl #:cl-markdown #:pgloader.params)
|
|
(:import-from #:alexandria #:read-file-into-string)
|
|
(:export #:build-docs))
|
|
|
|
(in-package #:pgloader.docs)
|
|
|
|
(defparameter *docs-sources-directory*
|
|
(asdf:system-relative-pathname :pgloader "docs/src/"))
|
|
|
|
(defparameter *docs-output-directory*
|
|
(asdf:system-relative-pathname :pgloader "docs/howto/"))
|
|
|
|
(defparameter *reference*
|
|
(asdf:system-relative-pathname :pgloader "pgloader.1.md"))
|
|
|
|
(defparameter *header*
|
|
(asdf:system-relative-pathname :pgloader "docs/howto/header.html"))
|
|
|
|
(defparameter *footer*
|
|
(asdf:system-relative-pathname :pgloader "docs/howto/footer.html"))
|
|
|
|
(defun build-page (file &optional target)
|
|
"Build the HTML page from the markdown source FILE into the HTML TARGET."
|
|
(let ((target
|
|
(or target
|
|
(merge-pathnames (make-pathname :name (pathname-name file)
|
|
:type "html")
|
|
*docs-output-directory*))))
|
|
(format t "Building: ~s~%" target)
|
|
(with-open-file (s target
|
|
:direction :output
|
|
:external-format :utf-8
|
|
:if-exists :supersede
|
|
:if-does-not-exist :create)
|
|
(write-string (read-file-into-string *header* :external-format :utf-8) s)
|
|
(markdown (read-file-into-string file :external-format :utf-8) :stream s)
|
|
(write-string (read-file-into-string *footer* :external-format :utf-8) s))))
|
|
|
|
(defun build-docs ()
|
|
"Build the HTML files from the Markdown ones."
|
|
(build-page *reference*)
|
|
(loop
|
|
:for file :in (fad:list-directory *docs-sources-directory*)
|
|
:when (string= "md" (pathname-type file))
|
|
:do (build-page file) ))
|
|
|