[tree-select] Add custom parts-table title

For day8/rf8.day8.com.au#132

Author: kimo-k

src/re_demo/tree_select.cljs

@@ -335,5 +335,5 @@
                                        "includes an anchor label. By default, it lists all the selected choices, except if an entire group is selected, then that group appears in place of its descendants."]
                                       [args-table tree-select-dropdown-args-desc]]]
                           [demo]]]
-              [parts-table "tree-select" tree-select-parts-desc]
-              [parts-table "tree-select-dropdown" tree-select-dropdown-parts-desc]]])
+              [parts-table "tree-select" tree-select-parts-desc :title [:span "Parts: " [:code "[:tree-select]"]]]
+              [parts-table "tree-select-dropdown" tree-select-dropdown-parts-desc :title [:span "Parts: " [:code "[:tree-select]"]]]]])

src/re_demo/utils.cljs

@@ -191,14 +191,14 @@
                :child [:span notes]]]])
 
 (defn parts-table
-  [component-name parts]
+  [component-name parts & {:keys [title]}]
   (let [name-of-first-part  (str (first (remove nil? (map :name parts))))
         code-example-spaces (reduce #(str % " ") "" (range (+ (count name-of-first-part) 13)))]
     [v-box
      :src     (at)
      :margin   "0px 20px 20px 0px"
      :children (concat
-                [[title2 "Parts"]
+                [[title2 (or title "Parts")]
                  [p "This component is constructed from a hierarchy of HTML elements which we refer to as \"parts\"."]
                  [p "re-com gives each of these parts a unique CSS class, so that you can individually target them.
                         Also, each part is identified by a keyword for use in " [:code ":parts"] " like this:" [:br]]