crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

updates to the examples, better html exports now working

Browse source 
FossilOrigin-Name: b3c8281fa5442fe836e108016d3e934e7839b76b77b85f14f326a5e258abfd21
This commit is contained in:
crc 2020-02-21 19:47:00 +00:00
parent 22a344b4e1
commit c4aa7805f9
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
example/export-as-html.retro
View file

@ -135,12 +135,11 @@ block is a matter of:
~~~
{{
'Block var
:begin '<div_class='codeblock'><tt>~~~</tt> ;
:end '<tt>~~~</tt></div> ;
---reveal---
:in-code-block? (-f) @Block ;
:code-block? (s-sf) dup '~~~ s:eq? ;
:begin '<div_class='codeblock'><tt>~~~</tt> ;
:end '<tt>~~~</tt></div> ;
:toggle-code (n-)
drop @Block n:zero? dup &begin &end choose s:put !Block ;
}}
@ -152,12 +151,11 @@ delimiters.
~~~
{{
'Block var
:begin '<div_class='codeblock'><tt>```</tt> ;
:end '<tt>```</tt></div> ;
---reveal---
:in-test-block? (-f) @Block ;
:test-block? (s-sf) dup '``` s:eq? ;
:begin '<div_class='codeblock'><tt>```</tt> ;
:end '<tt>```</tt></div> ;
:toggle-test (n-)
drop @Block n:zero? dup &begin &end choose s:put !Block ;
}}
@ -297,10 +295,10 @@ output.
~~~
:format
s:keep
in-code-block? [ format:code ] if;
in-test-block? [ format:code ] if;
code-block? [ toggle-code ] if;
in-code-block? [ format:code ] if;
test-block? [ toggle-test ] if;
in-test-block? [ format:code ] if;
blank? [ drop '<p> s:put nl ] if;
header? [ format:head ] if;
inline-code? [ format:inline-code ] if;