From da5d9c24224ca154a6c3d2175dbab2c20ff635c2 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Wed, 6 Jan 2016 21:05:07 +0200
Subject: [PATCH] Improve parse-int util function.

It now accept a default value in case of parsing
return NaN.
---
 frontend/uxbox/util/data.cljs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/frontend/uxbox/util/data.cljs b/frontend/uxbox/util/data.cljs
index 6499ae0e2..903978ec5 100644
--- a/frontend/uxbox/util/data.cljs
+++ b/frontend/uxbox/util/data.cljs
@@ -42,5 +42,10 @@
   (r/read-string v))
 
 (defn parse-int
-  [v]
-  (js/parseInt v 10))
+  ([v]
+   (js/parseInt v 10))
+  ([v default]
+   (let [v (js/parseInt v 10)]
+     (if (or (not v) (nan? v))
+       default
+       v))))