RubyGems - clementine - Versions diffs - 0.0.1 → 0.0.2 - Mend

clementine 0.0.1 → 0.0.2

Files changed (139) hide show

data/ext/clojure-clojurescript-bef56a7/samples/twitterbuzz/index-advanced.html ADDED Viewed

@@ -0,0 +1,80 @@
+<!doctype html>
+<!--[if lt IE 7 ]> <html lang="en" class="no-js ie6"> <![endif]-->
+<!--[if IE 7 ]>    <html lang="en" class="no-js ie7"> <![endif]-->
+<!--[if IE 8 ]>    <html lang="en" class="no-js ie8"> <![endif]-->
+<!--[if IE 9 ]>    <html lang="en" class="no-js ie9"> <![endif]-->
+<!--[if (gt IE 9)|!(IE)]><!--> <html lang="en" class="no-js"> <!--<![endif]-->
+<head>
+	<meta charset="UTF-8">
+	<meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1">
+	<title>TwitterBuzz: A ClojureScript Demo</title>
+	<meta name="description" content="Demo showing off the ClojureScript hotness">
+	<meta name="author" content="Clojure/core">
+	<meta name="viewport" content="width=device-width, initial-scale=1.0">
+	<link rel="apple-touch-icon" href="/apple-touch-icon.png">
+	<link rel="stylesheet" href="reset.css">
+	<link rel="stylesheet" href="style.css">
+	<!--[if lt IE 9]>
+	<script src="http://html5shiv.googlecode.com/svn/trunk/html5.js"></script>
+  <![endif]-->
+</head>
+<body>
+  <header>
+    <section id="header-inner">
+      <h1>TwitterBuzz: A ClojureScript Demo</h1>
+      <div>Learn more:
+        <a href="https://github.com/clojure/clojurescript" target="_clojurescript">ClojureScript</a> |
+        <a href="https://github.com/clojure/clojurescript/wiki" target="_clojurescript">Documentation</a> |
+        <a href="https://github.com/clojure/clojurescript/tree/master/samples/twitterbuzz"
+           target="_clojurescript">Source Code</a>
+      </div>
+      <h2 id="clojure"><img src="http://clojure.org/space/showimage/clojure-icon-50x50.png" width="50" height="50" alt="Clojure"></h2>
+    </section>
+  </header>
+  <section id="status-bar-wrap">
+    <section id="status-bar">
+      <input id="twitter-search-tag" value="" type="text" class="search" results="5" autosave="clojure" placeholder="Enter keywords..." autofocus />
+      <button id="twitter-search-button" type="submit" class="button green">Track</button>
+      <span id="tweet-status" class="tweet-status">Not Connected</span>
+    </section>
+  </section>
+  <section id="main-wrap">
+    <section id="main">
+      <section id="network">
+      </section>
+      <section id="leaderboard">
+        <h2>Leaderboard</h2>
+        <div id="leaderboard-content">
+        </div>
+      </section>
+      <section id="timeline" class="tweetbox">
+        <h2>Timeline</h2>
+        <div id="timeline-content">
+        </div>
+      </section>
+      <div class="clear"></div>
+    </section>
+    <div class="clear"></div>
+  </section>
+  <section id="avatar-hover" style="display: none">
+    <div id="avatar-hover-body" class="tweetbox"></div>
+  </section>
+  <script type="text/javascript" src="twitterbuzz.js"></script>
+</body>
+</html>

data/ext/clojure-clojurescript-bef56a7/samples/twitterbuzz/index.html ADDED Viewed

