soukev
/
clj-http-server-template
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Initial template

main
Soukev 2025-08-26 18:51:05 +02:00
commit a8dd292699
16 changed files with 356 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
.gitignore vendored Normal file
View File

@ -0,0 +1,30 @@
.calva/output-window/
.calva/repl.calva-repl
.classpath
.clj-kondo/.cache
.cpcache
.DS_Store
.eastwood
.factorypath
.hg/
.hgignore
.java-version
.lein-*
.lsp/.cache
.lsp/sqlite.db
.nrepl-history
.nrepl-port
.portal
.project
.rebel_readline_history
.settings
.socket-repl-port
.sw*
.vscode
*.class
*.jar
*.swp
*~
/checkouts
/classes
/target

2
README.md Normal file
View File

@ -0,0 +1,2 @@
# http-server-template

73
build.clj Normal file
View File

@ -0,0 +1,73 @@
(ns build
(:refer-clojure :exclude [test])
(:require [clojure.tools.deps :as t]
[clojure.tools.build.api :as b]
[deps-deploy.deps-deploy :as dd]))
(def lib 'net.clojars.soukev/clj-template.http-server-template)
(def version "0.1.0-SNAPSHOT")
#_; alternatively, use MAJOR.MINOR.COMMITS:
(def version (format "1.0.%s" (b/git-count-revs nil)))
(def class-dir "target/classes")
(defn test "Run all the tests." [opts]
(println "\nRunning tests...")
(let [basis (b/create-basis {:aliases [:test]})
combined (t/combine-aliases basis [:test])
cmds (b/java-command
{:basis basis
:java-opts (:jvm-opts combined)
:main 'clojure.main
:main-args ["-m" "cognitect.test-runner"]})
{:keys [exit]} (b/process cmds)]
(when-not (zero? exit) (throw (ex-info "Tests failed" {}))))
opts)
(defn- pom-template [version]
[[:description "FIXME: my new template."]
[:url "https://github.com/soukev/http-server-template"]
[:licenses
[:license
[:name "Eclipse Public License"]
[:url "http://www.eclipse.org/legal/epl-v10.html"]]]
[:developers
[:developer
[:name "Soukev"]]]
[:scm
[:url "https://github.com/soukev/http-server-template"]
[:connection "scm:git:https://github.com/soukev/http-server-template.git"]
[:developerConnection "scm:git:ssh:git@github.com:soukev/http-server-template.git"]
[:tag (str "v" version)]]])
(defn- jar-opts [opts]
(assoc opts
:lib lib :version version
:jar-file (format "target/%s-%s.jar" lib version)
:basis (b/create-basis {})
:class-dir class-dir
:target "target"
:src-dirs ["src"]
:pom-data (pom-template version)))
(defn ci "Run the CI pipeline of tests (and build the JAR)." [opts]
(test opts)
(b/delete {:path "target"})
(let [opts (jar-opts opts)]
(println "\nWriting pom.xml...")
(b/write-pom opts)
(println "\nCopying source...")
(b/copy-dir {:src-dirs ["resources" "src"] :target-dir class-dir})
(println "\nBuilding JAR...")
(b/jar opts))
opts)
(defn install "Install the JAR locally." [opts]
(let [opts (jar-opts opts)]
(b/install opts))
opts)
(defn deploy "Deploy the JAR to Clojars." [opts]
(let [{:keys [jar-file] :as opts} (jar-opts opts)]
(dd/deploy {:installer :remote :artifact (b/resolve-path jar-file)
:pom-file (b/pom-path (select-keys opts [:lib :class-dir]))}))
opts)

13
deps.edn Normal file
View File

@ -0,0 +1,13 @@
{:paths ["src" "resources"]
:deps {org.clojure/clojure {:mvn/version "1.12.0"}
com.github.seancorfield/clj-new {:mvn/version "1.3.415"}}
:aliases
{:clj-new {:exec-fn clj-new/create
:exec-args {:template "http-server-template"}}
:build {:deps {io.github.clojure/tools.build {:mvn/version "0.10.5"}
slipset/deps-deploy {:mvn/version "0.2.2"}}
:ns-default build}
:test {:extra-paths ["test"]
:extra-deps {org.clojure/test.check {:mvn/version "1.1.1"}
io.github.cognitect-labs/test-runner
{:git/tag "v0.5.1" :git/sha "dfb30dd"}}}}}

43
resources/clj/new/http_server_template/build.clj Normal file
View File

@ -0,0 +1,43 @@
(ns build
(:refer-clojure :exclude [test])
(:require [clojure.tools.deps :as t]
[clojure.tools.build.api :as b]))
(def lib '{{group}}/{{artifact}})
(def version "{{version}}")
(def main '{{namespace}})
(def class-dir "target/classes")
(defn test "Run all the tests." [opts]
(println "\nRunning tests...")
(let [basis (b/create-basis {:aliases [:test]})
combined (t/combine-aliases basis [:test])
cmds (b/java-command
{:basis basis
:java-opts (:jvm-opts combined)
:main 'clojure.main
:main-args ["-m" "cognitect.test-runner"]})
{:keys [exit]} (b/process cmds)]
(when-not (zero? exit) (throw (ex-info "Tests failed" {}))))
opts)
(defn- uber-opts [opts]
(assoc opts
:lib lib :main main
:uber-file (format "target/%s-%s.jar" lib version)
:basis (b/create-basis {})
:class-dir class-dir
:src-dirs ["src"]
:ns-compile [main]))
(defn ci "Run the CI pipeline of tests (and build the uberjar)." [opts]
(test opts)
(b/delete {:path "target"})
(let [opts (uber-opts opts)]
(println "\nCopying source...")
(b/copy-dir {:src-dirs ["resources" "src"] :target-dir class-dir})
(println (str "\nCompiling " main "..."))
(b/compile-clj opts)
(println "\nBuilding JAR...")
(b/uber opts))
opts)

26
resources/clj/new/http_server_template/core.clj Normal file
View File

@ -0,0 +1,26 @@
(ns {{namespace}}
(:require [ring.adapter.jetty :as jetty]
[{{namespace}}.handler :as handler])
(:gen-class))
(defonce server (atom nil))
(defn start-server []
(reset! server
(jetty/run-jetty (fn [req] (handler/app req))
{:port 3333
:join? false})))
(defn stop-server []
(when-some [s @server]
(.stop s)
(reset! server nil)))
(defn start-dev-server []
(reset! server
(jetty/run-jetty #'handler/reloadable-app
{:port 3333
:join? false})))
(defn -main []
(start-server))

19
resources/clj/new/http_server_template/deps.edn Normal file
View File

@ -0,0 +1,19 @@
{:paths ["src" "resources"]
:deps {org.clojure/clojure {:mvn/version "1.12.0"}
ring/ring-core {:mvn/version "1.12.2"}
ring/ring-jetty-adapter {:mvn/version "1.12.2"}
ring/ring-devel {:mvn/version "1.12.2"}
compojure/compojure {:mvn/version "1.7.1"}
hiccup/hiccup {:mvn/version "2.0.0-RC3"}}
:aliases
{:run-m {:main-opts ["-m" "{{namespace}}"]}
:run-x {:ns-default {{namespace}}
:exec-fn start-server
:exec-args {}}
:build {:deps {io.github.clojure/tools.build {:mvn/version "0.10.5"}
slipset/deps-deploy {:mvn/version "0.2.2"}}
:ns-default build}
:test {:extra-paths ["test"]
:extra-deps {org.clojure/test.check {:mvn/version "1.1.1"}
io.github.cognitect-labs/test-runner
{:git/tag "v0.5.1" :git/sha "dfb30dd"}}}}}

30
resources/clj/new/http_server_template/gitignore Normal file
View File

@ -0,0 +1,30 @@
.calva/output-window/
.calva/repl.calva-repl
.classpath
.clj-kondo/.cache
.cpcache
.DS_Store
.eastwood
.factorypath
.hg/
.hgignore
.java-version
.lein-*
.lsp/.cache
.lsp/sqlite.db
.nrepl-history
.nrepl-port
.portal
.project
.rebel_readline_history
.settings
.socket-repl-port
.sw*
.vscode
*.class
*.jar
*.swp
*~
/checkouts
/classes
/target

26
resources/clj/new/http_server_template/handler.clj Normal file
View File

@ -0,0 +1,26 @@
(ns {{namespace}}.handler
(:require [compojure.core :as comp]
[compojure.route :as route]
[ring.middleware.params :refer [wrap-params]]
[ring.middleware.reload :refer [wrap-reload]]
[ring.middleware.resource :refer [wrap-resource]]
[ring.middleware.session :refer [wrap-session]]
[ring.middleware.cookies :refer [wrap-cookies]]
[{{namespace}}.response :as r]
[{{namespace}}.views.base :as v]))
(def routes
(comp/routes
(comp/GET "/" [:as req] (-> (r/response :ok :html "<h1>Hello World!<h1>")
(assoc :session (req :session))))
(route/not-found (r/response :not-found :plain "Not found."))))
(def app (-> routes
(wrap-resource "public")
wrap-cookies
wrap-session
wrap-params))
(def reloadable-app
(-> app
wrap-reload))

7
resources/clj/new/http_server_template/public/main.css Normal file
View File

@ -0,0 +1,7 @@
:root {
--bg-color: #EBECF0;
}
body {
font-family: "Bricolage Grotesque"
}

22
resources/clj/new/http_server_template/response.clj Normal file
View File

@ -0,0 +1,22 @@
(ns {{namespace}}.response)
(defn- to-status
[status]
(case status
:ok 200
:not-found 404
:internal-error 500
500))
(defn- to-content-type
[content-type]
(case content-type
:html "text/html"
:plain "text/plain"
"text/plain"))
(defn response
[status content-type body]
{:status (to-status status)
:headers {"Content-Type" (to-content-type content-type)}
:body body})

12
resources/clj/new/http_server_template/response_test.clj Normal file
View File

@ -0,0 +1,12 @@
(ns {{namespace}}.response-test
(:require [{{namespace}}.response :as sut]
[clojure.test :as t]))
(t/deftest response-invalid-status-returns-500-test
(t/testing "Invalid status value returns 500 response."
(t/is (= 500 (:status (sut/response :non-existent-status :plain ""))))))
(t/deftest response-invalid-content-type-returns-plain-test
(t/testing "Invalid content type returns text/plain response."
(t/is (= {"Content-Type" "text/plain"} (-> (sut/response :ok :non-existent-type "")
:headers)))))

7
resources/clj/new/http_server_template/test.clj Normal file
View File

@ -0,0 +1,7 @@
(ns {{namespace}}-test
(:require [clojure.test :refer :all]
[{{namespace}} :refer :all]))
(deftest a-test
(testing "FIXME, I fail."
(is (= 0 1))))

8
resources/clj/new/http_server_template/views/base.clj Normal file
View File

@ -0,0 +1,8 @@
(ns {{namespace}}.views.base
(:require [{{namespace}}.views.components.page :as page]))
(defn base
[req]
(page/page
"Hello world!"
req))

16
resources/clj/new/http_server_template/views/components/page.clj Normal file
View File

@ -0,0 +1,16 @@
(ns {{namespace}}.views.components.page
(:require
[hiccup.page :refer [html5 include-css include-js]]))
(defn page
[title & body]
(html5
[:head
[:meta {:charset "UTF-8"}]
[:meta {:content "width=device-width, initial-scale=1", :name "viewport"}]
(include-css "/css/main.css")
(include-css "https://fonts.googleapis.com/css?family=Bricolage+Grotesque")
(include-js "https://unpkg.com/htmx.org@2.0.4")
[:title title]]
[:body
body]))

22
src/clj/new/http_server_template.clj Normal file
View File

@ -0,0 +1,22 @@
(ns clj.new.http-server-template
(:require [clj.new.templates :refer [renderer project-data ->files]]))
(defn http-server-template
"Http server template configuration."
[name]
(let [render (renderer "http-server-template")
data (project-data name)]
(println "Generating fresh 'clj new' http-server-template project.")
(->files data
["deps.edn" (render "deps.edn" data)]
["build.clj" (render "build.clj" data)]
[".gitignore" (render "gitignore" data)]
["src/{{nested-dirs}}.clj" (render "core.clj" data)]
["src/{{nested-dirs}}/handler.clj" (render "handler.clj" data)]
["src/{{nested-dirs}}/response.clj" (render "response.clj" data)]
["src/{{nested-dirs}}/views/base.clj" (render "views/base.clj" data)]
["src/{{nested-dirs}}/views/components/page.clj" (render "views/components/page.clj" data)]
["test/{{nested-dirs}}_test.clj" (render "test.clj" data)]
["test/{{nested-dirs}}/response_test.clj" (render "response_test.clj" data)]
["resources/public/main.css" (render "public/main.css")]
)))