Checkbox's path property can be a sequence

Author: ichramm

src/om_widgets/checkbox.cljs

@@ -2,7 +2,7 @@
   (:require [om.core :as om :include-macros true]
             [schema.core :as s :include-macros true]
             [sablono.core :refer-macros [html]]
-            [om-widgets.utils :as utils]))
+            [om-widgets.utils :as utils :refer [->seq]]))
 
 
 (defn- checked?
@@ -31,7 +31,7 @@
                  :checked (checked? (utils/om-get app path) checked-value)
                  :onChange (fn [e]
                              (let [value (if (.. e -target -checked) checked-value unchecked-value)
-                                   dest (get @(om/get-props owner) path)]
+                                   dest (get-in @(om/get-props owner) (->seq path))]
 
                                (if toggle-value
                                  (if (contains? dest checked-value)

src/om_widgets/utils.cljs

@@ -7,6 +7,13 @@
             [cljs-time.format :as timef]))
 
 
+(defn ->seq
+  "Ensures key is a sequence suitable for using with get-in"
+  [path-or-key]
+  (if (sequential? path-or-key)
+    path-or-key
+    [path-or-key]))
+
 (defn make-childs
   "Build all alternative for sablono"
   [tag & childs]