From 53284a2f5d22d15cd7851fd0f06a53ea1df0c280 Mon Sep 17 00:00:00 2001
From: David Barksdale <amatus@amatus.name>
Date: Fri, 25 Nov 2016 10:46:06 -0600
Subject: Starting point for hoplon app

---
 src/app/core.clj    |  8 ++++++++
 src/app/handler.clj | 18 ++++++++++++++++++
 src/app/rpc.cljs    |  6 ++++++
 3 files changed, 32 insertions(+)
 create mode 100644 src/app/core.clj
 create mode 100644 src/app/handler.clj
 create mode 100644 src/app/rpc.cljs

(limited to 'src/app')

diff --git a/src/app/core.clj b/src/app/core.clj
new file mode 100644
index 0000000..42ad0d1
--- /dev/null
+++ b/src/app/core.clj
@@ -0,0 +1,8 @@
+(ns app.core
+  (:gen-class)
+  (:require [app.handler :refer [app]]
+            [ring.adapter.jetty :refer [run-jetty]]))
+
+(defn -main
+  [& args]
+  (run-jetty app {:port 80}))
diff --git a/src/app/handler.clj b/src/app/handler.clj
new file mode 100644
index 0000000..eb0c2a3
--- /dev/null
+++ b/src/app/handler.clj
@@ -0,0 +1,18 @@
+(ns app.handler
+  (:require [castra.middleware :as castra]
+            [compojure.core :as c]
+            [compojure.route :as route]
+            [ring.middleware.defaults :as d]
+            [ring.util.response :as response]
+            [simpledb.core :as db]))
+
+(c/defroutes app-routes
+  (c/GET "/" req (response/content-type (response/resource-response "index.html") "text/html"))
+  (route/resources "/" {:root ""}))
+
+(def app
+  (-> app-routes
+      (castra/wrap-castra 'app.api)
+      (d/wrap-defaults d/api-defaults)))
+
+(db/init)
diff --git a/src/app/rpc.cljs b/src/app/rpc.cljs
new file mode 100644
index 0000000..7edbc4c
--- /dev/null
+++ b/src/app/rpc.cljs
@@ -0,0 +1,6 @@
+(ns app.rpc
+  (:require-macros
+    [javelin.core :refer [defc defc=]])
+  (:require
+    [javelin.core]
+    [castra.core :refer [mkremote]]))
-- 
cgit v1.2.3-18-g5258