1 ;;; hello-world-utf8.el --- utf8 hello world server using Emacs Web Server
2 ;; Copyright (C) 2014 Free Software Foundation, Inc.
6 (with-slots (process headers) request
7 (let ((hellos '("こんにちは"
18 (ws-response-header process 200
19 '("Content-type" . "text/plain; charset=utf-8"))
20 (process-send-string process
21 (concat (nth (random (length hellos)) hellos) " world")))))