mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
24 lines
747 B
Forth
24 lines
747 B
Forth
# HTML Generation
|
|
|
|
This is a little experiment in combinator-driven HTML generation.
|
|
|
|
~~~
|
|
:a:href (ss-) '<a_href=' s:put s:put ''> s:put s:put '</a> s:put ;
|
|
:p (q-) '<p> s:put call '</p> s:put nl ;
|
|
:strong (q-) '<strong> s:put call '</strong> s:put nl ;
|
|
:em (q-) '<em> s:put call '</em> s:put nl ;
|
|
:h1 (s-) '<h1> s:put s:put '</h1> s:put nl ;
|
|
:div (q-) '<div> s:put call '</div> s:put nl ;
|
|
:body (q-) '<body> s:put call '</body> s:put nl ;
|
|
:sigil:" s:keep &s:put compile:call ; immediate
|
|
~~~
|
|
|
|
Test case:
|
|
|
|
```
|
|
[ 'Hello h1
|
|
[ 'This_is_a_test_of_HTML_generation._Please_
|
|
'follow_the_link 'page2.html a:href '. ] p
|
|
[ 'This_is_a_second_paragraph ] p
|
|
] body
|
|
```
|