(Arne Babenhauserheide)
2014-12-23: code highlighting for the rest of the snippets. code highlighting for the rest of the snippets.
diff --git a/docs/srfi-from-template.html b/docs/srfi-from-template.html --- a/docs/srfi-from-template.html +++ b/docs/srfi-from-template.html @@ -315,9 +315,9 @@ Since an example speaks more than a hund -<pre>display ; (display - string-append "Hello " "World!" ; (string-append "Hello " "World!")) -display "Hello Again!" ; (display "Hello Again!") +<pre><i>display</i> ; (<i>display</i> + <i>string-append</i> "Hello " "World!" ; (<i>string-append</i> "Hello " "World!")) +<i>display</i> "Hello Again!" ; (<i>display</i> "Hello Again!") </pre> @@ -348,8 +348,8 @@ display "Hello Again!" ; -<pre>string-append "Hello" ; (string-append "Hello" - string-append " " "World" ; (string-append " " "World") +<pre><i>string-append</i> "Hello" ; (<i>string-append</i> "Hello" + <i>string-append</i> " " "World" ; (<i>string-append</i> " " "World") . "!" ; "!") </pre> @@ -366,10 +366,10 @@ display "Hello Again!" ; -<pre>let ; (let +<pre><b>let</b> ; (<b>let</b> : ; ( - msg "Hello World!" ; (msg "Hello World!")) - display msg ; (display msg)) + <i>msg</i> "Hello World!" ; (<i>msg</i> "Hello World!")) + <i>display</i> msg ; (<i>display</i> msg)) </pre> @@ -385,9 +385,9 @@ display "Hello Again!" ; -<pre>define : hello who ; (define (hello who) - display ; (display - string-append "Hello " who "!" ; (string-append "Hello " who "!"))) +<pre><b>define</b> : <i>hello</i> who ; (<b>define</b> (<i>hello</i> who) + <i>display </i> ; (<i>display</i> + <i>string-append</i> "Hello " who "!" ; (<i>string-append</i> "Hello " who "!"))) </pre> @@ -401,8 +401,8 @@ If the colon is the last non-whitespace -<pre>let : ; (let () - display "Hello" ; (display "Hello")) +<pre><b>let</b> : ; (<b>let</b> () + <i>display</i> "Hello" ; (<i>display</i> "Hello")) </pre> @@ -417,9 +417,9 @@ If the colon is the last non-whitespace -<pre>define : hello who ; (define (hello who) -_ display ; (display -___ string-append "Hello " who "!" ; (string-append "Hello " who "!"))) +<pre><b>define</b> : <i>hello</i> who ; (<b>define</b> (<i>hello</i> who) +_ <i>display</i> ; (<i>display</i> +___ <i>string-append</i> "Hello " who "!" ; (<i>string-append</i> "Hello " who "!"))) </pre> @@ -434,11 +434,11 @@ If the colon is the last non-whitespace -<pre>define : stringy s - string-append s " reversed and capitalized: +<pre><b>define</b> : <i>stringy</i> s + <i>string-append</i> s " reversed and capitalized: " ; linebreaks in strings do not affect wisp parsing - . (string-capitalize ; same for linebreaks in parentheses - (string-reverse s)) + . (<i>string-capitalize</i> ; same for linebreaks in parentheses + (<i>string-reverse</i> s)) </pre> @@ -448,8 +448,8 @@ Effectively code in parentheses and stri -<pre>define foo (+ 1 - (* 2 3)) ; defines foo as 7 +<pre><b>define</b> foo (<i>+</i> 1 + (<i>*</i> 2 3)) ; defines foo as 7 </pre> @@ -553,7 +553,7 @@ For simple cases, the colon could be rep </p> -<pre>(doublelet +<pre>(<i>doublelet</i> ((foo bar)) ((bla foo))) </pre> @@ -563,7 +563,7 @@ For simple cases, the colon could be rep The wisp version of this is </p> -<pre>doublelet +<pre><i>doublelet</i> : foo bar : ; <- this empty backstep is the real issue @@ -577,7 +577,7 @@ or shorter with inline colon (which you -<pre>doublelet +<pre><i>doublelet</i> : foo bar : bla foo </pre> @@ -601,7 +601,7 @@ Defining intermediate indentation-levels -<pre>define (flubb) +<pre><b>define</b> (<i>flubb</i>) nubb hubb subb @@ -615,7 +615,7 @@ would become -<pre>(define (flubb) +<pre>(<b>define</b> (<i>flubb</i>) ((nubb)) ((hubb)) ((subb)) @@ -629,7 +629,7 @@ while -<pre>define (flubb) +<pre><b>define</b> (<i>flubb</i>) nubb hubb subb @@ -642,7 +642,7 @@ would become -<pre>(define (flubb) +<pre>(<b>define</b> (<i>flubb</i>) (nubb) (hubb) (subb)) @@ -659,10 +659,10 @@ Fixed indentation width (alternative opt -<pre>when - equal? wrong - isright? stuff - fixstuff +<pre><b>when</b> + <i>equal?</i> wrong + <i>isright?</i> stuff + <i>fixstuff</i> </pre>