refactored main project name

src/book/cli/core.clj

@@ -1 +0,0 @@
-(ns book.cli.core)

src/book/rest/marketdata.clj

@@ -1 +0,0 @@
-(ns book.rest.marketdata)

src/book/util.clj

@@ -1,9 +0,0 @@
-(ns book.util
-  (:import [book.PersistentSortedList]))
-
-(defn sorted-list [& keys]
-  (book.PersistentSortedList/create (seq keys)))
-
-(defn sorted-list-by [comparator & keys]
-  (book.PersistentSortedList/create comparator (seq keys)))
-

src/java/skirmish/PersistentSortedList.java

@@ -1,4 +1,4 @@
-package book;
+package skirmish;
 
 import clojure.lang.*;
 import java.util.*;

src/skirmish/cli/core.clj

@@ -0,0 +1 @@
+(ns skirmish.cli.core)

src/skirmish/cli/exchange.clj

@@ -1,8 +1,8 @@
-(ns book.cli.exchange
-  (:require [book.match :refer [sell?]]
-    [book.util :refer :all]
-    [book.exchange :refer [empty-book create-exchange-for-security]]
-    [book.order]  ;; for spec side effect
+(ns skirmish.cli.exchange
+  (:require [skirmish.match :refer [sell?]]
+    [skirmish.util :refer :all]
+    [skirmish.exchange :refer [empty-book create-exchange-for-security]]
+    [skirmish.order]  ;; for spec side effect
     [slingshot.slingshot :refer [try+ throw+]]
     [clojure.edn :as edn]
     [clojure.core.async :refer [chan go >!! <!!]]

src/skirmish/core.clj

@@ -1,10 +1,10 @@
-(ns book.core
-  (:require [book.cli.core]
-            [book.rest.core]
+(ns skirmish.core
+  (:require [skirmish.cli.core]
+            [skirmish.rest.core]
             [aero.core :refer (read-config)])
   (:gen-class))
 
-(def apps {:webserver book.rest.core/-main})
+(def apps {:webserver skirmish.rest.core/-main})
 
 (defn -main [& argv]
   (let [config (-> "config.edn" clojure.java.io/resource read-config)

src/skirmish/exchange.clj

@@ -1,9 +1,9 @@
-(ns book.exchange
-  (:require [book.match :refer [sell?
-                                create-buy-book
-                                create-sell-book
-                                match-order-in-book]]
-            [book.util :refer :all]
+(ns skirmish.exchange
+  (:require [skirmish.match :refer [sell?
+                                    create-buy-book
+                                    create-sell-book
+                                    match-order-in-book]]
+            [skirmish.util :refer :all]
             [clojure.core.async :refer [chan go >! <! pub]]))
 
 (def empty-book {:sell (create-sell-book) :buy (create-buy-book)})

src/skirmish/match.clj

@@ -1,5 +1,5 @@
-(ns book.match
-  (:require [book.util :refer [sorted-list-by]]
+(ns skirmish.match
+  (:require [skirmish.util :refer [sorted-list-by]]
             [clojure.spec.alpha :as s]
             [clojure.edn :as edn]))
 

src/skirmish/order.clj

@@ -1,4 +1,4 @@
-(ns book.order
+(ns skirmish.order
   (:require [clojure.spec.alpha :as s]))
 
 ;;  Let say an order is a map of the following keys
@@ -7,11 +7,11 @@
 ;;  :type    one of :sell :buy
 ;;  ::id     maybe an id
 
-(s/def ::type #{:buy :sell})
-(s/def ::price pos-int?)
-(s/def ::quantity pos-int?)
-(s/def ::id    pos-int?)
-(s/def ::order (s/keys :req-un [::type ::price ::quantity] :opt [::id]))
+(s/def :book.order/type #{:buy :sell})
+(s/def :book.order/price pos-int?)
+(s/def :book.order/quantity pos-int?)
+(s/def :book.order/id    pos-int?)
+(s/def :book.order/order (s/keys :req-un [:book.order/type :book.order/price :book.order/quantity] :opt [:book.order/id]))
 
 ;; A trade is defined by the bellow map...
 ;;  ::quantity  the amount of exchanged securities

src/skirmish/rest/core.clj

@@ -1,8 +1,8 @@
-(ns book.rest.core
+(ns skirmish.rest.core
   (:require [org.httpkit.server :refer [run-server]]
             [compojure.handler :refer [api]]
-            [book.rest.exchange :refer [create-exchanges-api-for
-                                        create-routes]]))
+            [skirmish.rest.exchange :refer [create-exchanges-api-for
+                                            create-routes]]))
 
 (defn -main [config]
   (let [webserver-config (:webserver config)

src/skirmish/rest/exchange.clj

@@ -1,12 +1,12 @@
-(ns book.rest.exchange
-  (:require [book.exchange :refer [empty-book]]
+(ns skirmish.rest.exchange
+  (:require [skirmish.exchange :refer [empty-book]]
             [org.httpkit.server :refer [run-server with-channel send! close on-close]]
             [compojure.route :refer [not-found]]
             [compojure.handler :refer [api]]
             [compojure.core :refer :all]
-            [book.order]  ;; for spec side effect
-            [book.exchange :refer [create-exchange-for-security]]
-            [book.rest.util :refer [build-response build-response-body]]
+            [skirmish.order]  ;; for spec side effect
+            [skirmish.exchange :refer [create-exchange-for-security]]
+            [skirmish.rest.util :refer [build-response build-response-body]]
             [clojure.spec.alpha :as s]
             [slingshot.slingshot :refer [try+ throw+]]
             [clojure.core.async :refer [chan go go-loop close! <! >!! sub]]

src/skirmish/rest/marketdata.clj

@@ -0,0 +1 @@
+(ns skirmish.rest.marketdata)

src/skirmish/rest/util.clj

@@ -1,4 +1,4 @@
-(ns book.rest.util
+(ns skirmish.rest.util
   (:require [cheshire.core :refer [generate-string]]
             [clojure.string :refer [split starts-with? ends-with?]]))
 

src/skirmish/util.clj

@@ -0,0 +1,9 @@
+(ns skirmish.util
+  (:import [skirmish.PersistentSortedList]))
+
+(defn sorted-list [& keys]
+  (skirmish.PersistentSortedList/create (seq keys)))
+
+(defn sorted-list-by [comparator & keys]
+  (skirmish.PersistentSortedList/create comparator (seq keys)))
+