@@ -0,0 +1,88 @@
+<!doctype html>
+<!--[if lt IE 7 ]> <html lang="en" class="no-js ie6"> <![endif]-->
+<!--[if IE 7 ]>    <html lang="en" class="no-js ie7"> <![endif]-->
+<!--[if IE 8 ]>    <html lang="en" class="no-js ie8"> <![endif]-->
+<!--[if IE 9 ]>    <html lang="en" class="no-js ie9"> <![endif]-->
+<!--[if (gt IE 9)|!(IE)]><!--> <html lang="en" class="no-js"> <!--<![endif]-->
+<head>
+	<meta charset="UTF-8">
+	<meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1">
+	<title>TwitterBuzz: A ClojureScript Demo</title>
+	<meta name="description" content="Demo showing off the ClojureScript hotness">
+	<meta name="author" content="Clojure/core">
+	<meta name="viewport" content="width=device-width, initial-scale=1.0">
+	<link rel="apple-touch-icon" href="/apple-touch-icon.png">
+	<link rel="stylesheet" href="reset.css">
+	<link rel="stylesheet" href="style.css">
+	<!--[if lt IE 9]>
+	<script src="http://html5shiv.googlecode.com/svn/trunk/html5.js"></script>
+  <![endif]-->
+</head>
+<body>
+  <header>
+    <section id="header-inner">
+      <h1>TwitterBuzz: A ClojureScript Demo</h1>
+      <div>Learn more:
+        <a href="https://github.com/clojure/clojurescript" target="_clojurescript">ClojureScript</a> |
+        <a href="https://github.com/clojure/clojurescript/wiki" target="_clojurescript">Documentation</a> |
+        <a href="https://github.com/clojure/clojurescript/tree/master/samples/twitterbuzz"
+           target="_clojurescript">Source Code</a>
+      </div>
+      <h2 id="clojure"><img src="http://clojure.org/space/showimage/clojure-icon-50x50.png" width="50" height="50" alt="Clojure"></h2>
+    </section>
+  </header>
+  <section id="status-bar-wrap">
+    <section id="status-bar">
+      <input id="twitter-search-tag" value="" type="text" class="search" results="5" autosave="clojure" placeholder="Enter keywords..." autofocus />
+      <button id="twitter-search-button" type="submit" class="button green">Track</button>
+      <span id="tweet-status">Not Connected</span>
+    </section>
+  </section>
+  <section id="main-wrap">
+    <section id="main">
+      <section id="network">
+      </section>
+      <section id="leaderboard">
+        <h2>Leaderboard</h2>
+        <div id="leaderboard-content">
+        </div>
+      </section>
+      <section id="timeline" class="tweetbox">
+        <h2>Timeline</h2>
+        <div id="timeline-content">
+        </div>
+      </section>
+      <div class="clear"></div>
+    </section>
+    <div class="clear"></div>
+  </section>
+  <section id="avatar-hover" style="display: none">
+    <div id="avatar-hover-body" class="tweetbox"></div>
+  </section>
+  <!-- In unoptimized mode, additional script tags are required -->
+  <script type="text/javascript" src="out/goog/base.js"></script>
+  <script type="text/javascript" src="twitterbuzz.js"></script>
+  <script type="text/javascript">
+    goog.require('twitterbuzz.core');
+    goog.require('twitterbuzz.timeline');
+    goog.require('twitterbuzz.leaderboard');
+    goog.require('twitterbuzz.showgraph');
+  </script>
+</body>
+</html>

data/ext/clojure-clojurescript-bef56a7/samples/twitterbuzz/reset.css ADDED Viewed

@@ -0,0 +1,48 @@
+/* Eric Meyer's Reset Reloaded */
+html, body, div, span, applet, object, iframe,
+h1, h2, h3, h4, h5, h6, p, blockquote, pre,
+a, abbr, acronym, address, big, cite, code,
+del, dfn, em, font, img, ins, kbd, q, s, samp,
+small, strike, strong, sub, sup, tt, var,
+dl, dt, dd, ol, ul, li,
+fieldset, form, label, legend,
+table, caption, tbody, tfoot, thead, tr, th, td {
+	margin: 0;
+	padding: 0;
+	border: 0;
+	outline: 0;
+	font-weight: inherit;
+	font-style: inherit;
+	font-size: 100%;
+	font-family: inherit;
+	vertical-align: baseline;
+}
+/* remember to define focus styles! */
+:focus {
+	outline: 0;
+}
+body {
+	line-height: 1;
+	color: black;
+	background: white;
+}
+ol, ul {
+	list-style: none;
+}
+/* tables still need 'cellspacing="0"' in the markup */
+table {
+	border-collapse: separate;
+	border-spacing: 0;
+}
+caption, th, td {
+	text-align: left;
+	font-weight: normal;
+}
+blockquote:before, blockquote:after,
+q:before, q:after {
+	content: "";
+}
+blockquote, q {
+	quotes: "" "";
+}

