suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Generate index.html pages.

Browse Source
This commit is contained in:
Georges Dupéron 2016-01-18 17:00:00 +01:00
parent 47f0a3b573
commit ea74a10178
3 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.travis.yml
View File

@ -55,6 +55,7 @@ script:
after_script:
- mv -i coverage docs ~/gh-pages
- make/make-indexes.sh ~/gh-pages
- mkdir -p ~/gh-pages/lib/doc/MathJax
- echo 'document.write("<script src=\"http://cdn.mathjax.org/mathjax/latest/MathJax.js?config=default\"></script>");' > ~/gh-pages/lib/doc/MathJax/MathJax.js
- touch ~/gh-pages/.nojekyll

2
graph-lib/make/make-indexes.sh Normal file
View File

@ -0,0 +1,2 @@
#!/bin/bash
find "$@" -type d -print0 | xargs -n 1 -r0 bash -c '(shopt -s nullglob; cd "$0"; if (! test -e index.html) || test -e .make-index-html; then touch .make-index-html; echo "<html>" > index.html; for i in */ *.html; do if test "$i" != "index.htm"; then echo "<a href=\"$i\">$i</a>" >> index.html; fi; done; echo "</html>" >> index.html; fi)'

9
graph-lib/make/make.rkt
View File

@ -204,5 +204,12 @@
"-s" "doc"
"-s" "test"
"-f" "html"
"-f" "coveralls"
,@(let ([travis (getenv "TRAVIS")])
(if (and travis (string=? travis "true"))
'("-f" "coveralls")
'()))
,@(exclude-dirs rkt-files (list "make/"))))
(run! `(,(find-executable-path-or-fail "bash")
"make/make-indexes.sh"
"docs/"))