个人中心
gpt4 book ai didi

html - 故障排除 clojure 网络应用程序 : connecting html and css for heroku deployment

转载 作者：太空宇宙 更新时间：2023-11-04 13:57:42 25 4
gpt4 key购买 nike

我有两个文件，一个 html 和一个 css。我试图将它们变成一个 heroku 应用程序，甚至使用 lein 命令创建一个 heroku 友好的骨架并插入这两个文件，但无法让它在我的生活中工作。关于如何协调 View 与后端控件，有一些非常基本的东西我还不了解。 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))

元素.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'?

最佳答案

修改代码:

(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

关于html - 故障排除 clojure 网络应用程序 : connecting html and css for heroku deployment，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/21722598/

25 4 0
文章推荐： html - 如何在 css 中仅针对非触摸设备设置样式？
文章推荐： c++ - SPOJ "CENCRY"代码gettingTLE
文章推荐： c++ - opengl-glsl单虚光
文章推荐： html - z-index 将段落隐藏在其他元素后面
太空宇宙
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com