    [: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
+  "Render the ribbon on the left of the card, that indicates its category"
   [card]
   {:position "absolute" :zindex -1 :top 0 :bottom 0 :left 0 :width 5
    :backgroundColor (-> card :category category->color)

  [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]

(def init-card-list
  "Fake card list returned by the server"
  [(create-card
     "1st card"
     "This is my first description"
     :bug-fix
     :backlog
     (create-task "Done some stuff" true))
   (create-card
     "2nd card"
     "This is my second description"
     :enhancement
     :under-dev
     (create-task "Done some stuff" true)
     (create-task "Done some more stuff" false))
   (create-card
     "3rd card"
     "This is my third description"
     :bug-fix
     :under-dev)
   (create-card
     "4th card"
     "This is my fourth description"
     :enhancement
     :done)])
