-
Notifications
You must be signed in to change notification settings - Fork 0
/
main.clj
76 lines (66 loc) · 2 KB
/
main.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
(ns server.main
(:require
[app.ui]
[cider.nrepl :refer [cider-nrepl-handler]]
[nrepl.server :as nrepl]
[ring.middleware.resource :refer [wrap-resource]]
[ring.middleware.reload :refer [wrap-reload]]
[ring.adapter.jetty :as jetty]
[hiccup2.core :as h]
[hiccup.util :refer [raw-string]]
[uix.core :refer [$]]
[uix.dom.server :as dom.server])
(:gen-class))
(defonce server (atom nil))
(defn index [inner]
(str
"<!DOCTYPE html>"
(h/html
[:html.no-js {:lang "en"}
[:head
[:meta {:charset "utf-8"}]
[:meta {:http-equiv "x-ua-compatible" :content "ie=edge"}]
[:meta {:name "description" :content ""}]
[:meta {:name "viewport" :content "width=device-width, initial-scale=1"}]
[:title "SSR"]
[:link {:rel "stylesheet" :href (str "/css/style.css?v=" (System/currentTimeMillis))}]]
[:body
[:div#root (raw-string inner)]
[:script {:src "/js/main.js"}]]])))
(defn render-app [_]
{:status 200
:headers {"Content-Type" "text/html"}
:body
(-> ($ (var-get (resolve 'app.ui/app)))
dom.server/render-to-static-markup
index)})
(defn start-server []
(reset! server
(jetty/run-jetty
(-> #'render-app
(wrap-resource "public")
wrap-reload)
{:port 3000 :join? false}))
(println "Server started on port 3000"))
(defn stop-server []
(when @server
(.stop @server)
(reset! server nil)
(println "Server stopped")))
(defn restart-server []
(stop-server)
(start-server))
(defn -main [& args]
(start-server)
(nrepl/start-server :port 1881 :handler cider-nrepl-handler)
(println "nREPL server started on port 1881"))
(comment
;; View component HTML
(dom.server/render-to-static-markup
($ (var-get (resolve 'app.ui/app))))
;; View page HTML
(-> ($ (var-get (resolve 'app.ui/app)))
dom.server/render-to-static-markup
index)
;; Restart the server process
(restart-server))