     #"rgb\((.*),(.*),(.*)\)" :>> color-vec
     #"rgba\((.*),(.*),(.*),(.*)\)" :>> color-vec))
 
+(defn keyword->color [k]
+  (when-let [v (lindsay/swatch k)]
+    (coerce v)))
+
 (extend-type ^{:cljs cljs.core.PersistentVector} clojure.lang.PersistentVector
   IColor
   (red    [[r _ _ _]] r)

(ns inkspot.color
  (:require [clojure.string :as string])
  (:use [inkspot.common :only [parse-int parse-double]])
  ^:clj
  (:import [java.awt Color]))


  (green  [n] (green (int->color n)))
  (blue   [n] (blue (int->color n)))
  (alpha  [n] (alpha (int->color n)))
  (coerce [n] (int->color n)))

(extend-type java.lang.String
  IColor
