You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
462 B
12 lines
462 B
(in-package #:cl-bible.api) |
|
|
|
(defvar *server* (make-instance 'h:easy-acceptor :port 4242)) |
|
|
|
(defmethod start ((server h:easy-acceptor)) |
|
(h:start server)) |
|
|
|
(h:define-easy-handler (get-reference :uri "/ref") (reference bible) |
|
(setf (h:content-type*) "text/plain") |
|
(setf (h:header-out :access-control-allow-origin) "*") |
|
(let ((bible (d::read-bible-from-tsv (or bible "mng")))) |
|
(j:to-json (v:to-sexp (s:find-verse bible (s:parse-position reference))))))
|
|
|