如何在Om Clojurescript中创建Material UI组件？

Question

首先，这个https://github.com/taylorSando/om-material-ui在最新的React/Material UI中无法使用。 我认为主要原因是控制台中出现了如下警告： Warning: Something is calling a React component directly. Use a factory or JSX instead. See: https://fb.me/react-legacyfactory 我还尝试手动创建组件：

(ns om-test.core
  (:require [om.core :as om :include-macros true]
            [om-tools.dom :as dom :include-macros true]
            [om-tools.core :refer-macros [defcomponent]]
            [om-material-ui.core :as mui :include-macros true]))

(enable-console-print!)

(defonce app-state (atom {:text "Hello Chestnut!"}))

(defn main []
  (om/root
    (fn [app owner]
      (reify
        om/IRender
        (render [_]
          (dom/div (dom/element js/MaterialUI.Paper {} "Hello")
                   (mui/paper {} "Hello"))
          )))
    app-state
    {:target (. js/document (getElementById "app"))}))

所以，这两种方法都会产生上述相同的警告。

React 发生了明显的一些变化。它建议以编程方式创建组件：

var React = require('react');
var MyComponent = React.createFactory(require('MyComponent'));

function render() {
  return MyComponent({ foo: 'bar' });
}

那么我如何在Om渲染函数内创建Material UI组件，或者更好地说，一般情况下如何在Om渲染函数内创建React组件？

所谓的Material UI是指这个https://github.com/callemall/material-ui

我的依赖关系：

:dependencies [[org.clojure/clojure "1.6.0"]
                 [org.clojure/clojurescript "0.0-3058" :scope "provided"]
                 [ring "1.3.2"]
                 [ring/ring-defaults "0.1.4"]
                 [compojure "1.3.2"]
                 [enlive "1.1.6"]
                 [org.omcljs/om "0.9.0"]
                 [environ "1.0.0"]
                 [http-kit "2.1.19"]
                 [prismatic/om-tools "0.3.11"]
                 [om-material-ui "0.1.1" :exclusions [org.clojure/clojurescript
                                                      org.clojure/clojure]]]

- ma2s

Answer 1

好的，我最终弄清楚了。

1. 使用这个链接来构建Material UI的最新版本。注意：在当前版本（0.10.4）中不需要构建CSS。
2. 将构建好的material.js文件包含到你的HTML文件中。同样地，无需包含CSS。
3. 避免重复加载React，详情请参考这个链接

现在让我们看一下Om的代码：

(ns material-ui-test.core
  (:require [om.core :as om :include-macros true]
            [om.dom :as dom :include-macros true]))

(enable-console-print!)

(defonce app-state (atom {:text "Hello Chestnut!"}))

(def ^:dynamic *mui-theme*
  (.getCurrentTheme (js/MaterialUI.Styles.ThemeManager.)))

(defn main []
  (om/root
    (fn [app owner]
      (reify
        om/IRender
        (render [_]
          (let [ctor (js/React.createFactory
                       (js/React.createClass
                         #js
                             {:getDisplayName    (fn [] "muiroot-context")
                              :childContextTypes #js {:muiTheme js/React.PropTypes.object}
                              :getChildContext   (fn [] #js {:muiTheme *mui-theme*})
                              :render            (fn []
                                                   (dom/div nil
                                                            (dom/h1 nil (:text app))
                                                            (js/React.createElement js/MaterialUI.Slider)))}))]
            (ctor. nil)))))
    app-state
    {:target (. js/document (getElementById "app"))}))

如果您仅使用(js/React.createElement js/MaterialUI.Slider)而没有使用:getChildContext等，它会抛出错误：Uncaught TypeError: Cannot read property 'component' of undefined。这是因为当前MaterialUI的工作方式。在这里阅读“Usage”部分：http://material-ui.com/#/customization/themes。

对于 Reagent 的代码更加优雅。但是我在此处使用了命名空间[material-ui.core :as ui：include-macros true]，该命名空间从此示例项目中复制并粘贴：https://github.com/tuhlmann/reagent-material。

(def ^:dynamic *mui-theme*
  (.getCurrentTheme (js/MaterialUI.Styles.ThemeManager.)))

(defn main-panel []
  (let [active-panel (rf/subscribe [:active-panel])]
    (r/create-class
      {:display-name "Main Panel"

       :child-context-types
                     #js {:muiTheme js/React.PropTypes.object}

       :get-child-context
                     (fn [this]
                       #js {:muiTheme *mui-theme*})
       :reagent-render
                     (fn []
                       [ui/Slider {:name "slide1"}])})))

编辑：我发布了一个库，大大简化了整个过程。

库：https://github.com/madvas/cljs-react-material-ui

示例应用程序：https://github.com/madvas/cljs-react-material-ui-example

- ma2s

Answer 2

我没有使用Material UI，而是使用React Widgets。这是我为om所编写的wrapper：

(defn dropdown-list
  [data owner {:keys [val-key menu-key id-key label-key props]}]
  (reify
    om/IRender
    (render [_]
      (let [menu (-get data menu-key)]
        (js/React.createElement js/ReactWidgets.DropdownList 
          (-> {:defaultValue (-> (find-by-key menu id-key (-get data     val-key))
                               (-get label-key)) 
               :data (mapv #(-get % label-key) menu)
               :onChange (fn [new-val]
                           (let [new-id (-> (find-by-key menu label-    key new-val)
                                          (-get id-key))]
                             (om/update! data val-key new-id)))}
            (merge props)
            clj->js))))))

所以，一般来说，您需要获取React类（js/ReactWidgets.DropdownList），并在render上调用js/Readt.createElement，同时传递props。

- sbensu