Skip to content

Instantly share code, notes, and snippets.

@foogoof

foogoof/super-shake.cljs

Created September 13, 2012 00:35
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save foogoof/3711014 to your computer and use it in GitHub Desktop.
Save foogoof/3711014 to your computer and use it in GitHub Desktop.
Download ZIP
Shakes a DOM element
Raw
super-shake.cljs
(defn super-shake [item value]
(start (apply bind item (mapcat (fn [dist] [{:effect :slide, :left dist, :time 375}
{:effect :slide, :left (- dist), :time 375}])
(range 500 0 -100)))))
@djKianoosh
Copy link

I love the name! Super shake!

The 2nd animation should probably be , :right (* 2 dist)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment