making main form better.

src/cljs/auto_ap/views/utils.cljs

@@ -38,6 +38,19 @@
 (defn ->% [x]
   (nf% x))
 
+(defn ->short$ [x]
+  (cond
+    (nil? x)
+    nil
+
+    (int? x)
+    (str x)
+
+    (float? x)
+    (.toFixed x 2)
+
+    ))
+
 (defn active-when= [active-page candidate]
   (when (= active-page candidate) " is-active"))