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

clementine 0.0.1 → 0.0.2

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

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))))
+  )