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 ;; Copyright (C) 2014  Free Software Foundation, Inc.
   3
   4 (ws-start
   5  (lambda (request)
   6    (with-slots (process headers) request
   7      (ws-response-header process 200 '("Content-type" . "text/plain"))
   8      (process-send-string process "hello world")))
   9  9000)