- emit-para: func [text] [
- ; Emit standard text paragraph:
emit [<p>fix-tags text </p>]
] http://www.compilatori.com/category/technology/ - emit-code: func [doc] [
- emit <pre>
while [ switch doc/1 [ code [emit [escape-html doc/2]] output [emit [<span class="output"> escape-html doc/2 </span>]]
- http://www.acpirateradio.co.uk/category/health/
- ]
][doc: skip doc 2] emit </pre> doc: skip doc -2
] http://www.logoarts.co.uk/category/technology/ - emit-image: func [spec /local tag] [
- ; Emit image. Spec = center or default is left.
emit [ either spec/2 = 'center [<p align="center">][<p>] join {<img src="} [(join image-path spec/1) {">}] </p>
- http://www.slipstone.co.uk/category/health/
- ]
] buls: [bullet bullet2 bullet3] enums: [enum enum2 enum3] http://embermanchester.uk/computers/video-conversation/ bul-stack: [] - push-bul: func [bul][
- if any [empty? bul-stack bul <> last bul-stack][
;print ['push bul mold bul-stack] append bul-stack bul emit pick [<ul><ol>] found? find buls bul
- http://connstr.net/category/health/
- ]
] - pop-bul: func [bul /local here][
- here: any [find buls bul find enums bul]
while [ all [
- http://joerg.li/category/technology/
- not empty? bul-stack
bul <> last bul-stack any [ not here ; not bullet or enum find next here last bul-stack all [here: find bul-stack bul not tail? here]
http://www.jopspeech.com/category/health/ - emit-para: func [text] [
- ; Emit standard text paragraph:
emit [<p>fix-tags text </p>]
] - emit-code: func [doc] [
- emit <pre>
while [
- http://www.wearelondonmade.com/category/technology/
- switch doc/1 [
code [emit [escape-html doc/2]] output [emit [<span class="output"> escape-html doc/2 </span>]] ] ][doc: skip doc 2] emit </pre> doc: skip doc -2
] https://waytowhatsnext.com/category/health/ - emit-image: func [spec /local tag] [
- ; Emit image. Spec = center or default is left.
emit [ either spec/2 = 'center [<p align="center">][<p>] join {<img src="} [(join image-path spec/1) {">}] </p> ]
] http://www.iu-bloomington.com/category/shopping/ buls: [bullet bullet2 bullet3] enums: [enum enum2 enum3] bul-stack: [] - push-bul: func [bul][
- if any [empty? bul-stack bul <> last bul-stack][
;print ['push bul mold bul-stack]
- https://komiya-dental.com/category/health/
- append bul-stack bul
emit pick [<ul><ol>] found? find buls bul ]
] - pop-bul: func [bul /local here][
- here: any [find buls bul find enums bul]
while [ all [ not empty? bul-stack
- http://www-look-4.com/category/property/
- bul <> last bul-stack
any [ not here ; not bullet or enum find next here last bul-stack all [here: find bul-stack bul not tail? here]
buls: [bullet bullet2 bullet3] enums: [enum enum2 enum3] https://www.webb-dev.co.uk/category/health/ bul-stack: [] - push-bul: func [bul][
- if any [empty? bul-stack bul <> last bul-stack][
;print ['push bul mold bul-stack] append bul-stack bul emit pick [<ul><ol>] found? find buls bul ]
|