M server.lisp => server.lisp +0 -2
@@ 7,7 7,5 @@ philosophy in json format."
(setf (hunchentoot:header-out "Access-Control-Allow-Origin") "*")
(cl-json:encode-json-to-string (wikisophy.crawler:path-to-philosophy query)))
-
-
(defvar *server* (make-instance 'hunchentoot:easy-acceptor :port 4242))
(hunchentoot:start *server*)
M wikisophy.scm => wikisophy.scm +1 -1
@@ 24,5 24,5 @@
(description "A web server that can responds to a query in the
path it takes from a related wikipedia.org article to the philosophy
article, after following the first link in each article.")
- (home-page "https://breadandroses.com")
+ (home-page "https://wikisophy.bendersteed.tech")
(license gpl3+))