adam@34: open CkeditorFfi
adam@34: 
adam@34: fun show ed = <xml>
adam@34:   <active code={id <- fresh;
adam@34:                 return <xml>
adam@34:                   <span id={id}/>
adam@34:                   <active code={CkeditorFfi.replace ed id; return <xml/>}/>
adam@34:                 </xml>}/>
adam@34: </xml>