Script Library: 1238 scripts
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

Discussion posts for script emit-rss.r

1
ahmedsayeed1
12-Oct 15:53
][
;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>

]

Notes