style-sheet.cljs

(ns style-sheet)

(def ReactNative (js/require "react-native"))
(defn platform-style
  [style-map & addl]
  (let [platform (-> (.. ReactNative -Platform -OS) keyword)]
    (cond-> style-map
            (contains? style-map platform) (->
                                               (merge (get style-map platform))
                                               (dissoc platform))
            (map? (first addl)) (merge (first addl)))))
          
(comment 
         (def style {:container {:flex 1 
                                 :android {:backgroundColor "#ccc"}
                                 :ios {:backgroundColor "#000"}}})
          (view {:style (platform-style (style :container) {:addlStyle "blah blah"}}) ...))