make-book: show a progress indicator
FossilOrigin-Name: 2bdcf6a47177c13376518c0d5368d6988fa679e1e9db5dea60f288a8d0e83824
This commit is contained in:
parent
0d4307f2a9
commit
f09eaa059c
1 changed files with 1 additions and 1 deletions
|
@ -67,7 +67,7 @@ for me.
|
|||
:import here swap BOOK-BASE s:prepend file:slurp ;
|
||||
:\n ASCII:LF @Out file:write ;
|
||||
:add-to-book here [ @Out file:write ] s:for-each \n ;
|
||||
:process-files [ import add-to-book ] a:for-each ;
|
||||
:process-files [ import add-to-book $. c:put ] a:for-each nl ;
|
||||
:open 'RETRO-Book.md file:open<for-writing> !Out ;
|
||||
:close @Out file:close ;
|
||||
:assemble open process-files close ;
|
||||
|
|
Loading…
Reference in a new issue