# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1450109607 0
# Node ID 4dccbc0c808ad98a30571f8cf18c69a96b61fb74
# Parent  c1eca679990a79e1d2d550ff8e32f1bb01d12032
Glyph mutation

diff -r c1eca679990a -r 4dccbc0c808a src/silt/core.clj
--- a/src/silt/core.clj	Mon Dec 14 15:35:34 2015 +0000
+++ b/src/silt/core.clj	Mon Dec 14 16:13:27 2015 +0000
@@ -124,8 +124,12 @@
              (maybe (or mc 20) v
                     (mutate-directions v)))
      (update-in [:styles :fg]
-                (maybe (or mc 0.01) v
-                       (rr/rand-nth [:white :blue :green :yellow :red]))))))
+                (maybe (or mc 0.8) v
+                       (rr/rand-nth [:white :blue :green :yellow :red])))
+     (update :glyph
+             (maybe (or mc 0.01) v
+                    (rr/rand-nth ["♞" "☃" "ℵ" "ℇ" "⧲" "⦼" "⨾" "∂" "∀" "€"
+                                  "₵" "★" "♞" "♟" "❣" "¿" "?" "§" "@"]))))))
 
 (defn map-vals [m f]
   (into {} (for [[k v] m]