** UnhandledExceptionEventHandler :: OFFICIAL LC / CHATTER THREAD **
09-19-2012
, 11:46 PM
I'm not sure how used to looking at Lisp syntax you are, but here's a part of the code I have right now, which takes grabs the username session variable and assigns it a local binding, and displays the user's name like so on the form. This actually forces me to drop my entire database because I figure it's easier to go ahead and upload a new database with all the char(x) fields defaulting to empty string instead of updating each table, otherwise, everything displays as Null if there is no information:
If you look at the let binding next to the -- [:i -- tag, you can see destructuring in action:
Code:
(defpage "/name-and-contact" []
(common/res-heads
(let [suser (sesh/get :uname)]
(def suser-first-name
(select db/jhfirstnames
(fields :firstname)
(where {:username suser})))
[:div#formFields
(form-to [:post "/name-and-contact"]
[:p "First Name: "
[:i (let [[{fname :firstname}] suser-first-name]
(format "%s" fname))]
[:br](text-field "firstName")]
(submit-button "Update"))])))
Code:
(defpage "/name-and-contact" []
(common/res-heads
(let [suser (sesh/get :uname)]
[:div#formFields
(form-to [:post "/name-and-contact"]
[:p "First Name: "
[:i (def suser-first-name
(select db/jhfirstnames
(fields :firstname)
(where {:username suser})))
(let [[{fname :firstname}] suser-first-name]
(format "%s" fname))]
[:br](text-field "firstName")]
(submit-button "Update"))])))
Moving onto the database entries, you can see that there has to be a local binding in in the if-statement that first parses out the numbers in the strings and converts them to integers (same with dates, etc):
Code:
(if (not (= myNumber "-"))
(let [myInt (Integer/parseInt myNumber)]
(update db/myTable
(set-fields {:myCol myInt})
(where {:username suser}))))
Code:
(defpage [:post "/other-page"] {:keys [myNumber]}
(let [suser (sesh/get :uname)]
(if (not (= myNumber "-"))
(update db/myTable
(set-fields {:myCol (Integer/parseInt myInt})
(where {:username suser}))))))
Code:
(defpage [:post "/other-page"] {:keys [myNumber]}
(let [suser (sesh/get :uname)
myInt (Integer/parseInt myNumber)]
(if (not (= myNumber "-"))
(update db/myTable
(set-fields {:myCol myInt})
(where {:username suser})))))
09-20-2012
, 02:50 AM
Yes but it kind of breaks the paradigm since it smells pretty imperative which is why it felt a little odd. I mean it's even called:
(foreach() ... do)
I'll post the exact code snipped later
(foreach() ... do)
I'll post the exact code snipped later
09-20-2012
, 02:00 PM
I don't know who that is or what the name is referencing or what show you're talking about. Enlighten me please
09-20-2012
, 02:07 PM
09-20-2012
, 02:11 PM
09-20-2012
, 02:47 PM
09-20-2012
, 04:39 PM
09-20-2012
, 04:47 PM
09-20-2012
, 04:50 PM
09-20-2012
, 05:57 PM