data/ext/clojure-clojurescript-bef56a7/samples/twitterbuzz/src/twitterbuzz/anneal.cljs ADDED Viewed

@@ -0,0 +1,66 @@
+;   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.anneal)
+(defn exp [x]
+  (js/Math.exp x))
+(defn abs [x]
+  (js/Math.abs x))
+(defn random []
+  (js/Math.random))
+(defn standard-prob [e e1 temp]
+  (if (< e1 e)
+    1
+    (exp (/ (- e e1) temp))))
+(defn linear-cooling [steps]
+  (let [min (- 1 (/ steps (dec steps)))]
+    (fn [t]
+      (max min (- 1 (/ t steps))))))
+(defn anneal
+  "Given an energy scoring function, a temperature function
+  (calculates temp given iteration t), a permutation function (creates
+  a candidate next state given a current state and iteration t), and
+  an acceptance probability function (of last next energy and temp),
+  yields a lazy seq of (accepted?) states of the form
+  {:state s :score :best best :best-score :t t}"
+  [energy ;;(energy state) -> score
+   temp ;;(temp t) -> 0-1.0
+   permute ;;(permute state t) -> new-state
+   prob ;;(prob e e1 temp) -> 0-1.0
+   state]
+  (let [init state
+        init-score (energy state)
+        step (fn step [{:keys [state score best best-score t]:as ret}]
+               (loop [next (permute state) t (inc t)]
+                 (let [next-score (energy next)]
+                   (if (> (prob score next-score (temp t)) (random))
+                     (let [ret {:state next :score next-score :t t
+                                :best (if (< next-score best-score) next best)
+                                :best-score (min next-score best-score)}]
+                       (lazy-seq (cons ret (step ret))))
+                     (recur (permute state) (inc t))))))]
+    (step {:state init :score init-score :best init :best-score init-score :t 0})))
+(comment
+(take 10 (take-nth 100
+                   (anneal #(abs (- % 42))
+                           (linear-cooling 1000)
+                           (fn [s _] (+ s (- (random) 0.5)))
+                           standard-prob
+                           55)))
+)

data/ext/clojure-clojurescript-bef56a7/samples/twitterbuzz/src/twitterbuzz/core.cljs ADDED Viewed

