Clear leaderboard and timeline when Track button is pressed. Move duplicated code to core.

Author: brentonashworth

samples/twitterbuzz/src/twitterbuzz/core.cljs

@@ -179,3 +179,18 @@
 
   )
 
+(defn dom-element
+  "Create a dom element using a keyword for the element name and a map
+  for the attributes."
+  [element attrs]
+  (dom/createDom (name element)
+                 (.strobj (reduce (fn [m [k v]]
+                                    (assoc m k v))
+                                  {}
+                                  (map #(vector (name %1) %2) (keys attrs) (vals attrs))))))
+
+(defn remove-children
+  "Remove all children from the element with the passed id."
+  [id]
+  (let [parent (dom/getElement (name id))]
+    (do (dom/removeChildren parent))))

samples/twitterbuzz/src/twitterbuzz/leaderboard.cljs

@@ -1,24 +1,25 @@
+;   Copyright (c) Rich Hickey. All rights reserved.
+;   The use and distribution terms for this software are covered by the
+;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+;   which can be found in the file epl-v10.html at the root of this distribution.
+;   By using this software in any fashion, you are agreeing to be bound by
+;   the terms of this license.
+;   You must not remove this notice, or any other, from this software.
+
 (ns twitterbuzz.leaderboard
   (:require [twitterbuzz.core :as buzz]
             [goog.dom :as dom]))
 
-(defn dom-element [element attrs]
-  (dom/createDom element
-                 (.strobj (reduce (fn [m [k v]]
-                                    (assoc m k v))
-                                  {}
-                                  (map #(vector (name %1) %2) (keys attrs) (vals attrs))))))
-
 (defn add-leaderboard-node [node]
   (let [user (first node)
         user-info (second node)
         parent (dom/getElement "leaderboard-content")
-        child (dom-element "div" {:class "tweet"})
-        details (dom-element "div" {:class "tweet-details"})
-        user-e (dom-element "div" {:class "user-name"})
-        text (dom-element "div" {:class "tweet-text"})
-        pic (dom-element "img" {:src (:image-url user-info) :class "profile-pic"})
-        num-mentions (dom-element "div")]
+        child (buzz/dom-element :div {:class "tweet"})
+        details (buzz/dom-element :div {:class "tweet-details"})
+        user-e (buzz/dom-element :div {:class "user-name"})
+        text (buzz/dom-element :div {:class "tweet-text"})
+        pic (buzz/dom-element :img {:src (:image-url user-info) :class "profile-pic"})
+        num-mentions (buzz/dom-element "div")]
     (do (dom/insertChildAt text (dom/htmlToDocumentFragment (:last-tweet user-info)) 0) ;; (dom/setTextContent text (:last-tweet user-info))
         (dom/setTextContent user-e user)
         (dom/setTextContent num-mentions (str (buzz/num-mentions user-info)))
@@ -29,16 +30,13 @@
         (dom/appendChild details num-mentions)
         (dom/appendChild parent child 0))))
 
-(defn clear-leaderboard []
-  (let [parent (dom/getElement "leaderboard-content")]
-    (do (dom/removeChildren parent))))
-
 (defn leaders [nodes]
   (reverse (sort-by #(buzz/num-mentions (second %)) nodes)))
 
 (defn update-leaderboard [graph]
-  (do (clear-leaderboard)
+  (do (buzz/remove-children "leaderboard-content")
       (doseq [next-node (take 5 (leaders (seq graph)))]
         (add-leaderboard-node next-node))))
 
+(buzz/register :track-clicked #(buzz/remove-children "leaderboard-content"))
 (buzz/register :graph-update update-leaderboard)

samples/twitterbuzz/src/twitterbuzz/timeline.cljs

@@ -7,22 +7,15 @@
 ;   You must not remove this notice, or any other, from this software.
 
 (ns twitterbuzz.timeline
-  (:require [twitterbuzz.core :as core]
+  (:require [twitterbuzz.core :as buzz]
             [goog.dom :as dom]))
 
-(defn dom-element [element attrs]
-  (dom/createDom (name element)
-                 (.strobj (reduce (fn [m [k v]]
-                                    (assoc m k v))
-                                  {}
-                                  (map #(vector (name %1) %2) (keys attrs) (vals attrs))))))
-
 (defn add-timeline-tweet [tweet]
   (let [parent (dom/getElement "timeline-content")
-        child (dom-element :div {:class "tweet"})
-        user (dom-element :div {:class "user-name"})
-        text (dom-element :div {:class "tweet-text"})
-        pic (dom-element :img {:src (:profile_image_url tweet) :class "profile-pic"})]
+        child (buzz/dom-element :div {:class "tweet"})
+        user (buzz/dom-element :div {:class "user-name"})
+        text (buzz/dom-element :div {:class "tweet-text"})
+        pic (buzz/dom-element :img {:src (:profile_image_url tweet) :class "profile-pic"})]
     (do (dom/insertChildAt text (dom/htmlToDocumentFragment (:text tweet)) 0) ;;(dom/setTextContent text (:text tweet))
         (dom/setTextContent user (:from_user tweet))
         (dom/appendChild child pic)
@@ -32,8 +25,9 @@
 
 (defn update-timeline [tweets]
   (let [status (dom/getElement "tweet-status")]
-    (do (dom/setTextContent status (str (:tweet-count @core/state) " tweets"))
+    (do (dom/setTextContent status (str (:tweet-count @buzz/state) " tweets"))
         (doseq [tweet tweets]
           (add-timeline-tweet tweet)))))
 
-(core/register :new-tweets update-timeline)
+(buzz/register :track-clicked #(buzz/remove-children "timeline-content"))
+(buzz/register :new-tweets update-timeline)