do not dispatch route with modifier keys pressed

venantius · Nov 9, 2015 · 1eff0f8 · 1eff0f8
1 parent 6e814ee
commit 1eff0f8
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/accountant/core.cljs b/src/accountant/core.cljs
@@ -44,10 +44,15 @@
    "click"
    (fn [e]
      (let [button (.-button e)
+           meta-key (.metaKey e)
+           alt-key (.altKey e)
+           ctrl-key (.ctrlKey e)
+           shift-key (.shiftKey e)
+           any-key (or meta-key alt-key ctrl-key shift-key)
            href (find-href e)
            path (.getPath (.parse Uri href))
            title (.-title (.-target e))]
-       (when (and (= button 0) (secretary/locate-route path))
+       (when (and (not any-key) (= button 0) (secretary/locate-route path))
          (. history (setToken path title))
          (.preventDefault e))))))