Minor formatting changes in core ns

Author: Kapil Reddy

src/icw/core.clj

@@ -4,21 +4,27 @@
             [icw.data.process-faster]
             [icw.web.core :as web]))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Introduction
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 ;; Start HTTP server
 
 (comment
   (system/start!))
 
-
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Chapter 1 - Lazy sequences
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 ;; http://localhost:6789/albums
 
 ;; Where is it located ? Let's jump there
 web/app
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Chapter 2 - Concurrency
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 ;; Can we make make populate-db faster?
 

src/icw/web/core.clj

@@ -1,29 +1,25 @@
-;; [[file:~/github/intermediate-clojure-workshop/content/web/core.org::*The%20Preamble][The Preamble:1]]
 (ns icw.web.core
   (:require [compojure.core :as c]
             [aleph.http :as http]
             [ring.middleware
              [keyword-params :refer [wrap-keyword-params]]
              [params :refer [wrap-params]]
              [json :refer [wrap-json-response]]]
+            [icw.web.handlers.albums :as albums]
             [icw.search.core :as search]))
 
 (defn wrap-body [response-body]
   {:status 200
    :body   response-body})
-;; The Preamble:1 ends here
 
-;; [[file:~/github/intermediate-clojure-workshop/content/web/core.org::*The%20Albums%20Context][The Albums Context:1]]
 (def albums-context
   (c/context "/albums" [:as request]
     (c/GET "/" []
       (wrap-body
-        {:message "Here be your JSON-ful of albums"}))
+       (albums/list-albums)))
     (c/GET "/:id" [id]
       (wrap-body {:message (str "Here be your JSON of an album with id " id)}))))
-;; The Albums Context:1 ends here
 
-;; [[file:~/github/intermediate-clojure-workshop/content/web/core.org::*The%20Search%20Context][The Search Context:1]]
 (def search-context
   (c/context "/search" [:as request]
     (c/GET "/:term" [term]
@@ -32,12 +28,10 @@
         (or
           (search/search (keyword field) term)
           (wrap-body {:message (str "Looking for " term " in field " field ", eh?")}))))))
-;; The Search Context:1 ends here
 
-;; [[file:~/github/intermediate-clojure-workshop/content/web/core.org::*Tying%20Together][Tying Together:1]]
 (c/defroutes app*
-             albums-context
-             search-context)
+  albums-context
+  search-context)
 
 (def app
   (c/routes