为什么在Clojure项目中没有在黑色会话中保存用户名？

Question

这是我在登录时保存的方式：

(defn set-loggedin [username]
(sesh/put! :username username))

(defn login-handler [username password]
(let [user (datab/login username password)]
(if (empty? user)
(view/login-form "Wrong password.")
 (do
   (set-loggedin username)
   (resp/redirect "/movies")))))

(defroutes app-routes
 ...
(POST "/" [username password] (login-handler username password))
(POST "/movie/save" [movieID name] (film-new movieID name))
 ...)

 (def app
 (noir-middleware/app-handler
 [app-routes]
 :ring-defaults (assoc-in site-defaults [:security :anti-forgery] false)))

当我在登录后在表单上显示用户名时，它会显示它，但是当我尝试保存电影时（电影表有一个列用户名）并获得用户名，它就是零。

(defn film-new [movieID name]
(datab/filmnew movieID name (sesh/get :username))
(resp/redirect "/movies")
 )

我把会话包错了吗？我不明白。我也试过像这样包装它

def app (sesh/wrap-noir-session* 
       (noir-middleware/app-handler [app-routes]
         :ring-defaults (assoc-in site-defaults [:security :anti-forgery] 
false))))

Answer 1

编辑：libnoir is now officially deprecated。启动here。

这是一个最小的例子，表明libnoir的有状态会话开箱即用：

(ns ln.core
  (:require
   [compojure.core :refer [defroutes GET]]
   [noir.session :as session]
   [noir.util.middleware :as middleware]
   [ring.adapter.jetty :refer [run-jetty]]))

(defroutes app-routes
  (GET "/foo" []
       (session/update-in! [:foo] not)
       "Now go to /bar")
  (GET "/bar" []
       "foo was" (str (session/get :foo))))

(def app
  (middleware/app-handler
   [app-routes]))

(defonce server (atom nil))

(defn stop-server []
  (when-let [s @server]
    (.stop s)))

(defn dev []
  (stop-server)
  (reset! server (run-jetty app {:port 8888
                                 :join? false})))

;;;; Scratch

(comment
  (dev)
  )

如果您可以提供最小的复制品来表明您的代码没有按预期工作，我们可以帮助您。话虽如此，libnoir看起来有点遗弃给我。你最好从香草Ring开始。