     :bug-fix "#BD8D31"
     :enhancement "#3A7E28"
     :else "#eee"))
+
+(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)
+  })
 
 (defn filter-by-status
   [status cards]

     :value (:filter @app-state)
     :on-change #(update-filter! (.. % -target -value))}]
   [render-board @card-list]
   ])

(def fetch-and-render-app
  "Render the app - adding a fetching of data when the DOM is mounted"

   [:ul
    (map
      (fn [idx t]
        ^{:key t} [render-task #(update-card! (api/remove-task-at card idx)) t])
      (range) tasks)
    ]])

(defn render-add-task
  "Render the text field allowing to add new tasks to a card"
