Converting JavaScript websql to Clojurescript

Question

I'm going through a tutorial below

https://developer.apple.com/library/iad/documentation/iPhone/Conceptual/SafariJSDatabaseGuide/UsingtheJavascriptDatabase/UsingtheJavascriptDatabase.html

and am having trouble converting js to cljs in the dataHandler function

function dataHandler(transaction, results)
{
// Handle the results
var string = "Green shirt list contains the following people:\n\n";
for (var i=0; i<results.rows.length; i++) {
    // Each row is a standard JavaScript array indexed by
    // column names.
    var row = results.rows.item(i);
    string = string + row['name'] + " (ID "+row['id']+")\n";
}
alert(string);
}

Here is my cljs code

 (defn success-handler [tx, results]
   (println "success handler")
   (println results)

   ;;the below doesn't work, I get an error here  
   ;;:Uncaught Error: [object SQLResultSet] is not ISeqable

  (doseq [result results]
  (prn result)))

So my question is how would I convert the js dataHandler to my cljs success-handler?

Arthur Ulfeldt · Answer 1 · 2016-01-21T00:03:46.843

2

Try turning the rows of the result into a sequence, rather than the whole result.

(defn success-handler [tx, results]
   (println "success handler")
   (println results)

  (doseq [result (.-rows results)]
    (prn result)))

And if rows does not implement Iterable then do it the old fashioned way

(defn success-handler [tx, results]
   (println "success handler")
   (println results)

  (let [rows (.-rows results)]
   (doall
    (for [i (range (.-length rows))]
      (let [row (nth rows i)]
        (prn result))))))

edited Jan 21 '16 at 00:03

answered Jan 20 '16 at 01:54

Arthur Ulfeldt

90,827
27
201
284

I believe this is getting me closer to the solution, but when I try both options I get the error "Uncaught TypeError: results.rows is not a function" My first thought was to create an anon fn outside of ```(.rows results)``` with no luck. – Michael Thurmond Jan 20 '16 at 16:54
`rows` is a property not a function, so you need `.-` instead of just `.` – Walton Hoops Jan 20 '16 at 17:25
sorry, yes i forgot to put it in ClojureScript format. I fixed it in the answer – Arthur Ulfeldt Jan 20 '16 at 21:29
Is ```(item i)``` supposed to have ```.-``` in front of ```item```? – Michael Thurmond Jan 21 '16 at 00:01
sorry, that was a cut-and-paste fail, it should have been just `i` (I can't actually test this code, so i guess it's more of a guideline) – Arthur Ulfeldt Jan 21 '16 at 00:04

score 0 · Answer 2 · answered Jan 21 '16 at 00:38

0

Here is the solution:

(defn success-handler [tx, results]
  (let [rows (.-rows results)]
    (doseq [i (range (.-length rows))]
      (prn (.item rows i)))))

answered Jan 21 '16 at 00:38

Michael Thurmond

201
2
9

Converting JavaScript websql to Clojurescript

2 Answers2