Put together a development plan

[oubiwann]

Need to evaluate/review:

• [x] Compojure source
• [ ] lfest YAWS-specific workings

Need to create:

• [ ] a sketch of how Compojure works
• [ ] a sketch of how lfest works with YAWS
• [ ] a sketch of how to do the same for inets http
• [ ] a sketch of how to do the same for Elli
• [ ] a sketch of how to do the same for Cowboy
• [ ] a rough plan for making a server-agnostic approach and how devs would create an lrootes adaptor for their preferred web server
• [ ] some milestones
• [ ] a milestone meta-ticket
• [ ] a series of tickets to get from the sketches to v1

[oubiwann]

Clojure REPL session from today:

(require '[clojure.walk :refer [macroexpand-all]])

(require '[compojure.core :refer [defroutes GET]]
         '[compojure.route :as route])

(defroutes app
  (GET "/" [] "<h1>Hello World</h1>")
  (route/not-found "<h1>Page not found</h1>"))

(macroexpand-all '(defroutes app
  (GET "/" [] "<h1>Hello World</h1>")
  (route/not-found "<h1>Page not found</h1>")))

(def app
  (compojure.core/routes
    (compojure.core/make-route
      :get #clout.core.CompiledRoute{:source "/", :re #"/", :keys [], :absolute? false}
           (fn* ([request__3003__auto__]
            (let* []
              (do "<h1>Hello World</h1>")))))
    (route/not-found "<h1>Page not found</h1>")))

(def req {})
(app req)
{:status 404
 :headers {"Content-Type" "text/html; charset=utf-8"}
 :body "<h1>Page not found</h1>"}

(def req {:uri "/" :request-method 
          :get :server-port 80 
          :server-name "localhost" 
          :remote-addr "10.0.4.64" 
          :scheme "http"})
(app req) ; gives 200
{:status 200
 :headers {"Content-Type" "text/html; charset=utf-8"}
 :body "<h1>Hello World</h1>"}