;;; hello-world-html.el --- html hello world server using Emacs Web Server
;; Copyright (C) 2014 Free Software Foundation, Inc.
(ws-start
(lambda (request)
(with-slots (process headers) request
(ws-response-header process 200 '("Content-type" . "text/html"))
(process-send-string process "
Hello World
hello world
")))
9002)