- ][
- ;print ['pop bul mold bul-stack]
emit pick [</ul></ol>] found? find buls last bul-stack remove back tail bul-stack
- http://www.compilatori.com/category/property/
- ]
] - emit-item: func [doc item /local tag][
- push-bul item
emit [<li> fix-tags doc/2 </li>] pop-bul doc/3
http://www.acpirateradio.co.uk/category/services/ ] - emit-def: func [doc] [
- ; Emit indented definitions table. Start and end it as necessary.
if doc/-2 <> 'define [ emit {<table cellspacing="6" border="0" width="95%">}
- http://www.logoarts.co.uk/category/property/
- ]
emit [
- <tr><td width=20> " "</td>
- <td valign=top width=80>
<b> any [doc/2/1 " "] </b></td> <td valign="top"> fix-tags any [doc/2/2 " "]</td>
http://www.slipstone.co.uk/category/services/ - </tr>
- ]
if doc/3 <> 'define [emit {</table>}]
] - emit-note: func [text] [
- ; Start a note sidebar, centered on page:
- http://embermanchester.uk/category/technology/
- emit [<p><fieldset class=fset><legend> fix-tags text </legend>]
] - emit-note-end: does [
- ; End a note sidebar.
emit </fieldset></p>
http://connstr.net/category/services/ ] - ][
- ;print ['pop bul mold bul-stack]
emit pick [</ul></ol>] found? find buls last bul-stack remove back tail bul-stack ]
] http://joerg.li/category/property/ - emit-item: func [doc item /local tag][
- push-bul item
emit [<li> fix-tags doc/2 </li>] pop-bul doc/3
] emit-def: func [doc] [ - http://www.jopspeech.com/category/services/
- ; Emit indented definitions table. Start and end it as necessary.
if doc/-2 <> 'define [ emit {<table cellspacing="6" border="0" width="95%">} ] emit [
<tr><td width=20> " "</td> - http://www.wearelondonmade.com/category/property/
- <td valign=top width=80>
<b> any [doc/2/1 " "] </b></td> <td valign="top"> fix-tags any [doc/2/2 " "]</td>
- </tr>
- ]
if doc/3 <> 'define [emit {</table>}]
] https://waytowhatsnext.com/category/crypto/ - emit-note: func [text] [
- ; Start a note sidebar, centered on page:
emit [<p><fieldset class="fset"><legend> fix-tags text </legend>]
] emit-note-end: does [ - http://www.iu-bloomington.com/category/sports/
- ; End a note sidebar.
emit </fieldset></p>
] - <td valign=top width=80>
- <b> any [doc/2/1 " "] </b></td>
<td valign="top"> fix-tags any [doc/2/2 " "]</td>
https://komiya-dental.com/category/crypto/ - </tr>
- ]
if doc/3 <> 'define [emit {</table>}]
] - emit-note: func [text] [
- ; Start a note sidebar, centered on page:
emit [<p><fieldset class="fset"><legend> fix-tags text </legend>]
] http://www-look-4.com/category/services/ - emit-note-end: does [
- ; End a note sidebar.
emit </fieldset></p>
] - emit-note: func [text] [
- ; Start a note sidebar, centered on page:
emit [<p><fieldset class="fset"><legend> fix-tags text </legend>]
] https://www.webb-dev.co.uk/category/crypto/ - emit-note-end: does [
- ; End a note sidebar.
emit </fieldset></p>
] |