updated to latest Domino version, added change-history subscription

Author: yogthos

README.md

@@ -101,14 +101,76 @@ The schema can now be initialized calling the `:domino.ui.core/init-ctx` re-fram
 
 This event will initialize the domino engine with `domino/initialize` and parse/render the domino-ui components used in the views.
 
-Once the view is initialized, it can be used via the `:domino.ui.core/view` subscription:
+Once the view is initialized, it can be used via the `:domino.ui.core/view` subscription.
 
+The following subscriptions are provided:
+
+#### Domino context
+```clojure
+@(rf/subscribe [::core/ctx :default-ctx])
+```
+#### Domino model
+```clojure
+@(rf/subscribe [::core/model :default-ctx])
+```
+#### view schema
+```clojure
+@(rf/subscribe [::core/view :default-ctx :default])
+```
+#### all views for a given context
+```clojure
+@(rf/subscribe [::core/views :default-ctx])
+```
+#### Domino DB state
+```clojure
+@(rf/subscribe [::core/db :default-ctx])
+```
+#### component state
+```clojure
+@(rf/subscribe [::core/component-state :default-ctx :first-name])
+```
+#### component states
+```clojure
+@(rf/subscribe [::core/component-states :default-ctx])
+```
+#### subscription to the value associated with a UI component
+```clojure
+@(rf/subscribe [::core/subscribe :default-ctx :first-name])
+```
+#### Domino change history for the latest transaction
+```clojure
+@(rf/subscribe [::core/change-history :default-ctx])
+```
+
+Following events are provided
+
+#### initialize Domino context with an initial state
+```clojure
+@(rf/dispatch [::init-ctx :default-ctx default-schema {:demographics
+                                                       {:first-name "Bob"}}])
+```
+
+#### transact values
 ```clojure
-(defn default-ctx-page []
-  [:div
-   [:h3 "default context"]
-   @(rf/subscribe [::core/view :default-ctx :default])])
+@(rf/dispatch [::core/transact :default-ctx
+               [:first-name "Bob"]
+               [:last-name "Bobberton"]])
 ```
+#### merge component state
+```clojure
+@(rf/dispatch [::merge-component-state :default-ctx :first-name {:disabled? true}])
+```
+#### update component state
+```clojure
+@(rf/dispatch [::update-component-state :default-ctx :first-name
+               (fn [state-map] (assoc state-map :disabled? true))])
+```
+#### trigger effects
+```clojure
+@(rf/dispatch [::core/trigger :default-ctx [:effect-id]])
+```
+
+
 
 See [here](https://github.com/domino-clj/domino-ui/blob/master/env/dev/cljs/domino-ui/test_page.cljs)
 for a complete example of this in action.

env/dev/cljs/domino-ui/test_components.cljs

@@ -6,7 +6,7 @@
 
 (defmethod component ::c/label [[_ {:keys [context label id]}]]
   (fn []
-    [:label label " " @(rf/subscribe [::core/id context id])]))
+    [:label label " " @(rf/subscribe [::core/subscribe context id])]))
 
 (defmethod component ::c/text-input [[_ {:keys [context id]}]]
   (fn []

env/dev/cljs/domino-ui/test_page.cljs

@@ -26,13 +26,6 @@
                                        (fn [current-state]
                                          (update current-state :disabled? not))])}
                         "toggle first name enabled"]
-                       
-                       [:button
-                        {:on-click #(rf/dispatch
-                                     [::core/trigger
-                                      :default-ctx
-                                      [:gen-text]])}
-                        "toggle first name enabled"]
 
                        [:div
                         [:label "Last name"]
@@ -42,13 +35,22 @@
                        [:div
                         [::component/label
                          {:id    :full-name
-                          :label "Full name"}]]]}
+                          :label "Full name"}]]
+
+                       [:div
+                        [:button
+                         {:on-click #(rf/dispatch
+                                       [::core/trigger
+                                        :default-ctx
+                                        [:gen-text]])}
+                         "generate text"]
+                        [::component/label {:label "generated text:" :id :text}]]]}
    :model   [[:demographics
               [:first-name {:id :first-name}]
               [:last-name {:id :last-name}]
               [:full-name {:id :full-name}]]
              [:text {:id :text}]]
-   :effects [{:id :gen-text 
+   :effects [{:id :gen-text
               :outputs [:text]
               :handler (fn [_ state]
                          (assoc state :text "hello"))}
@@ -91,10 +93,12 @@
   [:div
    [:h3 "default context"]
    #_[:pre (pprint @(rf/subscribe [::core/ctx :default-ctx]))]
-   @(rf/subscribe [::core/view :default-ctx :default])   
+   @(rf/subscribe [::core/view :default-ctx :default])
    [:hr]
    [:label "component states"]
    [:pre (pprint @(rf/subscribe [::core/component-states :default-ctx]))]
+   [:label "change history"]
+   [:pre (pprint @(rf/subscribe [::core/change-history :default-ctx]))]
    [:label "db state"]
    [:pre (pprint @(rf/subscribe [::core/db :default-ctx]))]])
 

project.clj

@@ -1,12 +1,12 @@
-(defproject domino/ui "0.1.3-SNAPSHOT"
+(defproject domino/ui "0.1.3"
             :description "UI component library for Domino"
             :url "https://github.com/domino-clj/domino-ui"
             :license {:name "Eclipse Public License"
                       :url "http://www.eclipse.org/legal/epl-v10.html"}
   :dependencies
   [[org.clojure/clojure "1.10.0" :scope "provided"]
    [org.clojure/clojurescript "1.10.520" :scope "provided"]
-   [domino/core "0.3.1"]
+   [domino/core "0.3.2"]
    [re-frame "0.11.0-rc2"]]
 
   :plugins

src/domino/ui/core.cljs

@@ -75,6 +75,11 @@
  (fn [db [_ ctx-id]]
    (get-in db [::contexts ctx-id ::domino/db])))
 
+(rf/reg-sub
+  ::change-history
+  (fn [db [_ ctx-id]]
+    (get-in db [::contexts ctx-id ::domino/change-history])))
+
 (defn transact
   "runs a Domino transaction using the value from the specified component as the input"
   [db [_ ctx-id & id-value-pairs]]