Help with clojurescript code for google charts

[Murtaza Husain]

Hi,

I am trying to use google charts from clojurescript, however cant get it 
working. I have included both the js code from google's site and my 
clojurescript conversion. Any help in figuring out the problem will be 
appreciated.

Thanks,
Murtaza

JS Code -

<script type="text/javascript" src="https://www.google.com/jsapi";></script>
    <script type="text/javascript">

      // Load the Visualization API and the piechart package.
      google.load('visualization', '1.0', {'packages':['corechart']});

      // Set a callback to run when the Google Visualization API is loaded.
      google.setOnLoadCallback(drawChart);

      // Callback that creates and populates a data table,
      // instantiates the pie chart, passes in the data and
      // draws it.
      function drawChart() {

        // Create the data table.
        var data = new google.visualization.DataTable();
        data.addColumn('string', 'Topping');
        data.addColumn('number', 'Slices');
        data.addRows([
          ['Mushrooms', 3],
          ['Onions', 1],
          ['Olives', 1],
          ['Zucchini', 1],
          ['Pepperoni', 2]
        ]);

        // Set chart options
        var options = {'title':'How Much Pizza I Ate Last Night',
                       'width':400,
                       'height':300};

        // Instantiate and draw our chart, passing in some options.
        var chart = new 
google.visualization.PieChart(document.getElementById('chart_div'));
        chart.draw(data, options);
      }
    </script>


CLJS code -

;;clj->js and $ are functions from jayq

(defn add-rows []
  (let [data (js/google.visualization.DataTable.)]
    (.addColumn data "string" "Topping")
    (.addColumn data "number" "slices")
    (.addRows data [["Mushrooms" 3] ["Onions" 1] ["Olives" 1]])
    data)) 
 

(defn chart-options []
  (clj->js {:title  "How much Pizza i ate last night"
            :width 400
            :height 300}))

(defn get-chart []
  (js/google.visualization.PieChart. ($ "div.container div#content")))

(defn draw-chart []
  (fn []
    (let [data (add-rows)
        options (chart-options)
        chart (get-chart)]
    (.draw chart data options))))
  

(.load js/google "visualization" "1.0" {"packages" ["corechart"]})

(.setOnLoadCallback js/google draw-chart)



-- 
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your 
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en