    [:ul (map render-task tasks)]
   ])
 
+(defn card-side-color
+  [card]
+  {:position "absolute" :zindex -1 :top 0 :bottom 0 :left 0 :width 7
+   :backgroundColor (-> card :category category->color)
+  })
+
 (defn render-card
   []
   (let [show-details (r/atom false)

        title-style #(if % :div.card__title--is-open :div.card__title)]
    (fn [card]
      [:div.card
       [(title-style @show-details) {:on-click toggle-details} (:title card)]
       (when @show-details
         [:div.card__details


(defn create-card
  "Create a card to display in the dash-board"
  [title description category status & tasks]
  {:title title
   :description description
   :category category
   :status status
   :tasks (into [] tasks)})

