mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
27 lines
575 B
Forth
27 lines
575 B
Forth
|
#!/usr/bin/env retro
|
||
|
|
|
||
|
|
This is used to assemble the Markdown copy of the RETRO Handbook.
|
||
|
|
|
||
|
|
The individual chapters are in the `book/` directory. This is set
|
||
|
|
using the `BOOK-BASE` constant.
|
||
|
|
|
||
|
|
~~~
|
||
|
|
'doc/book/ 'BOOK-BASE s:const
|
||
|
|
~~~
|
||
|
|
|
||
|
|
The chapters are specified it the `TOC`, a named array. These are
|
||
|
|
the file names, they will be included in order. I am structuring
|
||
|
|
it using separate file to make the actual editing process easier
|
||
|
|
for me.
|
||
|
|
|
||
|
|
~~~
|
||
|
|
'tools/book-chapters.retro include
|
||
|
|
~~~
|
||
|
|
|
||
|
|
~~~
|
||
|
|
TOC
|
||
|
|
[ nl #1 a:fetch dup s:put nl BOOK-BASE 'spell_%s%s s:format unix:system ]
|
||
|
|
a:for-each
|
||
|
|
~~~
|
||
|
|
|