@@ -0,0 +1,307 @@
+;   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.core
+  (:require [twitterbuzz.dom-helpers :as dom]
+            [clojure.string :as string]
+            [goog.string :as gstring]
+            [goog.net.Jsonp :as jsonp]
+            [goog.Timer :as timer]
+            [goog.events :as events]
+            [goog.events.EventType :as event-type]
+            [goog.dom.classes :as classes]))
+(def results-per-page 100)
+(def max-missing-query 20)
+(def initial-state {:max-id 0
+                    :graph {}
+                    :listeners {}
+                    :tweet-count 0
+                    :search-tag nil
+                    :ignore-mentions #{}})
+(def state (atom initial-state))
+(defn add-listener
+  "Add a listener to the graph."
+  [graph k f]
+  (let [l (-> graph :listeners k)]
+    (assoc-in graph [:listeners k] (conj l f))))
+(defn register
+  "Register a function to be called when new data arrives specifying
+  the event to receive updates for."
+  [event f]
+  (swap! state add-listener event f))
+(def twitter-uri (goog.Uri. "http://search.twitter.com/search.json"))
+(defn search-tag
+  "Get the current tag value from the page."
+  []
+  (.-value (dom/get-element :twitter-search-tag)))
+(defn retrieve
+  "Send request to twitter."
+  [payload callback error-callback]
+  (.send (goog.net.Jsonp. twitter-uri)
+         payload
+         callback
+         error-callback))
+(defn send-event
+  "For the given event, call every listener for that event, passing the
+   message."
+  ([event]
+     (send-event event nil))
+  ([event message]
+     (doseq [f (-> @state :listeners event)]
+       (f message))))
+(defn parse-mentions
+  "Given a map representing a single tweet, return all mentions that
+  are found within the tweet text. Twitter usernames are not case
+  sensitive so mentioned usernames are always returned in lower case."
+  [tweet]
+  (map #(string/lower-case (apply str (drop 1 %)))
+       (re-seq (re-pattern "@\\w+") (:text tweet))))
+(defn add-mentions
+  "Add the user to the mentions map for first user she mentions,
+  clearing the mentions map of user."
+  [graph user mentions]
+  (if-let [mention (first mentions)]
+    (let [graph (assoc graph mention (get graph mention {:username mention}))
+          node (get graph mention)
+          mentions-map (get node :mentions {})
+          graph (assoc-in graph [mention :mentions user] (inc (get mentions-map user 0)))]
+      (assoc-in graph [user :mentions] {}))
+    graph))
+(defn update-graph
+  "Given a graph and a sequence of new tweets in chronological order,
+  update the graph."
+  [graph tweet-maps]
+  (reduce (fn [acc tweet]
+            (let [user (string/lower-case (:from_user tweet))
+                  mentions (parse-mentions tweet)
+                  node (get acc user {:mentions {}})]
+              (-> (assoc acc user
+                         (assoc node :last-tweet (:text tweet)
+                                     :image-url (:profile_image_url tweet)
+                                     :username (:from_user tweet)))
+                  (add-mentions user mentions))))
+          graph
+          (map #(select-keys % [:text :from_user :profile_image_url]) tweet-maps)))
+(defn num-mentions [user]
+  (reduce + (vals (:mentions user))))
+(defn update-state
+  "Given an old state, maximum id and a new sequence of tweets, return
+  an updated state."
+  [old-state max-id tweets]
+  (-> old-state
+      (assoc :max-id max-id)
+      (update-in [:tweet-count] #(+ % (count tweets)))
+      (assoc :graph (update-graph (:graph old-state) (reverse tweets)))))
+(defn new-tweets [max-id tweets]
+  (filter #(> (:id %) max-id) tweets))
+(defn new-tweets-callback
+  "Given a json object, update the state with any new information and
+  fire events."
+  [json]
+  (let [{:keys [max_id results]} (js->clj json :keywordize-keys true)
+        tweets (new-tweets (:max-id @state) results)]
+    (do (swap! state update-state max_id tweets)
+        (send-event :new-tweets tweets)
+        (send-event :graph-update (:graph @state)))))
+(defn set-tweet-status [css-class message]
+  (doto (dom/set-text :tweet-status message)
+    (classes/set (name css-class))))
+(defn error-callback [error]
+  (set-tweet-status :error "Twitter error"))
+(defn add-missing-tweets
+  "Add missing data to the graph."
+  [graph tweets]
+  (let [new-tweets (reduce (fn [acc next-tweet]
+                             (assoc acc (string/lower-case (:from_user next-tweet))
+                                    next-tweet))
+                           {}
+                           (sort-by :id tweets))]
+    (reduce (fn [acc [node-name {:keys [from_user text profile_image_url]}]]
+              (if-let [old-tweet (get graph node-name)]
+                (if (:last-tweet old-tweet)
+                  acc
+                  (assoc acc node-name
+                         (merge old-tweet {:last-tweet text
+                                           :image-url profile_image_url
+                                           :username from_user})))
+                acc))
+            graph
+            new-tweets)))
+(defn ignored
+  "Given a list of the usernames for missing tweets and the tweets
+   which are the result of a query for this missing data, return a set of
+   twitter usernames which will be ignored moving forward.
+   Names may be ignored because the twitter user does not exist or
+  just doesn't tweet."
+  [missing tweets]
+  (when (< (count tweets) results-per-page)
+    (let [users (set (map #(string/lower-case (:from_user %)) tweets))
+          missing (map string/lower-case missing)]
+      (reduce (fn [acc next-missing]
+                (if (contains? users next-missing)
+                  acc
+                  (conj acc next-missing)))
+              #{}
+              missing))))
+(defn add-missing-callback
+  "Update the graph and the ignore-mentions list when data is received
+  from a missing user query."
+  [missing json]
+  (let [response (js->clj json :keywordize-keys true)
+        tweets (:results response)]
+    (if-let [error (:error response)]
+      (set-tweet-status :error error)
+      (do (swap! state (fn [old-state]
+                         (assoc old-state
+                           :graph (add-missing-tweets (:graph old-state) tweets)
+                           :ignore-mentions (into (:ignore-mentions old-state)
+                                                  (ignored missing tweets)))))
+          (send-event :new-tweets [])
+          (send-event :graph-update (:graph @state))))))
+(defn missing-tweets
+  "Return a list of usernames with missing tweets in the graph."
+  [graph]
+  (->> (map second graph)
+       (remove :last-tweet)
+       (map :username)
+       (remove empty?)
+       (remove (:ignore-mentions @state))))
+(defn fetch-mentioned-tweets
+  "Query twitter for usernames which are currently missing data in the
+  graph. Limit this query to max-missing-query names."
+  [missing]
+  (let [q (apply str (interpose " OR " (map #(str "from:" %)
+                                            (take max-missing-query missing))))]
+    (set-tweet-status :okay "Fetching mentioned tweets")
+    (retrieve (doto (js-obj)
+                (aset "q" q)
+                (aset "rpp" results-per-page))
+              #(add-missing-callback missing %)
+              error-callback)))
+(defn fetch-new-tweets
+  "Use the current search tag to fetch new tweets from twitter."
+  []
+  (when-let [tag (:search-tag @state)]
+    (set-tweet-status :okay "Fetching tweets")
+    (retrieve (doto (js-obj)
+                (aset "q" tag)
+                (aset "rpp" results-per-page))
+              new-tweets-callback
+              error-callback)))
+(defn fetch-tweets
+  "If there are missing tweets then fetch them, if not fetch new tweets."
+  []
+  (let [missing (missing-tweets (:graph @state))]
+    (if (seq missing)
+      (fetch-mentioned-tweets missing)
+      (fetch-new-tweets))))
+(defn poll
+  "Request new data from twitter once every 24 seconds. This will put
+  you at the 150 request/hour rate limit. We can speed it up for the demo."
+  []
+  (let [timer (goog.Timer. 24000)]
+    (do (fetch-tweets)
+        (. timer (start))
+        (events/listen timer goog.Timer/TICK fetch-tweets))))
+(defn do-track-button-clicked
+  "When the track button is clicked, reset to the initial state
+  keeping only the event listeners."
+  []
+  (do (let [listeners (:listeners @state)]
+        (reset! state (assoc initial-state :listeners listeners :search-tag (search-tag))))
+      (fetch-tweets)
+      (send-event :track-clicked)))
+(defn start-app
+  "Start polling and listen for UI events."
+  []
+  (do (poll)
+      (events/listen (dom/get-element :twitter-search-button)
+                     "click"
+                     do-track-button-clicked)
+      (events/listen (dom/get-element :twitter-search-tag)
+                     event-type/CHANGE
+                     do-track-button-clicked)))
+(start-app)
+(defn link [url s]
+  (str "<a href='" url "' target='_twitterbuzz'>" s "</a>"))
+(defn markup
+  "Add markup to tweet text to activate links."
+  [s]
+  (let [markup-f (fn [s] (let [w (string/trim s)]
+                          (cond (gstring/startsWith w "http://")
+                                (link w w)
+                                (gstring/startsWith w "@")
+                                (link (str "http://twitter.com/#!/" (re-find #"\w+" w)) w)
+                                :else s)))]
+    (string/join " " (map markup-f (string/split s #"[ ]")))))
+(comment
+  (parse-mentions {:text "What's up @sue: and @Larry"})
+  (add-mentions {} "jim" ["sue"])
+  (add-mentions {"sue" {}} "jim" ["sue"])
+  (def tweets [{:profile_image_url "url1"
+                :from_user "Jim"
+                :text "I like cookies!"}
+               {:profile_image_url "url2"
+                :from_user "sue"
+                :text "Me to @jim."}
+               {:profile_image_url "url3"
+                :from_user "bob"
+                :text "You shouldn't eat so many cookies @sue"}
+               {:profile_image_url "url4"
+                :from_user "sam"
+                :text "@Bob that was a cruel thing to say to @Sue."}
+               {:profile_image_url "url5"
+                :from_user "ted"
+                :text "@foo is awesome!"}])
+  (def graph (update-graph {} tweets))
+  (count graph)
+  (num-mentions (get graph "sue"))
+  (num-mentions (get graph "bob"))
+  (num-mentions (get graph "sam"))
+  (take 1 (reverse (sort-by #(num-mentions (second %)) (seq graph))))
+  )