anchor.diff:  
   
   path(Req) ->
  -    {Path,_} = cowboy_req:path(Req),
  +    Path = cowboy_req:path(Req),
       filename:split(binary_to_list(Path)).
   
   reply_html(Obj, Req, Env) ->
  -    {ok, Req1} = send_page(html, Obj, Req),
  +    Req1 = send_page(html, Obj, Req),
       {ok, Req1, Env}.
   
   %%----------------------------------------------------------------------
  
positive.code: 
  %%----------------------------------------------------------------------
  %% websocket stuff
  
  websocket_init(_Transport, Req, _Env) ->
      io:format("Initialising a web socket:(~p)(~p)(~p)",
  	      [_Transport, _Env, path(Req)]),
      ["/", "websocket", ModStr] = path(Req),
      Req1 = cowboy_req:compact(Req),
      Self = self(),
      Mod = list_to_atom(ModStr),
      %% Spawn an erlang handler
      Pid = spawn_link(Mod, start, [Self]),
      {ok, Req1, Pid, hibernate}.
  
  websocket_handle({text, Msg}, Req, Pid) ->
      %% This is a Json message from the browser
  
negative.code: 	    io:format("websockets started on port:~p~n",[Port])
      end.
  
  init(Req, E0) ->   
      %% io:format("init:~n"),
      Resource = path(Req),
      %% io:format("Resource:~p~n",[Resource]),
      case Resource of
  	["/", "websocket",ModStr] ->
  	    Self = self(),
  	    Mod = list_to_atom(ModStr),
  	    %% Spawn an erlang handler
  	    %% The return value will cause cowboy
  	    %% to call this module at the entry point
  	    %% websocket_handle
  	    Pid = spawn_link(Mod, start, [Self]),
  	    {cowboy_websocket, Req, Pid};
  	_ ->
  	    handle(Req, E0)
      end.
  
  handle(Req, Env) ->
  