clojure web-app 疑难解答：连接 html 和 css 以进行 heroku 部署

Question

我有两个文件，一个 html 和一个 css。我试图将它们变成一个 heroku 应用程序，甚至使用 lein 命令创建一个对 heroku 友好的骨架并将这两个文件插入，但无法让它为我的生活工作。关于如何协调视图与后端控件，有一些非常基本的东西我还不明白。 hello world 教程对我没有帮助，因为它们没有向我展示如何做不同的事情或解释我的 defroutes 功能需要改变什么，例如，为了实现这一点。简而言之，我的问题是：如何将这两个文件协调到一个 Clojure 项目中，以使 html 呈现为 webapp 的首页，然后将其部署到 heroku 上？

html:

<html>
    <head>
        <link rel="stylesheet" href="style.css" />
    </head>

    <body>
        <img id="sun" src="http://goo.gl/dEEssP">
        <div id='earth-orbit'>
            <img id="earth" src="http://goo.gl/o3YWu9">
        </div>
    </body>
</html>

“lein new heroku ...”项目中的web.clj 文件：

(ns solar_system.web
  (:require [compojure.core :refer [defroutes GET PUT POST DELETE ANY]]
            [compojure.handler :refer [site]]
            [compojure.route :as route]
            [clojure.java.io :as io]
            [ring.middleware.stacktrace :as trace]
            [ring.middleware.session :as session]
            [ring.middleware.session.cookie :as cookie]
            [ring.adapter.jetty :as jetty]
            [ring.middleware.basic-authentication :as basic]
            [cemerick.drawbridge :as drawbridge]
            [environ.core :refer [env]]))

(defn- authenticated? [user pass]
  ;; TODO: heroku config:add REPL_USER=[...] REPL_PASSWORD=[...]
  (= [user pass] [(env :repl-user false) (env :repl-password false)]))

(def ^:private drawbridge
  (-> (drawbridge/ring-handler)
      (session/wrap-session)
      (basic/wrap-basic-authentication authenticated?)))

(defroutes app
  (ANY "/repl" {:as req}
       (drawbridge req))
  (GET "/" []
       {:status 200
        :headers {"Content-Type" "text/plain"}
        :body (pr-str ["Hello" :from 'Heroku])})  ; <= Should I change this part here?
  (ANY "*" []
       (route/not-found (slurp (io/resource "404.html")))))

(defn wrap-error-page [handler]
  (fn [req]
    (try (handler req)
         (catch Exception e
           {:status 500
            :headers {"Content-Type" "text/html"}
            :body (slurp (io/resource "500.html"))}))))

(defn -main [& [port]]
  (let [port (Integer. (or port (env :port) 5000))
        ;; TODO: heroku config:add SESSION_SECRET=$RANDOM_16_CHARS
        store (cookie/cookie-store {:key (env :session-secret)})]
    (jetty/run-jetty (-> #'app
                         ((if (env :production)
                            wrap-error-page
                            trace/wrap-stacktrace))
                         (site {:session {:store store}}))
                     {:port port :join? false})))

;; For interactive development:
;; (.stop server)
;; (def server (-main)) 

project.clj 文件

(defproject solar_system "1.0.0-SNAPSHOT"
  :description "FIXME: write description"
  :url "http://solar_system.herokuapp.com"
  :license {:name "FIXME: choose"
            :url "http://example.com/FIXME"}            
  :dependencies [[org.clojure/clojure "1.4.0"]
                 [compojure "1.1.1"]
                 [ring/ring-jetty-adapter "1.1.0"]
                 [ring/ring-devel "1.1.0"]
                 [ring-basic-authentication "1.0.1"]
                 [environ "0.2.1"]
                 [com.cemerick/drawbridge "0.0.6"]]
  :min-lein-version "2.0.0"
  :plugins [[environ/environ.lein "0.2.1"]]
  :hooks [environ.leiningen.hooks]
  :profiles {:production {:env {:production true}}})

呈现文本的典型处理程序代码示例：

(ns hello-world.core
(:use ring.adapter.jetty))

(defn app [req]
    {:status 200
    :headers {"Content-Type" "text/plain"}
    :body "Hello, world"}) ; <= Could I just change this part to slurp in
                           ;    the html file and stick it in a file in my 
                           ;    root directory to get a successful 'git push heroku master'?

Answer 1

修改你的代码：

(defroutes app
  (ANY "/repl" {:as req}
       (drawbridge req))
  (GET "/" []
       {:status 200
        :headers {"Content-Type" "text/html"} ; change content type
        :body (slurp "resources/public/my-file.html")}) ; wherever your file is
  (ANY "*" []
       (route/not-found (slurp (io/resource "404.html")))))

我会怎么写：

(defroutes app
  (ANY "/repl" {:as req} (drawbridge req))
  (GET "/" [] (slurp "resources/public/my-file.html")) ; wherever your file is
  (route/resources "/") ; special route for serving static files like css
                        ; default root directory is resources/public/
  (route/not-found (slurp (io/resource "404.html")))) ; IDK what io/resource does
                                                      ; you might not need it