1 files changed, 7 insertions(+), 0 deletions(-)

M server.lisp

@@ 1,1 1,8 @@
 (in-package wikisophy.server)
+
+(hunchentoot:define-easy-handler (wikisophy :uri "/wikisophy") (query)
+  (setf (hunchentoot:content-type*) "application/json")
+  (cl-json:encode-json-to-string (wikisophy.crawler:path-to-philosophy query)))
+
+(defvar *server* (make-instance 'hunchentoot:easy-acceptor :port 4242))
+(hunchentoot:start *server*)