22 lines
518 B
Clojure
22 lines
518 B
Clojure
|
(ns example
|
||
|
|
(:require [hiccup2.core :refer [html]]
|
||
|
|
[org.httpkit.server :refer [run-server]]))
|
||
|
|
|
||
|
|
(def port (or (some-> (System/getenv "PORT")
|
||
|
|
parse-long)
|
||
|
|
8092))
|
||
|
|
|
||
|
|
(run-server
|
||
|
|
(fn [_]
|
||
|
|
{:body
|
||
|
|
(str (html
|
||
|
|
[:html
|
||
|
|
[:body
|
||
|
|
[:h1 "Hello world!"]
|
||
|
|
[:p (str "This site is running with babashka v"
|
||
|
|
(System/getProperty "babashka.version"))]]]))})
|
||
|
|
{:port port})
|
||
|
|
|
||
|
|
(println "Site running on port" port)
|
||
|
|
@(promise)
|