Quick fix for html generation with no app-dir

quasiquoting · Jan 13, 2016 · bf1d0c4 · bf1d0c4
1 parent 86255b8
commit bf1d0c4
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 9 deletions.
diff --git a/doc b/doc
diff --git a/org/Lodox.org b/org/Lodox.org
@@ -383,16 +383,17 @@ describing the docs that were generated.
   "Take raw documentation info and turn it into formatted HTML."
   (let* ((`#(ok ,cwd) (file:get_cwd))
          (`#m(output-path ,output-path app-dir ,app-dir)
-          (maps:merge `#m(output-path "doc" app-dir ,cwd) opts)))
+          (maps:merge `#m(output-path "doc" app-dir ,cwd) opts))
+         (project* (mset project 'app-dir app-dir)))
     (doto output-path
           (mkdirs '("css" "js"))
           (copy-resource "css/default.css")
           (copy-resource "css/hk-pyg.css")
           (copy-resource "js/jquery.min.js")
           (copy-resource "js/page_effects.js")
-          (write-index project)
-          (write-modules (mset project 'app-dir app-dir))
-          (write-libs project))))
+          (write-index project*)
+          (write-modules project*)
+          (write-libs project*))))
 
 (defun include-css (style)
   (link `(type "text/css" href ,style rel "stylesheet")))

diff --git a/src/lodox-html-writer.lfe b/src/lodox-html-writer.lfe
@@ -22,16 +22,17 @@
   "Take raw documentation info and turn it into formatted HTML."
   (let* ((`#(ok ,cwd) (file:get_cwd))
          (`#m(output-path ,output-path app-dir ,app-dir)
-          (maps:merge `#m(output-path "doc" app-dir ,cwd) opts)))
+          (maps:merge `#m(output-path "doc" app-dir ,cwd) opts))
+         (project* (mset project 'app-dir app-dir)))
     (doto output-path
           (mkdirs '("css" "js"))
           (copy-resource "css/default.css")
           (copy-resource "css/hk-pyg.css")
           (copy-resource "js/jquery.min.js")
           (copy-resource "js/page_effects.js")
-          (write-index project)
-          (write-modules (mset project 'app-dir app-dir))
-          (write-libs project))))
+          (write-index project*)
+          (write-modules project*)
+          (write-libs project*))))
 
 (defun include-css (style)
   (link `(type "text/css" href ,style rel "stylesheet")))