    [: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)

  [(create-card
     "1st card"
     "This is my first description"
     :backlog
     (create-task "Done some stuff" true))
   (create-card
     "2nd card"
     "This is my second description"
     :under-dev
     (create-task "Done some stuff" true)
     (create-task "Done some more stuff" false))
   (create-card
     "3nd card"
     "This is my third description"
     :under-dev)
   (create-card
     "4th card"
     "This is my fourth description"
     :done)])

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(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)})

