Sha256: 3171726396620d81ffd63d27475b872e93f27bb4928449f8f485f1df0cad7f05
Contents?: true
Size: 1.47 KB
Versions: 2
Compression:
Stored size: 1.47 KB
Contents
; 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.timeline
(:require [twitterbuzz.core :as buzz]
[twitterbuzz.dom-helpers :as dom]))
(defn timeline-element
"Return a timeline dom element for the given tweet."
[tweet]
(dom/build [:div.tweet
[:img.profile-pic {:src (:profile_image_url tweet)}]
[:div.user-name (:from_user tweet)]
[:div.tweet-text (dom/html (buzz/markup (:text tweet)))]]))
(defn update-status
"Set the current tweet count in the status box."
[_]
(buzz/set-tweet-status :okay (str (:tweet-count @buzz/state) " tweets")))
(defn update-timeline
"Given a list of tweets in chronological order, add them to the top
of the list view."
[tweets]
(doseq [tweet (reverse tweets)]
(dom/insert-at (dom/get-element :timeline-content)
(timeline-element tweet)
0)))
;; Register event listeners.
(buzz/register :track-clicked #(dom/remove-children :timeline-content))
(buzz/register :new-tweets update-timeline)
(buzz/register :new-tweets update-status)
Version data entries
2 entries across 2 versions & 1 rubygems