Initial (buggy and incomplete) version of manual and tutorial

[fiveam.git] / docs / Makefile.lisp

diff --git a/docs/Makefile.lisp b/docs/Makefile.lisp
new file mode 100644 (file)
index 0000000..1bb2176
--- /dev/null
+++ b/docs/Makefile.lisp
@@ -0,0 +1,62 @@
+(in-package :smake-user)
+
+(defvar *asciidoc-root* #P"/usr/local/etc/asciidoc/")
+
+(program "asciidoc")
+
+(defun static-file (name &optional source destination)
+
+  (cond
+    ((null source)
+     (setf source (source-pathname name)))
+    ((stringp source)
+     (setf source (source-pathname source))))
+
+  (cond
+    ((null destination)
+     (setf destination (build-pathname name)))
+    ((stringp destination)
+     (setf destination (build-pathname destination))))
+
+  (target* `(static-file ,name) ()
+    (when (file-newer-p source destination)
+      (path:cp source destination))))
+
+(static-file "asciidoc.css" (path:catfile *asciidoc-root* "stylesheets/" "asciidoc.css"))
+
+(static-file "asciidoc.js" (path:catfile *asciidoc-root* "javascripts/" "asciidoc.js"))
+
+(static-file "fiveam.css")
+
+(target (static-directory "asciidoc/images") ()
+  (ensure-directories-exist (build-pathname "images/icons/callouts/"))
+  (dolist (src (directory (path:catfile *asciidoc-root* "images/" "icons/" "callouts/" "*.png")))
+    (let ((dst (build-pathname (path:catfile "images/icons/callouts/" (path:basename src)))))
+      (when (file-newer-p src dst)
+        (path:cp src dst)))))
+
+(defun asciidoc.html (source &optional requires)
+  (target* `(asciidoc ,source) (:requires (append requires
+                                                  '((program "asciidoc")
+                                                    (static-file "asciidoc.js")
+                                                    (static-file "asciidoc.css")
+                                                    (static-file "fiveam.css")
+                                                    (static-directory "asciidoc/images"))))
+    (when (file-newer-p (source-pathname source) (build-pathname source :type "html"))
+      (unless (path:-e (build-pathname source))
+        (sys `(ln -s ,(source-pathname source) ,(build-pathname source))))
+      (sys `(asciidoc -o ,(build-pathname source :type "html") ,(build-pathname source))))))
+
+(target "docstrings" ()
+  (unless (path:-d (build-pathname "docstrings/"))
+    (sys `(ccl64 --load ../extract-docstrings.lisp))
+    (sys `(rm -f ,(build-pathname "manual.html") ,(build-pathname "tutorial.html")))))
+
+(asciidoc.html "manual.txt" '("docstrings"))
+(asciidoc.html "tutorial.txt" '((asciidoc "manual.txt")))
+
+(target "documentation" (:requires '((asciidoc "manual.txt")
+                                     (asciidoc "tutorial.txt"))))
+
+(target "all" (:requires '("documentation")))
+