cljs and crate/hiccup

crate.cljs

  (defhtml db-list [databases] 
    [:table{:class "table table-bordered table-striped"}
      [:thead
        [:tr
          [:th "Database"]
          [:th "Collections"]
          [:th "Storage"]
          [:th "Allocated"]          
          [:th "Actions"]  
        ]    
      ]
      [:tbody
        (for [db databases]          
          (db-list-row db)
        )
      ]
    ]
  )


  (defelem table [columns body]      
    [:table{:class "table table-bordered table-striped"}
      [:thead
        [:tr
          (for [col-name columns]          
            [:th col-name])
        ]    
      ]
      [:tbody body]
    ]
  )


  (defhtml db-list [databases] 
    (table 
      ["Database" "Collections" "Storage" "Allocated" "Actions"] 
      (for [db databases]                    
        (db-list-row db)
      )            
    )
  )




  (get-json url  
   (fn [data status]               
     (inner $content-pane (db-show (aget data "collections")))          
   )
  )