   [(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
      "3nd card"
      "This is my third description"
+     :bug-fix
      :under-dev)
    (create-card
      "4th card"
      "This is my fourth description"
+     :enhancement
      :done)])
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

        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

    :done "Done"
    :else "Unknown"))

(defn category->color
  [category]
  (condp = category
    :bug-fix "#BD8D31"
    :enhancement "#3A7E28"
    :else "#eee"))

(defn filter-by-status
  [status cards]
  (filter #(= status (:status %)) cards))
