Разработка Compojure без перезапуска веб-сервера

Ответ 1

Это довольно старый вопрос, и произошли некоторые недавние изменения, которые делают это намного проще.

Есть две основные вещи, которые вы хотите:

• Элемент управления должен вернуться к REPL, чтобы вы могли продолжать взаимодействовать с вашим сервером. Это достигается добавлением {: join? false} к параметрам при запуске сервера Jetty.
• Вы хотите автоматически получать изменения в определенных пространствах имен при смене файлов. Это можно сделать с помощью промежуточного программного обеспечения Ring-wrap-reload.

Игрушечное приложение будет выглядеть так:

(ns demo.core
  (:use webui.nav
    [clojure.java.io]
    [compojure core response]
    [ring.adapter.jetty :only [run-jetty]]
    [ring.util.response]
    [ring.middleware file file-info stacktrace reload])
  (:require [compojure.route :as route] view)
  (:gen-class))

; Some stuff using Fleet omitted.    

(defroutes main-routes
  (GET "/" [] (view/layout {:body (index-page)})
  (route/not-found (file "public/404.html"))
)

(defn app
  []
  (-> main-routes
      (wrap-reload '(demo.core view))
      (wrap-file "public")
      (wrap-file-info)
      (wrap-stacktrace)))

(defn start-server
  []
  (run-jetty (app) {:port 8080 :join? false}))

(defn -main [& args]
  (start-server))

Функция wrap-reload украшает маршруты вашего приложения функцией, которая обнаруживает изменения в перечисленных пространствах имен. При обработке запроса, если эти пространства имен были изменены на диске, они перезагружаются перед дальнейшей обработкой запроса. (Мое пространство имен "вид" динамически создается Fleet, поэтому он автоматически перезагружает мои шаблоны, когда они меняются.)

Я добавил несколько других промежуточных программ, которые я нашел неизменно полезными. wrap-file обрабатывает статические активы. wrap-file-info устанавливает тип MIME для этих статических активов. wrap-stacktrace помогает в отладке.

Из REPL вы можете запустить это приложение, используя пространство имен и напрямую вызывающее start-server. Ключевое слово gen-class и функция -main означают, что приложение также может быть упаковано в качестве uberjar для запуска из-за пределов REPL. (Там мир за пределами REPL? Ну, некоторые люди просили об этом в любом случае...)

Ответ 2

Вот ответ, который я получил от Джеймс Ривз в группе Compojure Google (ответ здесь с его разрешения):

Вы можете перезагрузить пространство имен в Clojure, используя ключ: reload при использовании или требуют команд. Например, скажем, у вас есть файл demo.clj, который содержит ваши маршруты:

(ns demo 
  (:use compojure))

(defroutes demo-routes 
  (GET "/" 
    "Hello World") 
  (ANY "*" 
    [404 "Page not found"])) 

В REPL вы можете использовать этот файл и запустить сервер:

user=> (use 'demo) 
nil 
user=> (use 'compojure) 
nil 
user=> (run-server {:port 8080} "/*" (servlet demo-routes)) 
... 

Вы также можете поместить команду run-server в другой файл Clojure. Однако вы не хотите помещать его в тот же файл, что и материал, который хотите перезагрузить.

Теперь внесите некоторые изменения в demo.clj. Тип REPL:

user=> (use 'demo :reload) 
nil 

И ваши изменения теперь должны появиться на http://localhost:8080

Ответ 3

Я хотел добавить ответ, поскольку с момента последнего ответа все изменилось немного, и я потратил немного времени на это.

• Установите leiningen (просто следуйте инструкциям там)

• Создать проект

  lein new compojure compojure-test 
  

• Измените кольцевую секцию project.clj

  :ring {:handler compojure-test.handler/app 
         :auto-reload? true
         :auto-refresh? true}
  

• Запустите сервер на любом порту, который вы хотите

  lein ring server-headless 8080
  

• Убедитесь, что сервер работает в вашем браузере, базовый маршрут по умолчанию должен просто сказать "Hello world". Затем измените обработчик (он в src/project_name). Измените текст приветствия, сохраните файл и перезагрузите страницу в своем браузере. Он должен отражать новый текст.

Ответ 4

Следуя ссылке Timothy на Jim Downing setup, я недавно опубликовал сообщение о критическом дополнении к той базовой линии, которую я нашел, был необходим для включить автоматическое перераспределение приложений для компоновки во время разработки.

Ответ 5

У меня есть оболочка script, которая выглядит так:

#!/bin/sh                                                                                                                                   
CLASSPATH=/home/me/install/compojure/compojure.jar
CLASSPATH=$CLASSPATH:/home/me/clojure/clojure.jar
CLASSPATH=$CLASSPATH:/home/me/clojure-contrib/clojure-contrib.jar
CLASSPATH=$CLASSPATH:/home/me/elisp/clojure/swank-clojure

for f in /home/me/install/compojure/deps/*.jar; do
    CLASSPATH=$CLASSPATH:$f
done

java -server -cp $CLASSPATH clojure.lang.Repl /home/me/code/web/web.clj

web.clj выглядит следующим образом

(use '[swank.swank])                                                                                                                        
(swank.swank/ignore-protocol-version "2009-03-09")                                                                                          
(start-server ".slime-socket" :port 4005 :encoding "utf-8")

Всякий раз, когда я хочу обновить сервер, я создаю туннель ssh с локальной машины на удаленную машину.

Enclojure и Emacs (запуск SLIME + swank- clojure) могут подключаться к удаленному REPL.

Ответ 6

Это зависит от конфигурации, но работает для меня, и я думаю, вы можете его адаптировать:

• Поместите compojure.jar, а банки в каталоге compojure/deps находятся в вашем пути к классам. Я использую clojure -contrib/launchers/bash/clj-env-dir, чтобы сделать это, все, что вам нужно сделать, это установить каталог в CLOJURE_EXT, и он найдет банки. CLOJURE_EXT Список путей, разделенных запятыми, в каталоги, чей верхний уровень          содержимое (прямо или как символические ссылки) jar          файлы и/или каталоги, чьи пути будут находиться в Clojure 's          CLASSPATH.

• Запуск clojure REPL

• Вставить в hello.clj пример из корневого каталога compojure

• Проверить localhost: 8080

• Переопределите greeter (разворачивает приветствие        (ПОЛУЧИТЬ "/"                 (html [: h1 "До свидания мира" ])))

• Проверить localhost: 8080

Существуют также способы присоединения REPL к существующему процессу или вы можете сохранить встроенный в ваш сервер сокет REPL, или вы даже можете определить POST-вызов, который будет "летать на лету", чтобы вы могли переопределять функции из браузера сам! Есть много способов приблизиться к этому.

Ответ 7

Я хотел бы следить за ответом mtnygard и публиковать полный файл project.clj и файл core.clj, которые получили заданную функциональность. Сделано несколько модификаций, и это более баребоны

команды предварительной настройки

lein new app test-web
cd test-web
mkdir resources

project.clj

(defproject test-web "0.1.0-SNAPSHOT"
  :description "FIXME: write description"
  :url "http://example.com/FIXME"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.5.1"]
                 [compojure "1.1.6"]
                 [ring "1.2.1"]]
  :main ^:skip-aot test-web.core
  :target-path "target/%s"
  :profiles {:uberjar {:aot :all}})

core.clj

(ns test-web.core
  (:use 
   [clojure.java.io]
   [compojure core response]
   [ring.adapter.jetty :only [run-jetty]]
   [ring.util.response]
   [ring.middleware file file-info stacktrace reload])
  (:require [compojure.route :as route])
  (:gen-class))

(defroutes main-routes
  (GET "/" [] "Hello World!!")
  (GET "/hello" [] (hello))
  (route/not-found "NOT FOUND"))

(def app
  (-> main-routes
      (wrap-reload '(test-web.core))
      (wrap-file "resources")
      (wrap-file-info)
      (wrap-stacktrace)))

(defn hello []
  (str "Hello World!"))

(defn start-server
  []
  (run-jetty #'app {:port 8081 :join? false}))

(defn -main [& args]
  (start-server))

Обратите внимание на изменение с (defn app...) на (def app...)

Это было важно для правильной работы сервера причала

Ответ 8

Compojure использует ring внутренне (тем же автором), ring web server options позволяют автоматически загружать. Таким образом, возможны две альтернативы:

lein ring server
lein ring server-headless
lein ring server 4000
lein ring server-headless 4000

Обратите внимание, что:

Вам нужно иметь строку в файле project.clj, которая выглядит так:
: ring {: handler your.app/handler}