diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2010-08-30 22:52:44 -0400 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2010-08-30 22:52:44 -0400 |
| commit | 968faa6192e7c95a7b1cbfdd5d35fb7253b8984f (patch) | |
| tree | 4fb8a9ef7f9c63f20721839c8f3d664cc2630b4b /src/utils.clj | |
| parent | 267ad6ad5ef1e906c0ca6b040056ee7699545a55 (diff) | |
Fixed directory queries and heart animations
Diffstat (limited to 'src/utils.clj')
| -rwxr-xr-x | src/utils.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/utils.clj b/src/utils.clj index 7f56f61..dd5530a 100755 --- a/src/utils.clj +++ b/src/utils.clj @@ -58,10 +58,10 @@ (declare stringify-and-escape) (defn escape-html-deep [o] (if (map? o) - (stringify-and-escape o) - (if (seq? o) - (map escape-html-deep o) - (escape-html o)))) + (stringify-and-escape o) + (cond (seq? o) (map escape-html-deep o) + (or (true? o) (false? o)) o + :else (escape-html o)))) (defn stringify-and-escape [m] (zipmap (map str* (keys m)) (map escape-html-deep (vals m)))) |