code.delx.au - gnu-emacs-elpa/blob - packages/web-server/examples/018-web-shell.js

   1 var ws;
   2
   3 function write(data){
   4   var before = document.getElementById("buffer").innerHTML;
   5   document.getElementById("buffer").innerHTML = before + data;
   6   window.scrollTo(0,document.body.scrollHeight); }
   7
   8 function read(){
   9   var tmp = document.getElementById("mini-buffer").value;
  10   document.getElementById("mini-buffer").value = "";
  11   write(tmp + "\n");
  12   return tmp; }
  13
  14 function connect(){
  15   ws = new WebSocket("ws://localhost:%d/");
  16   ws.onopen    = function()    { write("<p><i>connected</i></p>"); };
  17   ws.onmessage = function(msg) { write(msg.data); };
  18   ws.onclose   = function()    { write("<p><i>closed</i></p>"); }; }
  19
  20 window.onload = function(){
  21   document.getElementById("mini-buffer").addEventListener(
  22     "keyup", function(e){ if(e.keyCode == 13){ ws.send(read()); } }); }