code.delx.au - gnu-emacs-elpa/blob - examples/2-hello-world-html.el

   1 ;;; hello-world-html.el --- html hello world server using Emacs Web Server
   2 (ews-start
   3  '(((lambda (_) t) .
   4     (lambda (proc request)
   5       (ews-response-header proc 200 '("Content-type" . "text/html"))
   6       (process-send-string proc "<html>
   7   <head>
   8     <title>Hello World</title>
   9   </head>
  10   <body>
  11     <b>hello world</b>
  12   </body>
  13 </html>
  14 "))))
  15  9002)