   )
 
 
-card_bind = (type, tag, take_=id) ->
+card_bind = (type, tag, take_func=id) ->
   ### Bind data to a card selection
 
   Args:

    a function to build the card
  ###
  sequence(
    card_bind(type, tag, take_=take(1)),
    build_card(addf)
  )


card_images = sequence(
  card_bind("image", "#images"),
  (x) -> x.append("div").attr("class", "col s4"),
  build_card(add_image)
)



update_data = (x) ->

  sequence(
    (x) -> x.data,
    filter((x) -> x.type is type),
    take_func,
    select_tag(tag),
  )


add_card = (addf, type, tag, with_div=id, take_func=take(1)) ->
  ### Constuct a data card

  Args:
