halfass.min
· 2.1 KiB · Text
Surowy
Playground
(symbol make-wiki (==>) (args rest first build-sitemap-for)) ::
(symbol build-sitemap-for
(str :dir ==>) (get-wiki-pages make-list-of-links write-wiki)
) ::
(symbol get-wiki-pages
(==>) (
get-files get-filenames ("index.html" ==) reject '> sort
)
) ::
(symbol make-list-of-links
(quot :filenames ==> dict:xml-element :document) (
html"<html><ul></ul></html>"
("children" 0 "children") (stack.pop make-list-items) update
@document
)
) ::
(symbol write-wiki
(==>) (xml.to-xml dir ("index.html") prepend fs.join-path fs.write)
) ::
(symbol get-files (==>) (dir sys.ls)) ::
(symbol get-filenames (quot :files ==>) (files (fs.filename) map)) ::
(symbol make-list-items (==>) (filenames (a-tag li-tag) map)) ::
(symbol a-tag
(str :destination ==> dict:xml-element :tag) (
html"<a/>"
("children") (destination xml.text stack.swap append) update
("attributes") (destination "href" dict.set) update
@tag
)
) ::
(symbol li-tag
(dict:xml-element :content ==> dict:xml-element :tag) (
html"<li/>"
("children") (content stack.swap append) update
@tag
)
) ::
(sigil html
(str :html ==> dict:xml-element :result)
(html xml.from-html @result)
) ::
(symbol update
(quot|dict :structure quot :path quot :operation ==> quot|dict :updated) (
path first :index
(
((path size 1 == structure "quot" type? and) (
structure structure index get operation ->
index set @updated
))
((path size 1 == structure "dict" type? and) (
structure structure index dict.get operation ->
index dict.set @updated
))
((structure "quot" type?) (
structure index get path rest operation update :value
structure value index set @updated
))
((structure "dict" type?) (
structure index dict.get path rest operation update :value
structure value index dict.set @updated
))
) case
)
) ::
make-wiki
| 1 | (symbol make-wiki (==>) (args rest first build-sitemap-for)) :: |
| 2 | |
| 3 | (symbol build-sitemap-for |
| 4 | (str :dir ==>) (get-wiki-pages make-list-of-links write-wiki) |
| 5 | ) :: |
| 6 | |
| 7 | (symbol get-wiki-pages |
| 8 | (==>) ( |
| 9 | get-files get-filenames ("index.html" ==) reject '> sort |
| 10 | ) |
| 11 | ) :: |
| 12 | |
| 13 | (symbol make-list-of-links |
| 14 | (quot :filenames ==> dict:xml-element :document) ( |
| 15 | html"<html><ul></ul></html>" |
| 16 | ("children" 0 "children") (stack.pop make-list-items) update |
| 17 | @document |
| 18 | ) |
| 19 | ) :: |
| 20 | |
| 21 | (symbol write-wiki |
| 22 | (==>) (xml.to-xml dir ("index.html") prepend fs.join-path fs.write) |
| 23 | ) :: |
| 24 | |
| 25 | (symbol get-files (==>) (dir sys.ls)) :: |
| 26 | |
| 27 | (symbol get-filenames (quot :files ==>) (files (fs.filename) map)) :: |
| 28 | |
| 29 | (symbol make-list-items (==>) (filenames (a-tag li-tag) map)) :: |
| 30 | |
| 31 | (symbol a-tag |
| 32 | (str :destination ==> dict:xml-element :tag) ( |
| 33 | html"<a/>" |
| 34 | ("children") (destination xml.text stack.swap append) update |
| 35 | ("attributes") (destination "href" dict.set) update |
| 36 | @tag |
| 37 | ) |
| 38 | ) :: |
| 39 | |
| 40 | (symbol li-tag |
| 41 | (dict:xml-element :content ==> dict:xml-element :tag) ( |
| 42 | html"<li/>" |
| 43 | ("children") (content stack.swap append) update |
| 44 | @tag |
| 45 | ) |
| 46 | ) :: |
| 47 | |
| 48 | (sigil html |
| 49 | (str :html ==> dict:xml-element :result) |
| 50 | (html xml.from-html @result) |
| 51 | ) :: |
| 52 | |
| 53 | (symbol update |
| 54 | (quot|dict :structure quot :path quot :operation ==> quot|dict :updated) ( |
| 55 | path first :index |
| 56 | ( |
| 57 | ((path size 1 == structure "quot" type? and) ( |
| 58 | structure structure index get operation -> |
| 59 | index set @updated |
| 60 | )) |
| 61 | |
| 62 | ((path size 1 == structure "dict" type? and) ( |
| 63 | structure structure index dict.get operation -> |
| 64 | index dict.set @updated |
| 65 | )) |
| 66 | |
| 67 | ((structure "quot" type?) ( |
| 68 | structure index get path rest operation update :value |
| 69 | structure value index set @updated |
| 70 | )) |
| 71 | |
| 72 | ((structure "dict" type?) ( |
| 73 | structure index dict.get path rest operation update :value |
| 74 | structure value index dict.set @updated |
| 75 | )) |
| 76 | ) case |
| 77 | ) |
| 78 | ) :: |
| 79 | |
| 80 | make-wiki |