   [status cards]
   (filter #(= status (:status %)) cards))
 
-(defn str-contains
-  "Check whether the first string contains the second string"
-  [stack needle]
-  (< -1 (.indexOf stack needle)))
-
 (defn filter-by-title
   "Keep only cards that contains the searched string inside their title"
   [title cards]

   [:ul
    (for [t tasks]
      ^{:key (:task-id t)} [render-task t])]
   [:input.checklist--add-task
    {:type "text" :placeholder "Type then hit Enter to add a task"}]
  ])

(defn card-side-color
  [card]
  {:position "absolute" :zindex -1 :top 0 :bottom 0 :left 0 :width 5
   :backgroundColor (-> card :category category->color)

  []
  (let [show-details (r/atom false)
        toggle-details #(swap! show-details not)
        title-style #(if % :div.card__title--is-open :div.card__title)
        add-task (fn [card-id e]
                   (when (= "Enter" (.-key e))
                     (js/alert "Find the task and add one task to it")                 
                     (set! (.. e -target -value) "")
                   ))
        ]
    (fn [card]
      [:div.card
       [:div {:style (card-side-color card)}]
