factor/extra/webapps/pastebin/modes.furnace

<% USING: xmode.catalog sequences kernel html.elements assocs io sorting ; %>

<select name="mode">
    <% modes keys natural-sort [
        <option dup "factor" = [ "true" =selected ] when option> write </option>
    ] each %>
</select>
Overhaul pastebin 2007-12-06 01:02:58 -05:00			`<% USING: xmode.catalog sequences kernel html.elements assocs io sorting ; %>`
Furnace improvements 2007-12-06 00:06:34 -05:00
			`<select name="mode">`
Overhaul pastebin 2007-12-06 01:02:58 -05:00			`<% modes keys natural-sort [`
Furnace improvements 2007-12-06 00:06:34 -05:00			`<option dup "factor" = [ "true" =selected ] when option> write </option>`
			`] each %>`
			`</select>`