updates to the examples, better html exports now working
FossilOrigin-Name: b3c8281fa5442fe836e108016d3e934e7839b76b77b85f14f326a5e258abfd21
This commit is contained in:
parent
22a344b4e1
commit
c4aa7805f9
1 changed files with 6 additions and 8 deletions
|
@ -135,12 +135,11 @@ block is a matter of:
|
||||||
~~~
|
~~~
|
||||||
{{
|
{{
|
||||||
'Block var
|
'Block var
|
||||||
|
:begin '<div_class='codeblock'><tt>~~~</tt> ;
|
||||||
|
:end '<tt>~~~</tt></div> ;
|
||||||
---reveal---
|
---reveal---
|
||||||
:in-code-block? (-f) @Block ;
|
:in-code-block? (-f) @Block ;
|
||||||
:code-block? (s-sf) dup '~~~ s:eq? ;
|
:code-block? (s-sf) dup '~~~ s:eq? ;
|
||||||
|
|
||||||
:begin '<div_class='codeblock'><tt>~~~</tt> ;
|
|
||||||
:end '<tt>~~~</tt></div> ;
|
|
||||||
:toggle-code (n-)
|
:toggle-code (n-)
|
||||||
drop @Block n:zero? dup &begin &end choose s:put !Block ;
|
drop @Block n:zero? dup &begin &end choose s:put !Block ;
|
||||||
}}
|
}}
|
||||||
|
@ -152,12 +151,11 @@ delimiters.
|
||||||
~~~
|
~~~
|
||||||
{{
|
{{
|
||||||
'Block var
|
'Block var
|
||||||
|
:begin '<div_class='codeblock'><tt>```</tt> ;
|
||||||
|
:end '<tt>```</tt></div> ;
|
||||||
---reveal---
|
---reveal---
|
||||||
:in-test-block? (-f) @Block ;
|
:in-test-block? (-f) @Block ;
|
||||||
:test-block? (s-sf) dup '``` s:eq? ;
|
:test-block? (s-sf) dup '``` s:eq? ;
|
||||||
|
|
||||||
:begin '<div_class='codeblock'><tt>```</tt> ;
|
|
||||||
:end '<tt>```</tt></div> ;
|
|
||||||
:toggle-test (n-)
|
:toggle-test (n-)
|
||||||
drop @Block n:zero? dup &begin &end choose s:put !Block ;
|
drop @Block n:zero? dup &begin &end choose s:put !Block ;
|
||||||
}}
|
}}
|
||||||
|
@ -297,10 +295,10 @@ output.
|
||||||
~~~
|
~~~
|
||||||
:format
|
:format
|
||||||
s:keep
|
s:keep
|
||||||
in-code-block? [ format:code ] if;
|
|
||||||
in-test-block? [ format:code ] if;
|
|
||||||
code-block? [ toggle-code ] if;
|
code-block? [ toggle-code ] if;
|
||||||
|
in-code-block? [ format:code ] if;
|
||||||
test-block? [ toggle-test ] if;
|
test-block? [ toggle-test ] if;
|
||||||
|
in-test-block? [ format:code ] if;
|
||||||
blank? [ drop '<p> s:put nl ] if;
|
blank? [ drop '<p> s:put nl ] if;
|
||||||
header? [ format:head ] if;
|
header? [ format:head ] if;
|
||||||
inline-code? [ format:inline-code ] if;
|
inline-code? [ format:inline-code ] if;
|
||||||
|
|
Loading…
Reference in a new issue