2018-12-16 04:19:28 +00:00
|
|
|
# Generate documentation
|
|
|
|
|
|
2018-12-25 22:37:52 +00:00
|
|
|
# TODO - make tool reusable
|
|
|
|
|
|
2018-12-16 04:19:28 +00:00
|
|
|
(def- prelude
|
2018-12-17 06:41:11 +00:00
|
|
|
```
|
|
|
|
|
<!doctype html>
|
|
|
|
|
<html lang="en">
|
|
|
|
|
<head>
|
|
|
|
|
<meta charset="utf-8">
|
|
|
|
|
<title>Janet Language Documentation</title>
|
|
|
|
|
<meta name="description" content="API Documentation for the janet programming language.">
|
|
|
|
|
<style>
|
2018-12-17 17:06:50 +00:00
|
|
|
.docstring {
|
2018-12-17 06:41:11 +00:00
|
|
|
font-family: monospace;
|
|
|
|
|
}
|
2018-12-17 17:06:50 +00:00
|
|
|
.binding-type {
|
|
|
|
|
color: blue;
|
|
|
|
|
}
|
|
|
|
|
.source-map {
|
|
|
|
|
color: steelblue;
|
|
|
|
|
font-size: 0.8em;
|
|
|
|
|
}
|
2018-12-17 06:41:11 +00:00
|
|
|
</style>
|
|
|
|
|
</head>
|
|
|
|
|
```)
|
2018-12-16 04:19:28 +00:00
|
|
|
|
|
|
|
|
(def- postlude
|
2018-12-17 06:41:11 +00:00
|
|
|
```
|
|
|
|
|
</html>
|
|
|
|
|
```)
|
2018-12-16 04:19:28 +00:00
|
|
|
|
|
|
|
|
(def- escapes
|
|
|
|
|
{10 "<br>"
|
|
|
|
|
09 " "
|
|
|
|
|
38 "&"
|
|
|
|
|
60 "<"
|
|
|
|
|
62 ">"
|
|
|
|
|
34 """
|
|
|
|
|
39 "'"
|
|
|
|
|
47 "/"})
|
|
|
|
|
|
|
|
|
|
(defn- trim-lead
|
|
|
|
|
"Trim leading newlines"
|
|
|
|
|
[str]
|
|
|
|
|
(var i 0)
|
2019-01-07 00:33:27 +00:00
|
|
|
(while (= 10 (get str i)) (++ i))
|
2018-12-16 04:19:28 +00:00
|
|
|
(string/slice str i))
|
|
|
|
|
|
|
|
|
|
(defn- html-escape
|
|
|
|
|
"Escape special characters for HTML encoding."
|
|
|
|
|
[str]
|
|
|
|
|
(def buf @"")
|
|
|
|
|
(loop [byte :in str]
|
2019-01-07 00:33:27 +00:00
|
|
|
(if-let [rep (get escapes byte)]
|
2018-12-16 04:19:28 +00:00
|
|
|
(buffer/push-string buf rep)
|
|
|
|
|
(buffer/push-byte buf byte)))
|
|
|
|
|
buf)
|
|
|
|
|
|
2018-12-17 06:57:09 +00:00
|
|
|
(defn- make-title
|
|
|
|
|
"Generate title"
|
|
|
|
|
[]
|
|
|
|
|
(string "<h1>Janet Core API</h1>"
|
|
|
|
|
"<p>Version " janet/version "-" janet/build "</p>"
|
|
|
|
|
"<p>Generated "
|
|
|
|
|
(string/number (os/time) :f 0 20)
|
|
|
|
|
" seconds after epoch</p>"
|
|
|
|
|
"<hr>"))
|
|
|
|
|
|
2018-12-17 06:41:11 +00:00
|
|
|
(defn- emit-item
|
|
|
|
|
"Generate documentation for one entry."
|
|
|
|
|
[key env-entry]
|
|
|
|
|
(let [{:macro macro
|
|
|
|
|
:value val
|
|
|
|
|
:ref ref
|
2018-12-17 17:06:50 +00:00
|
|
|
:source-map sm
|
2018-12-17 06:41:11 +00:00
|
|
|
:doc docstring} env-entry
|
|
|
|
|
binding-type (cond
|
|
|
|
|
macro :macro
|
2018-12-29 18:07:18 +00:00
|
|
|
ref (string :var " (" (type (get ref 0)) ")")
|
2018-12-17 17:06:50 +00:00
|
|
|
(type val))
|
|
|
|
|
source-ref (if-let [[path start end] sm]
|
|
|
|
|
(string "<span class=\"source-map\">" path " (" start ":" end ")</span>")
|
|
|
|
|
"")]
|
|
|
|
|
(string "<h2 class=\"binding\">" (html-escape key) "</h2>\n"
|
|
|
|
|
"<span class=\"binding-type\">" binding-type "</span>\n"
|
|
|
|
|
"<p class=\"docstring\">" (trim-lead (html-escape docstring)) "</p>\n"
|
|
|
|
|
source-ref)))
|
2018-12-16 04:19:28 +00:00
|
|
|
|
2018-12-16 18:17:30 +00:00
|
|
|
# Generate parts and print them to stdout
|
2018-12-17 06:41:11 +00:00
|
|
|
(def parts (seq [[k entry]
|
2018-12-16 18:17:30 +00:00
|
|
|
:in (sort (pairs (table/getproto _env)))
|
2019-01-07 00:33:27 +00:00
|
|
|
:when (and (get entry :doc) (not (get entry :private)))]
|
2018-12-17 06:41:11 +00:00
|
|
|
(emit-item k entry)))
|
2018-12-17 06:57:09 +00:00
|
|
|
(print
|
|
|
|
|
prelude
|
|
|
|
|
(make-title)
|
2018-12-17 17:06:50 +00:00
|
|
|
;(interpose "<hr>\n" parts)
|
2018-12-17 06:57:09 +00:00
|
|
|
postlude)
|
