Add json api handler

src/helper.lisp

@@ -0,0 +1,12 @@
+(defpackage #:website/helper
+  (:use #:cl
+        #:jingle)
+  (:export #:api-p))
+(in-package #:website/helper)
+
+(defun starts-with-p (prefix string)
+  (let ((pos (search prefix string :start1 0 :end1 (length prefix) :start2 0)))
+    (and pos (= pos 0))))
+
+(defun api-p ()
+  (starts-with-p "/api/" (request-uri *request*)))