1 ;;; url-param-echo.el --- echo back url-paramed message using Emacs Web Server
2 ;; Copyright (C) 2014 Free Software Foundation, Inc.
7 (with-slots (process headers) request
8 (ws-response-header process 200 '("Content-type" . "text/html"))
9 (process-send-string process
10 (concat "URL Parameters:</br><table><tr>"
11 (mapconcat (lambda (pair)
12 (format "<th>%s</th><td>%s</td>"
13 (car pair) (cdr pair)))
14 (cl-remove-if-not (lambda (el) (stringp (car el)))