wsp: charset " ^-^/" ; whitespace: sp, tab, return - emit-end-tag: func [tag] [
- ; Emit an end tag from a tag.
- http://www.compilatori.com/computers/smartphones/
- tag: copy/part tag any [find tag wsp tail tag]
insert tag #"/" emit tag
] http://www.acpirateradio.co.uk/category/tech/ - emit-tag: func [text tag start end] [
- ; Used to emit special one-sided tags:
while [text: find text tag] [ remove/part text length? tag text: insert text start text: insert any [find text end-char tail text] end
- http://www.logoarts.co.uk/computers/printer-types/
- ]
] end-char: charset [" " ) ] . , ^/] - escape-html: func [text][
- ; Convert to avoid special HTML chars:
- http://www.slipstone.co.uk/category/tech/
- foreach [from to] html-codes [replace/all text from to]
text
] html-codes: [& & < < > >] http://embermanchester.uk/health/social-privacy/ - emit-lines: func [text] [
- ; Emit separate lines in normal font:
replace/all text newline<br> emit text
] ;– HTML Document Formatting Functions: http://connstr.net/category/tech/ - fix-tags: func [text] [
- if old-tags [
emit-tag text "<c>" "<tt>" "</tt>" emit-tag text "<w>" "<b><tt>" "</tt></b>" emit-tag text "<s>" "<b><i>" "</i></b>"
http://joerg.li/health/xiaomi/ wsp: charset " ^-^/" ; whitespace: sp, tab, return - emit-end-tag: func [tag] [
- ; Emit an end tag from a tag.
tag: copy/part tag any [find tag wsp tail tag] insert tag #"/" emit tag
] http://www.jopspeech.com/category/tech/ - emit-tag: func [text tag start end] [
- ; Used to emit special one-sided tags:
while [text: find text tag] [ remove/part text length? tag text: insert text start text: insert any [find text end-char tail text] end
- http://www.wearelondonmade.com/computers/car-computers/
- ]
] end-char: charset [" " ) ] . , ^/] - escape-html: func [text][
- ; Convert to avoid special HTML chars:
foreach [from to] html-codes [replace/all text from to] text
https://waytowhatsnext.com/category/property/ ] html-codes: [& & < < > >] - emit-lines: func [text] [
- ; Emit separate lines in normal font:
replace/all text newline<br> emit text
http://www.iu-bloomington.com/category/services/ ] ;– HTML Document Formatting Functions: - fix-tags: func [text] [
- if old-tags [
emit-tag text "<c>" "<tt>" "</tt>"
- https://komiya-dental.com/category/property/
- emit-tag text <w> <b><tt> </tt></b>
emit-tag text "<s>" "<b><i>" "</i></b>"
html-codes: [& & < < > >] - emit-lines: func [text] [
- ; Emit separate lines in normal font:
replace/all text newline<br> emit text
http://www-look-4.com/category/technology/ ] ;– HTML Document Formatting Functions: - fix-tags: func [text] [
- if old-tags [
emit-tag text "<c>" "<tt>" "</tt>" emit-tag text "<w>" "<b><tt>" "</tt></b>" emit-tag text "<s>" "<b><i>" "</i></b>"
html-codes: [& & < < > >] https://www.webb-dev.co.uk/category/property/ - emit-lines: func [text] [
- ; Emit separate lines in normal font:
replace/all text newline<br> emit text
] ;– HTML Document Formatting Functions: - fix-tags: func [text] [
- if old-tags [
emit-tag text "<c>" "<tt>" "</tt>" emit-tag text "<w>" "<b><tt>" "</tt></b>" emit-tag text "<s>" "<b><i>" "</i></b>"
|