URL animations

core.clj

(ns tableflip.core
  (:require-macros [cljs.core.async.macros :refer [go]])
  (:require        [cljs.core.async        :refer [timeout <!]]))

(go
  (loop [[cur & next] (cycle ["┬─┬ノ( º _ ºノ)"
                              "(╯°□°）╯︵ ┻━┻"
                              "(╯°□°）╯      ┬─┬"
                              "(╯°□°）╯          ┻━┻"
                              "(╯°□°）╯              ┬─┬"
                              "(╯°□°）╯                   ┻━┻"])]
    (.replaceState js/window.history #js {} "" (str "/#" cur))
    (<! (timeout 1000))
    (recur next)))

project.clj

(defproject tableflip "0.1.0"
  :dependencies [[org.clojure/clojure       "1.6.0"]
                 [org.clojure/clojurescript "0.0-2913"]
                 [org.clojure/core.async    "0.1.346.0-17112a-alpha"]]

  :plugins [[lein-cljsbuild "1.0.4"]]
  :source-paths ["src"]
  :cljsbuild {
    :builds [{:id "cuteworld"
              :source-paths ["src"]
              :compiler {:main tableflip.core
                         :output-to "app.js"
                         :output-dir "out"
                         :optimizations :none
                         :source-map true}}]})