index.erl 582 B

12345678910111213
  1. -module(index).
  2. -compile(export_all).
  3. -include_lib("n2o/include/wf.hrl").
  4. peer() -> io_lib:format("~p",[wf:peer(?REQ)]).
  5. message() -> wf:js_escape(wf:html_encode(wf:ql(message))).
  6. main() -> #dtl{file="index",app=n2o_sample,bindings=[{body,body()}]}.
  7. body() -> [ #panel{id=history}, #textbox{id=message},
  8. #button{id=send,body="Chat",postback=chat,source=[message]} ].
  9. event(init) -> wf:reg(room);
  10. event(chat) -> wf:insert_bottom(history,#panel{id=history,body=[peer(),": ",message(),#br{}]});
  11. event(Event) -> wf:info(?MODULE,"Unknown Event: ~p~n",[Event]).