Skip to content

Instantly share code, notes, and snippets.

@TomTriple
Created October 9, 2011 17:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save TomTriple/1273934 to your computer and use it in GitHub Desktop.
Save TomTriple/1273934 to your computer and use it in GitHub Desktop.
(ns mytwitter.core
(:require [clojure.browser.event :as event]
[clojure.browser.dom :as dom]))
(def button (dom/get-element "button"))
(def profile (dom/get-element "profile"))
(def tweets (dom/get-element "tweets"))
(defn alert [mess]
(.alert js/window mess))
(def tweet-counter (atom 0))
(event/listen button :click
(fn [e]
(let [tweet-counter (swap! tweet-counter inc)
tweet (dom/element :a {:href "#"} (str "Tweet Number: " tweet-counter))]
(dom/append tweets tweet))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment