Merge pull request #4 from petrounias/master

Fixes issues 3 and 5

Author: plexus

src/lambdaisland/ansi.cljc

@@ -67,7 +67,7 @@
   of :vga :cmd :osx :putty :mirc :xterm :ubuntu. For finer control bind to
   *color-scheme* directly."
   [name & body]
-  `(binding [*color-scheme* (get color-schemes name)]
+  `(binding [*color-scheme* (get color-schemes ~name)]
      ~@body))
 
 (defn get-color [n]
@@ -128,7 +128,7 @@
       5 (let [[color bold?] (color-8-bit (first more))]
           [(merge {type color} (if bold? {:bold true}))
            (next more)])
-      2 [{:foreground (color-24-bit (take 3 more))}
+      2 [{type (color-24-bit (take 3 more))}
          (nthnext more 3)])))
 
 (defn str-split