generated files into a generated/ folder
This commit is contained in:
parent
7550dbfd37
commit
05b0160479
@ -12,21 +12,21 @@
|
||||
(collect [name value (pairs MACROS)]
|
||||
name {:binding name :metadata (. METADATA value)}))
|
||||
|
||||
(local versions
|
||||
{:lua51 (require :fennel-ls.docs.lua51)
|
||||
:lua52 (require :fennel-ls.docs.lua52)
|
||||
:lua53 (require :fennel-ls.docs.lua53)
|
||||
:lua54 (require :fennel-ls.docs.lua54)})
|
||||
(local lua-versions
|
||||
{:lua51 (require :fennel-ls.docs.generated.lua51)
|
||||
:lua52 (require :fennel-ls.docs.generated.lua52)
|
||||
:lua53 (require :fennel-ls.docs.generated.lua53)
|
||||
:lua54 (require :fennel-ls.docs.generated.lua54)})
|
||||
|
||||
(fn get-lua-version [version]
|
||||
(when (not (. versions version))
|
||||
(when (not (. lua-versions version))
|
||||
(error (.. "fennel-ls doesn't know about lua version " version "\n"
|
||||
"The allowed versions are: "
|
||||
(fennel.view (doto (icollect [key (pairs versions)] key) table.sort)))))
|
||||
(. versions version))
|
||||
(fennel.view (doto (icollect [key (pairs lua-versions)] key) table.sort)))))
|
||||
(. lua-versions version))
|
||||
|
||||
(local libraries
|
||||
{:tic80 (require :fennel-ls.docs.tic80)})
|
||||
{:tic80 (require :fennel-ls.docs.generated.tic80)})
|
||||
|
||||
(fn get-native-library [library]
|
||||
(when (not (. libraries library))
|
||||
|
||||
@ -15,13 +15,13 @@
|
||||
(convert
|
||||
(with-open [file (curl-cached url)]
|
||||
(file:read "*a")))]
|
||||
(with-open [file (io.open (.. "src/fennel-ls/docs/" out-filename) :w)]
|
||||
(with-open [file (io.open (.. "src/fennel-ls/docs/generated/" out-filename) :w)]
|
||||
(file:write ";; auto-generated by `make docs` from fennel-ls. Contents come from " url "\n"
|
||||
result "\n"))))
|
||||
|
||||
(fn main []
|
||||
(sh :mkdir :-p "build/")
|
||||
(sh :mkdir :-p "src/fennel-ls/docs/")
|
||||
(sh :mkdir :-p "src/fennel-ls/docs/generated/")
|
||||
(let [{:convert lua-manual} (require :tools.get-docs.lua-manual)
|
||||
{:convert tic-manual} (require :tools.get-docs.tic80)]
|
||||
(derive-docs-from-url "https://www.lua.org/manual/5.1/manual.html" "lua51.fnl" lua-manual)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user