URL shortener: add readme.md and user.clj

Author: zelark

url-shortener/dev/user.clj

@@ -0,0 +1,16 @@
+(ns user
+  (:import [org.slf4j.simple SimpleLogger]))
+
+(System/setProperty SimpleLogger/DEFAULT_LOG_LEVEL_KEY "warn")
+
+(defonce *server (atom nil))
+
+(require '[url-shortener.main :as main])
+
+(defn start-server []
+  (reset! *server (main/start-server {:port 8000 :join? false})))
+
+(defn stop-server []
+  (when @*server
+    (main/stop-server @*server)
+    (reset! *server nil)))

url-shortener/project.clj

@@ -2,12 +2,15 @@
   :description "URL shortener app"
 
   :source-paths ["src" "resources"]
+  :resource-paths ["resources"]
 
-  :dependencies [;; Backend
+  :dependencies [
+                 ;; Backend
                  [org.clojure/clojure "1.11.1"]
                  [ring/ring-jetty-adapter "1.11.0"]
                  [ring/ring-json "0.5.1"]
                  [compojure "1.7.1"]
+                 [org.slf4j/slf4j-simple "2.0.10"]
 
                  ;; Frontend
                  [reagent "1.2.0"]
@@ -23,7 +26,9 @@
 
   :uberjar-name "url-shortener.jar"
 
-  :resource-paths ["resources"]
+  :profiles {:dev {:source-paths ["dev"]
+                   :dependencies [[ring/ring-devel "1.11.0"]]}
+
+             :repl {:repl-options {:init-ns user}}
 
-  :profiles {:dev {:dependencies [[ring/ring-devel "1.11.0"]]}
              :uberjar {:aot :all}})

url-shortener/readme.md

@@ -0,0 +1,55 @@
+# URL Shortener
+
+## Установка зависимостей
+
+```bash
+lein deps with-profile cljs
+npm install
+```
+
+## Универсальный запуск из командной строки
+
+### Сборка клиентской части
+
+```bash
+npx shadow-cljs compile app
+```
+
+### Запуск в режиме разработки (REPL)
+
+```bash
+lein repl
+```
+
+Теперь можно запустить веб-сервер следующими образом
+
+```clojure
+user=> (start-server)
+Server started on port: 8000
+#object[org.eclipse.jetty.server.Server ..."]
+```
+
+Или остановить
+
+```clojure
+user=> (stop-server)
+Server stopped
+nil
+```
+
+## Запуск через Jack-in: VSCode + Calva
+
+1. Запускаем Jack-in через Command Palette.
+2. Выбираем project type: `shadow-cljs`.
+3. Выбираем build to compile: `app`.
+4. Выбираем build to connect: `app`.
+   В этот момент в `output.calva-repl` будет выводиться
+
+   ```text
+   ; Waiting for Shadow CLJS runtimes, start your CLJS app...`
+   ```
+  
+5. Запускаем сервер с помощью `(user/start-server)`.
+6. Открываем в браузере `localhost:8000` — это и есть наш CLJS runtime.
+
+После этого мы должны подключиться к CLJS реплу.

url-shortener/src/url_shortener/main.clj

@@ -9,12 +9,12 @@
   ([] (start-server {}))
   ([opts]
    (let [server (jetty/run-jetty #'web/handler opts)]
-     (println "Server started.")
+     (println "Server started on port:" (:port opts 80))
      server)))
 
 (defn stop-server [server]
   (.stop ^Server server)
-  (println "Server stopped."))
+  (println "Server stopped"))
 
 (defn -main [& _]
   (let [server (start-server)]