pull de igor

calangohc · Jul 5, 2018 · 7660ff3 · 7660ff3
1 parent 0964413
commit 7660ff3
Show file tree

Hide file tree

Showing 16 changed files with 54 additions and 3 deletions.
diff --git a/.gitignore b/.gitignore
diff --git a/LICENSE b/LICENSE
diff --git a/Procfile b/Procfile
diff --git a/README.md b/README.md
diff --git a/project.clj b/project.clj
diff --git a/resources/public/index.html b/resources/public/index.html
diff --git a/src/clj/contascalangos/core.clj b/src/clj/contascalangos/core.clj
diff --git a/src/clj/contascalangos/handler.clj b/src/clj/contascalangos/handler.clj
diff --git a/src/clj/contascalangos/server.clj b/src/clj/contascalangos/server.clj
diff --git a/src/cljs/contascalangos/config.cljs b/src/cljs/contascalangos/config.cljs
diff --git a/src/cljs/contascalangos/core.cljs b/src/cljs/contascalangos/core.cljs
diff --git a/src/cljs/contascalangos/db.cljs b/src/cljs/contascalangos/db.cljs
@@ -1,4 +1,6 @@
 (ns contascalangos.db)
 
 (def default-db
-  {:name "re-frame"})
+  {:name "re-frame"
+   :tmp-val "" 
+   :orcamento '(100 -20 120 -30 -40 -15 20)})
diff --git a/src/cljs/contascalangos/events.cljs b/src/cljs/contascalangos/events.cljs
@@ -14,3 +14,20 @@
  ::set-active-panel
  (fn-traced [db [_ active-panel]]
    (assoc db :active-panel active-panel)))
+
+(re-frame/reg-event-db
+:adicionar 
+(fn [coeffects event]  
+  (let [db (:db coeffects)
+  	    novo-valor (:tmp-nova db)
+  	    itens (:orcamento db)]
+  	    {:db (assoc db :orcamento (cons novo-valor itens))}
+  	)
+ ))
+
+(re-frame/reg-event-db
+:tmp-nova
+(fn [coeffects event]
+  (let [db (:db coeffects)]
+     {:db (assoc db :tmp-nova (second event))}
+  	    )) ) 
diff --git a/src/cljs/contascalangos/routes.cljs b/src/cljs/contascalangos/routes.cljs
diff --git a/src/cljs/contascalangos/subs.cljs b/src/cljs/contascalangos/subs.cljs
@@ -7,7 +7,16 @@
  (fn [db]
    (:name db)))
 
+(re-frame/reg-sub 
+::orc 
+(fn [db] (:orcamento db))
+)
+
 (re-frame/reg-sub
  ::active-panel
  (fn [db _]
    (:active-panel db)))
+
+(re-frame/reg-sub
+::tmp-nova
+(fn [db] (:tmp-nova db)))
diff --git a/src/cljs/contascalangos/views.cljs b/src/cljs/contascalangos/views.cljs
@@ -2,19 +2,42 @@
   (:require
    [re-frame.core :as re-frame]
    [contascalangos.subs :as subs]
+   [reagent.core :as r]
    ))
 
 
 ;; home
 
 (defn home-panel []
-  (let [name (re-frame/subscribe [::subs/name])]
+  (let [name (re-frame/subscribe [::subs/name]) 
+        orcamento (re-frame/subscribe [::subs/orc])
+        nova (re-frame/subscribe [::subs/tmp-nova])]
     [:div
-     [:h1 (str "Hello from " @name ". This is the Home Page.")]
+     [:h1 (str "Olá Calangos do " @name)]
+
+     [:div 
+       [:ul
+         (for [item @orcamento] [:li item])
+       ]
+     ]
+
+     [:div (apply + @orcamento)]
+
+     [:div
+        [:input {:type "text"
+         :value @nova
+         :on-change #(re-frame/dispatch [:tmp-nova (-> % .-target .-value)] )
+          }]
+
+        [:button {:on-click #(re-frame/dispatch [:adicionar ])} "Adicionar" ]
+
+     ]
+
 
      [:div
       [:a {:href "#/about"}
        "go to About Page"]]
+
      ]))