consolidate fixed-width into shimmers.common.string

src/shimmers/common/edn.cljs

@@ -5,7 +5,7 @@
    [fipp.ednize :refer [edn IEdn record->tagged]]
    [fipp.engine :refer [pprint-document]]
    [fipp.visit :refer [visit visit*]]
-   [shimmers.common.format :refer [fixed-width]]
+   [shimmers.common.string :refer [fixed-width]]
    [thi.ng.geom.types
     :refer [Circle2 Line2 LineStrip2 Polygon2 Rect2 Triangle2]]
    [thi.ng.geom.vector :refer [Vec2 Vec3]]))

src/shimmers/common/string.cljc

@@ -18,3 +18,20 @@
 ;; https://gigamonkeys.com/book/a-few-format-recipes.html
 (defn cl-format [fmt & args]
   (apply pp/cl-format nil fmt args))
+
+;; See https://github.com/brandonbloom/fipp/issues/83 for symbol hack, basically
+;; it's forcing EdnPrinter to believe it's a symbol and not a float so it
+;; doesn't wrap it in a string.
+(defn fixed-width
+  "Format float `v` to `width` decimal places as long as it's not infinite."
+  [v width]
+  #?(:cljs
+     (if (or (integer? v) (infinite? v))
+       v
+       (symbol (.toFixed v width)))
+     :clj
+     (if (or (integer? v)
+             (= v Double/POSITIVE_INFINITY)
+             (= v Double/NEGATIVE_INFINITY))
+       v
+       (symbol (format (str "%." width "f") v)))))

src/shimmers/common/ui/debug.cljc

@@ -1,6 +1,6 @@
 (ns shimmers.common.ui.debug
   (:require
-   [shimmers.common.format :as sc-format]
+   [shimmers.common.string :as sc-format]
    #?@(:cljs
        [[shimmers.common.edn :as sc-edn]
         [shimmers.common.ui.controls :as ctrl]])))