generated files into a generated/ folder

This commit is contained in:
XeroOl 2024-06-26 23:42:33 -05:00
parent 7550dbfd37
commit 05b0160479
7 changed files with 11 additions and 11 deletions

View File

@ -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))

View File

@ -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)