voltei pra utilizar estado local no input ... solucionei o problema a…

…tualizando o campo com r/with-let ... outra formatacao
calangohc · Jul 5, 2018 · 883a514 · 883a514
1 parent 7660ff3
commit 883a514
Show file tree

Hide file tree

Showing 5 changed files with 45 additions and 44 deletions.
diff --git a/resources/public/index.html b/resources/public/index.html
@@ -2,8 +2,11 @@
 <html lang="en">
   <head>
     <meta charset='utf-8'>
-
-
+    <style>
+      .negative {color: red;}
+      body {font-family : Impact, Charcoal, sans-serif; }
+      </style>
+
   </head>
   <body>
     <div id="app"></div>

diff --git a/src/cljs/contascalangos/db.cljs b/src/cljs/contascalangos/db.cljs
@@ -1,6 +1,5 @@
 (ns contascalangos.db)
 
 (def default-db
-  {:name "re-frame"
-   :tmp-val "" 
+  {:name "Contas do Calango"
    :orcamento '(100 -20 120 -30 -40 -15 20)})
diff --git a/src/cljs/contascalangos/events.cljs b/src/cljs/contascalangos/events.cljs
@@ -16,18 +16,11 @@
    (assoc db :active-panel active-panel)))
 
 (re-frame/reg-event-db
-:adicionar 
-(fn [coeffects event]  
+:adicionar
+(fn [coeffects event]
   (let [db (:db coeffects)
-  	    novo-valor (:tmp-nova db)
+  	    novo-valor (second event)
   	    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/subs.cljs b/src/cljs/contascalangos/subs.cljs
@@ -7,16 +7,12 @@
  (fn [db]
    (:name db)))
 
-(re-frame/reg-sub 
-::orc 
+(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
@@ -9,36 +9,46 @@
 ;; home
 
 (defn home-panel []
-  (let [name (re-frame/subscribe [::subs/name]) 
-        orcamento (re-frame/subscribe [::subs/orc])
-        nova (re-frame/subscribe [::subs/tmp-nova])]
-    [:div
-     [:h1 (str "Olá Calangos do " @name)]
-
-     [:div 
-       [:ul
-         (for [item @orcamento] [:li item])
-       ]
-     ]
-
-     [:div (apply + @orcamento)]
-
-     [:div
+  (let [name (re-frame/subscribe [::subs/name])
+        orcamento (re-frame/subscribe [::subs/orc]) ]
+    (r/with-let [nova (r/atom  0)]
+      [:div
+       [:h2 (str @name)]
+
+       [:div
+        [:table
+         [:tr [:td "Receita"] [:td "Gasta"]]
+
+         (for [item @orcamento]
+           (if (< 0 item)
+             [:tr
+              [:td  item] [:td] ]
+             [:tr
+              [:td]
+              [:td
+               [:span {:class "negative"} item]]]))
+         ]
+        ]
+
+
+       [:div [:h3 "Total : " (apply + @orcamento)]]
+
+       [:div
         [:input {:type "text"
-         :value @nova
-         :on-change #(re-frame/dispatch [:tmp-nova (-> % .-target .-value)] )
-          }]
+                 :value @nova
+                 :on-change #(reset! nova (-> % .-target .-value))
+                 }]
 
-        [:button {:on-click #(re-frame/dispatch [:adicionar ])} "Adicionar" ]
+        [:button {:on-click #(re-frame/dispatch [:adicionar (int @nova)])} "Adicionar" ]
 
-     ]
+        ]
 
 
-     [:div
-      [:a {:href "#/about"}
-       "go to About Page"]]
+       [:div
+        [:a {:href "#/about"}
+         "go to About Page"]]
 
-     ]))
+       ])))
 
 
 ;; about