code.delx.au - gnu-emacs-elpa/blob - packages/web-server/examples/000-hello-world.el

   1 ;;; hello-world.el --- simple hello world server using Emacs Web Server
   2 (ws-start
   3  (lambda (request)
   4    (with-slots (process headers) request
   5      (ws-response-header process 200 '("Content-type" . "text/plain"))
   6      (process-send-string process "hello world")))
   7  9000)