clojure - Ring: How to modify session in middleware -

-

how modify session in ring middleware? want have history of accessed urls stored there , can't session store values.

sessions works correctly elsewhere @ code can return responses. assume has issue , i'm not understanding how middlewares work.

here current code

(defn wrap-history [handler]                                                                                                                                                 (fn [req]                                                                                                                                 (handler (assoc-in req [:session :history]                                                                                                                                                    (vec (concat (-> req :session :history)  [(request/request-url req)]))))))

here app (i'm using ring-defaults includes session middleware)

(def app                                                                                                                                                             (-> all-routes                                                                                                                                                                 (wrap-history)                                                                                                                                                             (wrap-defaults (assoc-in site-defaults [:security :anti-forgery] false))))

the answer pretty easy (probably how return response middleware instead of request) don't seem able find correct documentation this..

okay correct misunderstood basics of middleware. tried modify handler request whereas should have modified returned response.

here working version of wrap-history. checks both request , response existing session session can modified other code before middleware well.

(defn wrap-history    "middleware stores last 20 visited urls in session"   [handler]                                                                      (fn [req]                                                                                                                                                                    (let [resp (handler req)                                                                                                                                                         session (or (:session resp) (:session req))                                                                                                                                updated-session (assoc session :history                                                                                                                                                           (vec (take-last 20 (concat (:history session) [(request/request-url req)]))))]                                                                  (assoc resp :session updated-session))))

Comments

Post a Comment

Popular posts from this blog

Hatching array of circles in AutoCAD using c# -

-
i beginner in autocad plugins .i have created array of circle using following code. now, have hatch circles in array .how that??how hatch circles @ once? moreover, how can return hatch method , use hatch objects.sorry language.thanks in advance. [assembly: commandclass(typeof(beamsection.class1))] namespace beamsection { public class class1 { //class1 obj = new class1(); [commandmethod("beamatsupport")] public void addlightweightpolyline() { // current document , database document acdoc = application.documentmanager.mdiactivedocument; database accurdb = acdoc.database; promptpointresult ppr = acdoc.editor.getpoint("\nselect starting point "); var ucs = acdoc.editor.currentusercoordinatesystem; point3d startingpt = ppr.value.transformby(ucs); list<double> radius = new list<double>(); radius.add(0.5);
Read more

ios - UITEXTFIELD InputView Uipicker not working in swift -

-
hello trying pop uipickerview view programmatically when user clicks on textfield. have tried doesn't doing anything. isn't working. nothing happening when click textfield class userprofiletableviewcontroller: uitableviewcontroller,uitextfielddelegate,uipickerviewdelegate,uipickerviewdatasource { var itempicker: uipickerview! = uipickerview() @iboutlet weak var gendertxtfield: uitextfield! var gender = ["male","female"] override func viewdidload() { super.viewdidload() gendertxtfield.delegate = self itempicker!.delegate = self itempicker!.datasource = self itempicker!.backgroundcolor = uicolor.blackcolor() self.gendertxtfield.inputview = itempicker } func numberofcomponentsinpickerview(pickerview: uipickerview) -> int{ return 1 } // returns # of rows in each component.. func pickerview(pickerview: uipickerview, numberofrowsincomponent component:
Read more

Python Pig Latin Translator -

-
so have been working on @ codecademy.com while trying learn python. don't know if blind , can't see why won't work or what. here's code won't let me use. function print variable if had typed in , print "empty" if didn't type anything. print "welcome english pig latin translator!" original = raw_input("what's name?") if len(original) > 0 print original else print "empty" if len(original) > 0 else the above lines contains syntax errors. try: if len(original) > 0: else: note added colons, ( : ).
Read more