(defpackage :fwoar.markdown-server
   (:use :cl :fw.lu :fwoar.string-utils :alexandria :serapeum))
 (in-package :fwoar.markdown-server)
 
 (araneus:define-controller list-files (params)
   (declare (optimize (debug 3)))
   (uiop:directory-files (uiop:merge-pathnames* "onboarding/") "*.md"))
 
 (araneus:define-view debug (model)
   (prin1-to-string model))
 
 (araneus:define-spinneret-view list-files ((files list))
   (declare (optimize (debug 3)))
   (:html
    (:ul
     (loop for file in files
        do (:li (:a :href (format nil "/?file=~a" file)
 		   (princ-to-string file)))))))
 
 (araneus:define-controller markdown (params)
   (format t "~&~s~%" params)
   (let* ((specified-file (cdr (assoc "file" params :test 'equal)))
 	 (source-file (uiop:merge-pathnames* specified-file)))
     (if (probe-file source-file)
 	(cl-markdown:markdown (read-file-into-string source-file)
 			      :format :none)
 	(araneus::switch-view 'not-found))))
 
 (araneus:define-spinneret-view not-found (model)
   (:body (:h1 "NOT FOUND")))
 
 (defmethod araneus:view :around (name model)
   (spinneret:with-html-string
     (:html
      (:head
       (:link :rel "stylesheet" :href "//cdn.rawgit.com/necolas/normalize.css/master/normalize.css")
       (:link :rel "stylesheet" :href "//cdn.rawgit.com/milligram/milligram/master/dist/milligram.min.css")
       (:style
        "body {"
        " width: 50%;"
        " max-width: 40em;"
        " margin-left: 10em;"
        " font-family: 'Lato', 'Helvetica', 'Arial', sans-serif;"
        " font-size: 20px;"
        "}"
 
        "ul {"
        " padding-left: 1em;"
        " background: rgba(0, 0, 128, 0.05);"
        "}"
 
        "li {"
        " list-style: circle outside;"
        " padding: 0.2em 0 0.2em 0.5em 0.1em;"
        " margin-left: 0.4em;"
        "}"
 
        "li:hover {"
        " background: rgba(0,0,64, 0.1);"
        "}"
        ))
      (:body
       (format spinneret:*html* (call-next-method))))))
 
 
 (araneus:define-view markdown (model)
   (cl-markdown:render-to-stream model :html nil))
 
 (defparameter *app* (make-instance 'ningle:<app>))
 (araneus:defroutes *app*
   (("/index") (araneus:as-route 'list-files))
   (("/") (araneus:as-route 'markdown)))
 
 (progn 
        (let ((handlers '()))
 	 (defun start (&optional (port 9879))
 	   (push (clack:clackup *app* :port port)
 		 handlers))
 	 (defun stop ()
 	   (clack:stop (pop handlers)))))