(in-package :fwoar.blog)

(defclass blog-route ()
  ((%blog :initarg :blog :reader blog)))

(defclass index-route (blog-route)
  ())

(defclass post-route (blog-route)
  ((%post :initarg :post :reader post)))

(defmethod araneus:controller ((route index-route) action &key)
  (posts (blog route)))

(defclass save-action ()
  ((%post-type :initarg :post-type :reader post-type)
   (%post-initargs :initarg :post-initargs :reader post-initargs)))

(defmethod araneus:controller ((route post-route) (action (eql :view)) &key)
  (post route))
(defmethod araneus:controller ((route post-route) (action (eql :new)) &key)
  nil)
(defmethod araneus:controller ((route post-route) (action save-action) &key)
  (let ((blog (blog route)))
    (car
     (push (apply #'make-instance (post-type action) (post-initargs action))
           (posts blog)))))

(defun setup-routes (app blog)
  (araneus:defroutes app
    (("/" :method :GET)
     (lambda (_)
       (declare (ignore _))
       (let ((route (make-instance 'index-route :blog blog)))
         (araneus:run-route route :get))))

    (("/p/:post" :method :GET)
     (lambda (params)
       (format t "~&params: ~s~%" params)
       (let* ((post-name (cdr (assoc :post params)))
              (post (find-post post-name blog))
              (route (make-instance 'post-route :post post))
              (action (if post :view :new)))
         (araneus:run-route route action))))

    (("/micro" :method :POST)
     (lambda (params)
       (let* ((route (make-instance 'post-route :blog blog))
              (content (babel:octets-to-string (lack.request:request-content ningle:*request*))))
         (araneus:run-route route
                            (make-instance 'save-action
                                           :post-type 'micropost
                                           :post-initargs (list :content
                                                                (cdr (assoc "content" params
                                                                            :test 'equal))))))))))