1 ;;; hello-world-html.el --- html hello world server using Emacs Web Server
2 ;; Copyright (C) 2014 Free Software Foundation, Inc.
6 (with-slots (process headers) request
7 (ws-response-header process 200 '("Content-type" . "text/html"))
8 (process-send-string process "<html>
10 <title>Hello World</title>